Лабораторная работа №8
“Проектирование алгоритмов и программ со структурой вложенных циклов”
Вариант – 18
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
program Lab8;
var x,a,z : real;
n : integer;
begin
x:=-pi;
repeat
if x>=0 then a:=1
else a:=-1;
s:=1;
for n:=1 to 5 do
s:=s*(1/n+a*sin(x));
writeln('x=',x:5:2,'S=',5:2);
x:=x+pi/4;
until x>pi/2
end.
|