Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Простой цикл - и не работает :((

Автор: youngDelphyGirl 3.08.2009 8:59

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

Код

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.

Автор: Айра 3.08.2009 10:16

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

Автор: youngDelphyGirl 3.08.2009 10:26

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