Вычислить и вывести на экран сумму p членов ряда, где x и p – любые целые числа, введенные с клавиатуры: - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Вычислить и вывести на экран сумму p членов ряда, где x и p – любые целые числа, введенные с клавиатуры, и составить блок-схему

Решение задачи: «Вычислить и вывести на экран сумму p членов ряда, где x и p – любые целые числа, введенные с клавиатуры:»

textual
Листинг программы
uses crt;
var p,i:integer;
    x,s,f:real;
begin
clrscr;
write('p=');
readln(p);
write('x=');
readln(x);
f:=1;
s:=0;
for i:=1 to p do
 begin
  f:=f/2/i/(2*i-1); {/(2i)!}
  s:=s+exp(ln(3)*x)*f;
 end;
write('s=',s:0:5);
readln
end.

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

В этом коде программа запрашивает у пользователя два целых числа (p и x) и вычисляет сумму s членов ряда, где x — любое вещественное число, введенное пользователем, а p — любое целое число, введенное пользователем. Код использует следующий алгоритм:

  1. Объявляются переменные p, i, x, s, f типа integer и real соответственно.
  2. Переменная p инициализируется значением, введенным пользователем.
  3. Переменная x инициализируется значением, введенным пользователем.
  4. Переменная f инициализируется значением 1.
  5. Переменная s инициализируется значением 0.
  6. Запускается цикл for от 1 до p.
  7. Внутри цикла пересчитывается значение f.
  8. К переменной s прибавляется значение exp(ln(3)x)f.
  9. Цикл завершается.
  10. Выводится значение переменной s с точностью до 5 знаков после запятой.
  11. Программа ожидает нажатия клавиши для завершения работы.

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

7   голосов , оценка 3.857 из 5
Похожие ответы