Как написать следующее условие: если X не равен Edit2.text, то...

← →
RoLeX © (2003-11-06 20:49) [0]

Как написать следующее условие:
var X:integer; x=Edit1.text; Если x не равен Edit2.text, то x:=x+1, Если x не равен Edit2.text, то x:=x+1, Если x не равен Edit2.text, то x:=x+1, ... и так до бесконечности, пока x не будет равно Edit2.text

← →
panov © (2003-11-06 21:00) [1]

var X:integer;
begin
X=StrToInt(Edit1.text);
while StrToInt(Edit2.text)<>x do Inc(X);
end;

← →
Mike_Goblin © (2003-11-06 21:02) [2]

RTFM
StrToInt, IntToStr, while, for, Inc

PS Зачем читать книги, когда в форуме тебе все расскажут :)
PPS Если ввести в Edit1 число большее, чем в Edit2, то Ваш алгоритм будет работать до бесконечности

PPPS Чую что надо найти разность между числами введенными в два Edше-а. StrToInt(edit1.Text) - StrToInt(Edit2.Text)

← →
panov © (2003-11-06 22:02) [3]

>Mike_Goblin © (06.11.03 21:02) [2]
Ну да, уел-)
Исправляюсь-)
while StrToInt(Edit2.text) <x do Inc(X);

PPPS Чую что надо найти разность между числами введенными в два Edше-а. StrToInt(edit1.Text) - StrToInt(Edit2.Text)

А это ешще зачем? хм...

← →
Anatoly Podgoretsky © (2003-11-06 22:19) [4]

Mike_Goblin © (06.11.03 21:02) [2]
Нет бесконечности не будет, если условие окончания цикла, в зависимости от настроек будет прерывание или будет выход по условию, при том условие будет выполнено правильно.
Ведь у нас машинная математика с ограниченной разрядностью.

Надо абсолютное значение разности.

panov © (06.11.03 22:02) [3]
Намекает на цикл

← →
NeonSunlight (2003-11-06 22:33) [5]

panov © (06.11.03 21:00) [1]

var X:integer;
begin
X=StrToInt(Edit1.text);
while StrToInt(Edit2.text)<>x do Inc(X);
end;

Поправка: X:=StrToInt(Edit1.text);
Если я не прав - поправьте пажалуйста (сам еще только начинающий)

Вообще-то быстрее будет

var X,y,i:integer; begin X:= StrToInt(Edit1.text); y:= StrToInt(Edit2.text) for i:= 1 to abs(x-y) do begin // do smth Inc(x); end; end;

Как написать следующее условие: если X не равен Edit2.text, то... Найти похожие ветки