Блок-схема. var P,F:real; U,n:integer

Пример 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) Провести вычисление по про-грамме.