Суммирование ряда.

[антон руденок]

Всем привет. Возникла проблема с кодом. Все 3 цикла неправильно выводят значения. Прошу помочь.

program summa;
var
a,b,m,n,i:integer;
s:real;


begin
WriteLn('a,b');
ReadLn(a,b);
WriteLn('m,n');
ReadLn(m,n);

{1}
s:=0;
While (m<=n) do begin
s:=s+sqr((m*(1/2*m+1)+b)/(2*m+1));
inc(m);
end;
WriteLn('summa 1', s:1);


{2}
s:=0;
repeat 
s:=sqr((m*(1/2*m+1)+b)/(2*m+1));
inc(m);
until (m<=n);
WriteLn('summa 2', s:1);

{3}
for i:=m to n do
begin 
if (m<=n)
then 
s:=s+sqr((m*(1/2*m+1)+b)/(2*m+1));
inc(m);
end;
WriteLn('summa 3', s:1);
End.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[type_Oleg]

С первого взгляда - что то не то, или во While, или в repeat
While выполняется, пока истина,
а repeat - пока ложь.
А у вас одинаковые условия.
И еще - 1/2*m - что имеется ввиду?
Выполняться будет так - (1/2)*m

[Serge_Bliznykov]

и во всех трёх циклах используется переменная m, которая во всёх трёх циклах изменяется, но потеряет она свой смысл уже после первого цикла.
а в третьем цикле её изменять вообще не нужно и бессмысленно.