Контрольная работа: Вычисление значения функции y(x)

begin clrscr;

writeln('Please ENTER Xn,Xk,h=');

readln(Xn,Xk,h);

x:=Xn;

while x<=Xk+h/2 do

begin

if x<0 then y:=1/sin(x) else

if (x>=0) and (x<2) then y:=(2*x)/((abs(x-2)/(x-2))*(exp(1/3*(ln(abs(x-2)))))) else

if x>2 then y:=sqr(cos(x))/(x-2)

else

begin

writeln('NO answer');

goto 20;

end;

writeln('x=',x:3:1,' y=',y:6:3);

20: x:=x+h;

end;

readkey;

end.

Результаты вычислений:

компьютерный вычисление функция алгоритм

В Excel:

В MathCAD:

В Delphi :

var