Записать порядок команд для решения поставленной
задачи
Пользователь начинает работу с бесконечной электронной таблицей с выделенной автоматически самой программой текущей ячейкой. Смена текущей ячейки может произойти по одной из следующих команд пользователя: 1. Текущей ячейкой становится ячейка, у которой номер строки на единицу больше, чем у предыдущей 2. Текущей ячейкой становится ячейка, у которой номер строки на единицу меньше, чем у предыдущей 3. Текущей ячейкой становится ячейка, у которой номер столбца на единицу больше, чем у предыдущей 4. Текущей ячейкой становится ячейка, у которой номер столбца на единицу меньше, чем у предыдущей Последовательность действий, которые выполнил пользователь, такова: 4, 4, 3, 1, 1, 2, 4 (приведены соответствующиѐ номера команд). Каково наименьшее возможное число команд, которое приведет к тому же результату?
Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.
Program Sequence;
var old, new : real;
f : boolean;
beginwrite('Введите x=');
readln(old);
write('Введите x=');
readln(new);
f:=true;
repeat if new<=old then f:=false;
old:=new;
write('Введите x=');
readln(new);
until new=0;
if f then writeln( 'Последовательность возрастающая')
else writeln( 'Последовательность не является возрастающей');
end.