Код
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.
Полная версия: Простой цикл - и не работает :((
Вот простой код, написанный для учебной тренировки. Нужно вычислить сумму арифметической прогрессии до числа, введенного пользователем в Эдит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.
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.
Ну так в процедуре у тебя никакого цикла (for, while) и нет, все это отрабатывается только один раз..
Поэтому и не выводится..
А прогрессия состоит из единиц что ли? Я не уверена, что это будет прогрессия..
Поэтому и не выводится..
А прогрессия состоит из единиц что ли? Я не уверена, что это будет прогрессия..
вот я растеряха! 
Ща быстренько всё ремонтируем 
Ща быстренько всё ремонтируем
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.