Текущий архив: 2003.11.17;
Скачать: CL | DM;
Вниз
Как написать следующее условие: если 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);
Если я не прав - поправьте пажалуйста (сам еще только начинающий)
← →
Stratos (2003-11-07 02:25) [6]Вообще-то быстрее будет
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;
Страницы: 1 вся ветка
Текущий архив: 2003.11.17;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.01 c
