Регистрация
Keonaks
19.10.2021 04:22
Информатика
Есть ответ 👍

Как составить программу для высчитывания синуса и косинуса в pascalabc.net

244
384
Посмотреть ответы 3

Ответы на вопрос:

abdulaevamesed
abdulaevamesed
4,6(26 оценок)

ответ

var

 x: real;

 

begin

 Write('Введите X: ');

 Readln(x);

 if (x < -2) or (x = 2) then

   Writeln('Нет решений')

 else

   Writeln(Cos(Power(4, x) + Power(2, x + 1) - 8 * x) + Sin(2 / (Sqrt(x + 2) - x)));

end.

Объяснение:

Artyom2005738282
Artyom2005738282
4,6(88 оценок)

var

 x: real;

 

begin

 Write('Введите X: ');

 Readln(x);

 if (x < -2) or (x = 2) then

  Writeln

 else

  Writeln(Cos(Power(4, x) + Power(2, x + 1) - 8 * x) + Sin(2 / (Sqrt(x + 2) - x)));

kristos24052006
kristos24052006
4,4(23 оценок)
Var n,a,b,i: integer; begin writeln('введите кол-во раз: '); readln(n); for i: =0 to n do begin a: =random(1000); b: =random(1000); writeln('1 число: ',a,', 2 число: ',b); if a> b then writeln(a,'> ',b); if a< b then writeln(a,'< ',b); if a=b then writeln(a,'=',b); end; end.

Популярно: Информатика