Написать программу, блок-схему нахождения суммы ряда - 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.

Объяснение кода листинга программы

  1. Создается переменная f типа real и присваивается значение e.
  2. Создается переменная e типа real и присваивается значение e.
  3. Создается переменная fact типа real и присваивается значение 1.
  4. Создается переменная step типа real и присваивается значение 3.
  5. Создается переменная i типа longint и присваивается значение 1.
  6. Создается переменная n типа longint и присваивается значение 1.
  7. Создается переменная j типа longint и присваивается значение 1.
  8. Создается переменная fi типа longint и присваивается значение 1.
  9. Создается переменная c типа longint и присваивается значение 1.
  10. Создается переменная fi1 типа longint и присваивается значение 2.
  11. Создается переменная f типа real и присваивается значение e.
  12. Запускается цикл while с условием e <= f до тех пор, пока e меньше или равно f.
  13. Внутри цикла выполняется следующая последовательность действий:
    • f вычисляется как (fi*step)/fact.
    • i увеличивается на 1.
    • fact вычисляется как fact*i.
    • step вычисляется как step*3.
    • c вычисляется как fi1.
    • fi1 увеличивается на fi.
    • fi вычисляется как c.
  14. После выхода из цикла while, выводится значение переменной f с точностью до 4 знаков после запятой.
  15. Выводится сообщение Konec. Tochnost= e с точностью до 4 знаков после запятой.
  16. Программа завершается и ожидает ввода пользователя.

Оцени полезность:

5   голосов , оценка 4 из 5