Как правильно оформить цикл?

← →
CaLL|ok (2007-01-20 23:01) [0]

Как правильно оформить цикл:
procedure TForm1.Button2Click(Sender: TObject); var a,b,c:real; i:integer; begin for i:=1 to c do a:=StrToFloat(edit1.Text); b:=StrToFloat(edit2.Text); c:=a*b; begin Label1.Caption:=FloatToStr(i); Sleep(10); Application.ProcessMessages; end; end;
Я пытаюсь сделать чтоб при умножении числа одного эдита(a) на другое(b) - результат выводился в лейбле.
При этом чтоб вывод результата возрастал от 1 до моего результата(с). к примеру 2*4=8(чтоб возростало число от 1 до 8).
Я написал, но неправильно выразил в цикле "с". Как правильно это все оформить?

← →
Palladin © (2007-01-20 23:05) [1]

бежим за книжками

← →
FIL-23 © (2007-01-20 23:10) [2]

гхм гхм, но это уже слишком ... а ты знаешь что все переменные при закгрузке программы обнуляются .... это получается что ты хочешь от 1 до 0 идти по возрастающей .... ты понял что ето ерунда

← →
CaLL|ok (2007-01-20 23:15) [3]

> FIL-23 © (20.01.07 23:10) [2]

Что промах я сделал - это я понял.
Вот как все исправить в этом случае? Или не бывает такого решения?

← →
Expell © (2007-01-20 23:33) [4]

а то что с real - это нормально? для цикла с шагом 1

← →
FIL-23 © (2007-01-20 23:35) [5]

ну знаешь как миниму тебе надо переменную с сделать integer
а потом тебе надо округлить round(x) или выделить целую часть trunc(x)
и еще :

с:=0; <-- ну хоть с чегото надоже стартануть
for i:=0 to c do
begin <-- ты забыл про это
...
c:=round(a*b);
end; <- и про это
но тут должен получится бесконечный цыкл

ну вот пробуй..

← →
Johnmen © (2007-01-21 00:48) [6]

> но тут должен получится бесконечный цыкл

да что ты

← →
Runner (2007-01-21 00:58) [7]

var
a, b, c, i: integer;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c := a * b;
for i:=1 to c do
begin
Label1.Caption := IntToStr(i);
Sleep(10);
Application.ProcessMessages;
end;
end;

> [2] FIL-23 © (20.01.07 23:10)
> а ты знаешь что все переменные при закгрузке программы обнуляются ...

бежи за справкой!

← →
CaLL|ok (2007-01-21 12:02) [9]

> [7]

а как можно будет это использовать при умножении чисел такого вот типа (3,58;1,2)? Можно ли задать цикл с шагом 0,01?

CaLL|ok (21.01.07 12:02) [9]

Если только while или repeat

Как правильно оформить цикл? Найти похожие ветки