Лабораторная работа 7, 8 Работа в среде Турбо Паскаль. Вычисление произведения (суммы) заданного количес- тва членов ряда. Вычисление произведения (суммы) членов ряда с задан- ной степенью точности.

Пример 7.1 Найти произведение первых десяти членов ряда с общим членом: 1 Начало 2 P:=1; F:=1; U:=1; 3 n=1, 10 4 U:= -U; 5 F:=F*n; 6 P:=P*(1+(n+U)/F); 7 Вывод (P) 8 Конец Блок-схема

Пример 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 Найти с точностью до е произведение членов ряда из примера Начало 2 Ввод (е) 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

Пример 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

Пример 8.1 (Продолжение). 1) Объяснить работу программы. 2) Объяснить назначение блоков 1- 9 блок-схемы и вписать в них выполняемые ими функ- ции. 3) Вычислить самостоятельно значения P, F, U, A, S, n после первого и второго про- хода по циклу, и сверить с вычисляемыми по программе (сделать вывод этих параме- тров). 4) Провести вычисление по про- грамме.