Блок-схема
Пример 7.1 (Продолжение).
Program PR_7_1;
var P,F:real; U,n:integer;
begin
P:=1; F:=1; U:=1;
for n:=1 to 10 do
begin
U:=-U;
F:=F*n;
P:=P*(1+(n+U)/F);
end;
writeln('P=',P:10:4)
end.
1) Объяснить работу программы.
2) Объяснить назначение блоков 1- 8 блок-схемы и вписать в них выполняемые ими функ-ции.
3) Вычислить самостоятельно значения P, F, U, nпосле первого и второго прохода по циклу, и сверить с вычисля-емыми по программе (сделать вывод этих параметров).
4) Провести вычисление по про-грамме.
Пример 8.1 Найти с точностью до епроизведение членов ряда из
примера 7.1 .
Начало
Ввод (е)
3 P:=1; F:=1; U:=1; S:=0; n:=1;
4 U:= -U;
5 F:=F*n;
6 P:=P*(1+(n+U)/F);
A:=abs(S-P); S:=P; n:=n+1;
7 A<e
Вывод (P,A)
Конец
Пример 8.1 (Продолжение).
Program PR_8_1;
var P,F,S,e,A:real; U,n:integer;
begin
writeln('vvedite e');
read(e);
P:=1; F:=1; U:=1; S:=0;
n:=1;
repeat
U:=-U;
F:=F*n;
P:=P*(1+(n+U)/F);
A:=abs(S-P);
S:=P;
n:=n+1;
until A<e;
writeln('P=',P:8:4);
writeln('A=',A:8:4)
end.
Пример 8.1 (Продолжение).
1) Объяснить работу программы.
2) Объяснить назначение блоков 1- 9 блок-схемы и вписать в них выполняемые ими функ-ции.
3) Вычислить самостоятельно значения P, F, U, A, S, nпосле первого и второго про-хода по циклу, и сверить с вычисляемыми по программе (сделать вывод этих параме-тров).
4) Провести вычисление по про-грамме.