Вычислить сумму элементов ряда - Turbo Pascal

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

Вычислить сумму элементов ряда. Числа x и N заданы с клавиатуры при чём N<=17. Предусмотреть проверку правильности ввода количества элементов.Предусмотреть вывод на экран номера и значения каждого элемента.Не использовать функции exp и ln. Заранее спасибо)


textual

Код к задаче: «Вычислить сумму элементов ряда - Turbo Pascal»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник