Вычислить и вывести на экран сумму 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 — любое целое число, введенное пользователем. Код использует следующий алгоритм:
- Объявляются переменные p, i, x, s, f типа integer и real соответственно.
- Переменная p инициализируется значением, введенным пользователем.
- Переменная x инициализируется значением, введенным пользователем.
- Переменная f инициализируется значением 1.
- Переменная s инициализируется значением 0.
- Запускается цикл for от 1 до p.
- Внутри цикла пересчитывается значение f.
- К переменной s прибавляется значение exp(ln(3)x)f.
- Цикл завершается.
- Выводится значение переменной s с точностью до 5 знаков после запятой.
- Программа ожидает нажатия клавиши для завершения работы.