Question

Срочно нужна помощь! Программа в Паскаль

Answer 1

Номер 18.1

Program n_1;

uses math;

var x, y, z, a: double;

begin

   x:=1.542;

   y:=-3.261;

   z:=80.005;

   a:=ln(sqrt(exp(x-y)+x*abs(y)+z))/ln(10);

   writeln(a:0:2);

end.

Номер 18.2 (x - радианная мера угла)

Program n_2;

uses math;

var x, b: double;

begin

   x:=1.542;

   b:=(x/sin(x))-(x*x*x)/(sin(x)*sin(x)*sin(x))+(x*x*x*x*x)/(sin(x)*sin(x)*sin(x)*sin(x)*sin(x));

   writeln(b:0:2);

end.

Answer 2

Еще я не очень разбираюсь в типах данных.. Double на Real нельзя заменить?

Answer 3

Я как бы тоже в паскале не очень, я по другим языкам

Answer 4

Ну double на real можно заменить

Answer 5

работать будет

Answer 6

Хорошо. Мне бы не хотелось вас напрягать,но есть еще одна задача,где возникли вопросы.Решение есть,но оно не проходит https://znanija.com/task/31694943. Если вам не удобно можете не смотреть.