Pascal.циклы С Параметром

  • Автор темы Автор темы Smile1995
  • Дата начала Дата начала
S

Smile1995

помогите пожалуйста не могу понять где ошибка(
при n=2
должен выдавать значения t=0.16 u =0.41
а выдает второе значение под первым номером и под вторым это же значение увеличенное вдвое

Pascal

t(Общий вид слагаемого суммы)
s(Сумма)
n(Кол-во слагаемых)

Program Variant_7;
var t,s,f:real;
n,i:integer;
begin
Writeln('Vvod usxodnux dannux:');
Write('n=');
Readln(n);
Writeln;
Writeln('________');
Writeln('i t');
Writeln('________');
t:=0;
s:=0;
f:=1.0/4.0;
For i:= 1 to n do
begin
t:=1.0/(n*(n+1.0)*(n+2.0));
s:=s+t;
writeln(i:3, ' ', t:0:6);
end;
Writeln('________');
Writeln;
Writeln('f=',f:0:6);
end.
 

Вложения

  • AgMaNAHw9zs.jpg
    AgMaNAHw9zs.jpg
    35,1 КБ · Просмотры: 456
Полностью задание напиши, мне вот че-то непонятно что за f=....
Ап! увидел задание, пардон)

Код:
For i:= 1 to n do
begin
t:=1.0/(n*(n+1.0)*(n+2.0));
s:=s+t;
writeln(i:3, ' ', t:0:6);
end;

Заменить на:
Код:
For i:= 1 to n do
begin
t:=1.0/(i*(i+1.0)*(i+2.0));
s:=s+t;
writeln(i:3, ' ', t:0:6);
end;

и в конце добавить вывод суммы:
Код:
writeln('S=',s);
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab