Задача 4. 1. Условие: Составить схему алгоритма и написать ВР-программу вычисления суммы бесконечного ряда для заданного значения переменной и формулы общего члена ряда

1. Условие: Составить схему алгоритма и написать ВР-программу вычисления суммы бесконечного ряда для заданного значения переменной и формулы общего члена ряда (см. табл. П. 1). Предусмот­реть завершение суммирования и печать результата при достижении очередным членом ряда абсолютной величины, меньшей, чем 0.0001.

Пример: значение переменной – 0.1;

Формула общего члена ряда

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

PROGRAM z41; (* 1-й способ с оператором перехода GOTO *)

CONST

k=2; (* поименованная константа *)

LABEL 1; (* метка *)

VAR

x,s,a:REAL;(* переменная, сумма, элемент суммы *)

i,j,znak,fakt:INTEGER; (* номер элемента суммы, переменная цикла, знак, факториал *)

BEGIN

s:=0.0;

i:=0;

znak:=1;

x:=0.1;

1: i:=i+1;

znak:=znak*(-1);

fakt:=1;

FOR j:=1 TO (k*i+1) DO fakt:=fakt*j;

a:=znak*EXP((k*i+1)*LN(k*x))/fakt;

s:=s+a;

IF ABS (a)>0.0001 THEN GOTO 1;

WRITE (‘При a= ’,a:9:7, ‘сумма= ’,s:9:7);

WRITELN (‘на’ 4:2,‘-ой итерации’);

END.

3а) Схема алгоритма задачи 4 (1-й способ (опера-торы IF и GOTO))