Вычислить сумму элементов ряда - 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.

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

  1. Создаются три переменные типа byte: n, k и i.
  2. Создается переменная типа real: s.
  3. Создается переменная типа integer: x.
  4. Определяется функция pow(x,k): возвращает результат возведения в степень.
  5. Определяется функция fakt(x): возвращает факториал числа.
  6. В цикле for i:=1 to n do... происходит вычисление суммы элементов ряда.
  7. Выводится значение переменной s.
  8. Конец программы.

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

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