Код
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 -
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Простой цикл - и не работает :(( |
youngDelphyGirl |
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Пол: Женский Репутация: 0 |
Вот простой код, написанный для учебной тренировки. Нужно вычислить сумму арифметической прогрессии до числа, введенного пользователем в Эдит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 - |
Айра |
Сообщение
#2
|
Профи Группа: Пользователи Сообщений: 731 Пол: Женский Репутация: 25 |
Ну так в процедуре у тебя никакого цикла (for, while) и нет, все это отрабатывается только один раз..
Поэтому и не выводится.. А прогрессия состоит из единиц что ли? Я не уверена, что это будет прогрессия.. |
youngDelphyGirl |
Сообщение
#3
|
Группа: Пользователи Сообщений: 6 Пол: Женский Репутация: 0 |
вот я растеряха! Ща быстренько всё ремонтируем
|
Текстовая версия | 6.05.2024 10:21 |