Написать программу, блок-схему нахождения суммы ряда - Turbo Pascal
Формулировка задачи:
Суммирование прекращается, когда модуль слагаемого меньше Е > 0 (входное данное). В алгоритме может быть максимум 1 цикл.
Решение задачи: «Написать программу, блок-схему нахождения суммы ряда»
textual
Листинг программы
var f,e,k,l,m,fact,step:real; c,fi1,i,n,j,fi:longint; begin writeln ('Vvedite tochnost E (E>0) : '); readln(e); i:=1; fact:=1; step:=3; fi:=1; fi1:=2; f:=e; while e<=f do begin f:=(fi*step)/fact; inc(i); fact:=fact*i; step:=step*3; c:=fi1; fi1:=fi+fi1; fi:=c; writeln ('f= ',f:4:3); end; writeln ('Konec. Tochnost= ', e:4:3); readln end.
Объяснение кода листинга программы
- Создается переменная
f
типаreal
и присваивается значениеe
. - Создается переменная
e
типаreal
и присваивается значениеe
. - Создается переменная
fact
типаreal
и присваивается значение 1. - Создается переменная
step
типаreal
и присваивается значение 3. - Создается переменная
i
типаlongint
и присваивается значение 1. - Создается переменная
n
типаlongint
и присваивается значение 1. - Создается переменная
j
типаlongint
и присваивается значение 1. - Создается переменная
fi
типаlongint
и присваивается значение 1. - Создается переменная
c
типаlongint
и присваивается значение 1. - Создается переменная
fi1
типаlongint
и присваивается значение 2. - Создается переменная
f
типаreal
и присваивается значениеe
. - Запускается цикл
while
с условиемe <= f
до тех пор, покаe
меньше или равноf
. - Внутри цикла выполняется следующая последовательность действий:
f
вычисляется как(fi*step)/fact
.i
увеличивается на 1.fact
вычисляется какfact*i
.step
вычисляется какstep*3
.c
вычисляется какfi1
.fi1
увеличивается наfi
.fi
вычисляется какc
.
- После выхода из цикла
while
, выводится значение переменнойf
с точностью до 4 знаков после запятой. - Выводится сообщение
Konec. Tochnost= e
с точностью до 4 знаков после запятой. - Программа завершается и ожидает ввода пользователя.