Вычислить сумму элементов ряда - Turbo Pascal
Формулировка задачи:
Вычислить сумму элементов ряда.
Числа x и N заданы с клавиатуры при чём N<=17.
Предусмотреть проверку правильности ввода количества элементов.Предусмотреть вывод на экран номера и значения каждого элемента.Не использовать функции exp и ln.
Заранее спасибо)
Решение задачи: «Вычислить сумму элементов ряда»
textual
Листинг программы
var n,k,i:byte; s:real;x:integer; function pow(x,k:integer):integer; var i:byte; y:integer; begin y:=1; for i:=1 to k do y:=y*x; pow:=y; end; function fakt(x:integer):integer; var i:byte; y:integer; begin y:=1; for i:=1 to x do y:=y*i; fakt:=y; end; begin writeln('n=?'); readln(n); if n>17 then begin writeln('Вы ввели слишком большое n,примем n=5'); n:=5; end; writeln('x='); readln(x); s:=0; for i:=1 to n do begin s:=s+(pow(1-x,i+1)+1)/(pow((fakt(k-1)+1),2)); writeln(i,'элемент сумма равна=',s); end; end.
Объяснение кода листинга программы
- Создаются три переменные типа byte: n, k и i.
- Создается переменная типа real: s.
- Создается переменная типа integer: x.
- Определяется функция pow(x,k): возвращает результат возведения в степень.
- Определяется функция fakt(x): возвращает факториал числа.
- В цикле for i:=1 to n do... происходит вычисление суммы элементов ряда.
- Выводится значение переменной s.
- Конец программы.