Простой цикл - и не работает :(( Опции

[youngDelphyGirl]

Вот простой код, написанный для учебной тренировки. Нужно вычислить сумму арифметической прогрессии до числа, введенного пользователем в Эдит1. Присваиваем это число переменной Max. Переменную R используем для вывода результата, I - счетчик вычислений. Что я написала неправильно? Результат R в Эдит2 к сожалению не выводится...

Код

procedure TForm1.Button1Click(Sender: TObject);
var
Max,R,I:integer;
     begin
       Max:=StrToInt(Edit1.Text);
       R:=1;
       I:=1;
        if R>Max then
         Edit2.Text:=IntToStr(R)
        else
          begin
            R:=R+I;
            I:=I+1;
          end;
       end;

end.

Сообщение отредактировано: youngDelphyGirl - 3.08.2009 6:13

[Айра]

Ну так в процедуре у тебя никакого цикла (for, while) и нет, все это отрабатывается только один раз..
Поэтому и не выводится..
А прогрессия состоит из единиц что ли? Я не уверена, что это будет прогрессия..

[youngDelphyGirl]

вот я растеряха! Ща быстренько всё ремонтируем