Вычислить значение функции - Turbo Pascal (33922)

Формулировка задачи:

Вычислить значение функции:

Код к задаче: «Вычислить значение функции - Turbo Pascal (33922)»

textual
var
  x, y : real;
begin
  write('X = ');
  readln(x);
  if x < -2 then y := sin(sqr(x)) else
    if (x >= -2) and (x < 2) then y := abs(x) else
      y := sqrt(x + 256);
  writeln('Y(', x, ') = ', y:6:2);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.667 из 5


СДЕЛАЙТЕ РЕПОСТ