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

Smile1995

New Member
10.09.2013
0
0
#1
помогите пожалуйста не могу понять где ошибка(
при 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.
 

Вложения

Senset

Well-Known Member
11.09.2006
136
0
#2
Полностью задание напиши, мне вот че-то непонятно что за 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);