Лабораторная работа №5
Вариант – 3
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Program TabFunct;
Var
X,Z,X0,XN,A,H:real;
Begin{TabFunct}
write('X0= ');read(X0);
Write('XN= ');Read(Xn);
Write('H= ');Read(H);
Writeln('X0= ',X0);
Writeln('XN= ',XN);
Writeln('H= ',H);
X:=X0;
Repeat
if (x=2) or (x=-2) or (x=5)
then
x:=x+h
Else
Begin
a:=sin(x);
z:=a*a/(x*x-4)+cos(x*x)/((x-2)*(x-5));
Writeln('X=',x);
Writeln('Z= ',z);
x:=x+h
End;
Until x>6;
end.