сумма ряда в Паскаль

[Витя007]

помогите пожалуйста составить код:454.jpg

[Abstraction]

pi:=3.14159265358;
f:=0.5-pi/8;

[Витя007]

Спасибо) но у меня проблема с написанием кода к ряду

[Abstraction]

У меня на Вашем месте тоже была бы проблема: верхний предел суммирования - бесконечность.

[Витя007]

я это вижу( с этим проблема(подскажите с помощью какого цикла писать??)я не могу составить "формулу к ряу" что бы пошел код

[Luuzuk]

подскажите с помощью какого цикла писать??

Бесконечный цикл описывается так:

while (true) do begin...

[Abstraction]

Ответ: задание в такой формулировке не имеет смысла. Нельзя сложить бесконечно много слагаемых за конечное время.

[Витя007]

PROGRAM lab4_var13_part1;
USES CRT;
VAR
sum, f : real;
n, i : integer;
BEGIN
writeln;
write('n = ');
readln(n);
writeln;
writeln(' n sum ');
writeln('_______________');
f:=((n*(n+1.0)*(2.0*n+1.0))/6.0);
sum:=0;
for i:=1 to n do
begin
sum:=sum+(i*i);
writeln(' ', i, ' ', sum:0:1);
end;
writeln('_______________');
writeln(' f = ', f:0:1);
readln;
END.
это код к похожему ряду) у меня должно получится так же)

[Витя007]

спасибо за разъяснения я все сделал))