Вычислите значения функции - Turbo Pascal

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

Вычислите значения функции.

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

textual
uses crt;
function f(x:real):real;
begin
if x<0 then f:=x*x*x+4
else if x>0 then f:=sin(x)/cos(x)-8;
end;
begin
clrscr;
writeln('При x=0.8 y=',f(0.8):0:3);
writeln('При x=11.36 y=',f(11.36):0:3);
writeln('При x=-5.54 y=',f(-5.54):0:3);
readln
end.

14   голосов, оценка 3.643 из 5


СОХРАНИТЬ ССЫЛКУ