IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Простой цикл - и не работает :((
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Женский

Репутация: -  0  +


Вот простой код, написанный для учебной тренировки. Нужно вычислить сумму арифметической прогрессии до числа, введенного пользователем в Эдит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.


Сообщение отредактировано: youngDelphyGirl -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Ну так в процедуре у тебя никакого цикла (for, while) и нет, все это отрабатывается только один раз..
Поэтому и не выводится..
А прогрессия состоит из единиц что ли? Я не уверена, что это будет прогрессия..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Женский

Репутация: -  0  +


вот я растеряха! dry.gif Ща быстренько всё ремонтируем good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 31.10.2020 14:24
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name