[XaKeR282]

Код:

procedure TForm1.Action1Execute(Sender: TObject);
var
A:Real;
B:Real;
C:Real;
Q:Real;
R:Real;
begin
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
C:=StrToFloat(Edit3.Text);
for  Q:=B to C do  //Вот тут он мне ворчит
begin
R:=A+Q;
ListBox1.Items.Add(FloatToStr(A)+'+'+FloatToStr(Q)+'='+FloatToStr(R));
end;

end;

Админ: Предупреждение: теги и еще раз теги!

[dr. F.I.N.]

Все гениальное просто! for to do

[v1s2222]

Это цикл for. В делфи у него шаг = 1. Соответственно делфи не может организовать цикл. Переменные должны быть целым типом. Если все таки надо с дробным типом работать, то работай через while, or repeat..until.
Пока отвечал опять ответили

[XaKeR282]

так тоже написал, но не пашет(

procedure TForm1.Action1Execute(Sender: TObject);
var
A:Real;
B:Real;
C:Real;
Q:Real;
R:Real;
begin
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
C:=StrToFloat(Edit3.Text);
repeat
R:=A+Q;
Q:=Q+1;

until Q>C ;
ListBox1.Items.Add(FloatToStr(A)+'+'+FloatToStr(Q) +'='+FloatToStr(R));
end;

[Pilot_Red]

Сообщение от XaKeR282

так тоже написал, но не пашет(

странно а почему у тебя

ListBox1.Items.Add(FloatToStr(A)+'+'+FloatToStr(Q) +'='+FloatToStr(R));

вне цикла, в первом случае было наоборот!!!

[XaKeR282]

одно и тоже

[Pilot_Red]

Дк что одно и тоже??? ошибку выдает или что?
Если нет, то что хоть из этой кухни у тебя должно получиться.
я так понял идет заполнение листбокса типа:

1+1=2
1+2=3
........
1+9=10

[XaKeR282]

ну да, но ничего не получается(

[Pilot_Red]

вот цикл.. он обязан работать..........

Код:

repeat
R:=A+Q;
Q:=Q+1;
ListBox1.Items.Add(FloatToStr(A)+'+'+FloatToStr(Q) +'='+FloatToStr(R));
until Q>C ;

[Михалыч]

Сообщение от XaKeR282

ну да, но ничего не получается(

Поменяй местами

Код:

 
R:=A+Q;
Q:=Q+1;