Задача на забитие гвоздя ), хозяйкам на заметку: шуруп забитый молотком держится прочнее гвоздя за Опции

[SKVOZNJAK]

Не влезло: "винченного отвёрткой"


Садисткая задача. Имеется цикл :

for a:=b to c do begin

                 end;

Все приведённые переменные типа Int64. Имеющийся у вас компилятор поддеpживает операции с такими переменными, но считает недопустимым строить на них циклы. Внимание задание! Напишите заменитель цикла, наиболее изящное решение. Код должен нормально работать при любых допустимых значениях переменных a,b,c.

Сообщение отредактировано: SKVOZNJAK - 13.12.2006 7:56

[volvo]

eXtractor, а подумать не забыл? Сказано же было:

Код должен нормально работать при любых допустимых значениях переменных a,b,c.

Делаем:

a := -1;
b := -2;

{ твой цикл }

и наслаждаемся ...

Bokul, а ты пробовал на FPC сделать цикл FOR на параметре Int64? Не делается, а While - проходит... Так что, While скорее можно использовать, чем нельзя...

[eXtractor]

eXtractor, а подумать не забыл? Сказано же было:
Делаем:

a := -1;
b := -2;

{ твой цикл }

и наслаждаемся ...

В задаче использован именно to — так его тоже зациклит при таких числах.

[Lapp]

volvo, ты имел в виду
b:=-1;
c:=-2;
?

В задаче использован именно to — так его тоже зациклит при таких числах.

Нет, цикл for не станет выполняться совсем, если конечная величина меньше начальной. Проверка выполняется перед входом и проверка эта не на равенство, а на "больше".
Интересно, что даже при начальной величине меньше конечной твой цикл не выполнит последнего шага (при а=с), а for должен выполнить.

[volvo]

volvo, ты имел в виду
b:=-1;
c:=-2;
?

Именно... Опечатка вышла...