Лабораторная №7.

Нет

Да

2.Текст программы:

Program p7; var Y,x,S,eps:real; n:integer; Begin writeln('vvedite x='); readln(x); write('vvedite eps=');readln(eps); Y:=0; n:=1;S:=1/n; while abs(S)<=eps do begin Y:=Y+S; n:=n+1; if (n+1) mod 2=0 then S:=1/n else S:=(-1/n); end; write('pri x=',x:5:2,' eps=',eps:5:3,' summa Y=',Y:7:3); readln; end.

3.Результат выполнения контрольного примера:

pri x=2.00 eps=0.050 summa S= 0.0008

Конец

Выводообщения

Вывод Х, Y

Конец

Вывод сообщения

Вывод Х, Y