daryagulyaeva
?>

Составить программу в pascal abc. cos^2x-5 a= √x^2+3

Информатика

Ответы

asviridova07194
//прога на Pascal`e
var
x: real;

function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;

begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.
axo-geo
1. Немного теории
Чтобы сравнить числа в разных системах счисления, нужно привести их к какой-нибудь одной. У нас системы счисления 2, 10, 8=2³, 16=2⁴.
Числа в системах по основанию 2ⁿ всегда проще всего сводить к системе счисления по основанию 2, поскольку при этом каждый исходный разряд числа заменяется n двоичными разрядами. Т.е. перевод 8⇒2 сведется к замене каждой цифры тремя двоичными разрядами, а 16⇒2 - четырьмя.
И единственной "неудобной" операцией у нас будет перевод 101₁₀⇒Х₂
2. Собственно решение
21₈ = 10 001₂ = 10001₂
12₁₆ = 1 0010₂ = 10010₂

101/2 = 50, остаток 1
50/2 = 25, остаток 0
25/2 = 12, остаток 1
12/2 = 6, остаток 0
6/2 = 3, остаток 0
3/2 = 1, остаток 1
1/2 = 0, остаток 1
Выписываем остатки в обратном порядке, получая 101₁₀=1100101₂

Располагаем числа по убыванию:
1100101, 10010, 10001, 11

ответ: 101₁₀, 12₁₆, 21₈, 11₂
rkorneev19061
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составить программу в pascal abc. cos^2x-5 a= √x^2+3
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

mlubov1
a-zotova
Stepanovich_Makarov
Елена_Зайкин1665
serkan777
nane2924329
Николаевич-Анатольевич599
vasinam
Газинурович
Prostofil200790
npprang21
Державина
kbndbyb6
Smirnovav1982422
Alenachernika9111