Лабораторная работа №4
Тема: Функции
Задание:
Вычислить с помощью repeat until
Блок-схема алгоритма программы:
Текст программы:
Program lab4;
uses crt;
Const
eps=0.00001;
Var
x, a, s, y:real;
i:integer;
Function lab4fun(x, eps:real):real;
Begin
If x<=1 then
begin
writeln (‘ошибка’);
readln;
halt(1)
end;
s:=pi/2;
i:=1;
a:=-1/x;
y:=x*x;
repeat
s:=s+a;
i:=i+2;
a:=-a*(i-2)/(i*y);
until abs(a)<eps;
lab4fun:=s;
end;
Begin
writeln(‘введите x’);
readln(x);
writeln(‘s =’, lab4fun(x, eps):16:7);
writeln(‘arctg(x) = ‘, arctan(x):9:7);
readln’
End.
Полученные результаты:
s = 0.9150946
arctg(x) = 0.9151007
Выводы:
полученные результаты в третьей работе:
s = 0.9150946
arctg(x) = 0.9151007
полученные результаты в четвёртой работе:
s = 0.9150946
arctg(x) = 0.9151007
