Question

Эквивалентен ли оператор: for i :=i1 to i2 do written(ord(i )) Последовательность операторов : i :=i1; repeat written(ord(i)); i :=succ(i): until i>i2 Агргументируйте ответ

Answer 1

Почти эквивалентен.
for i := i1 to i2 do writeln(ord(i)) (у вас опечатка в writeln?) выводит ord(i1), ord(i1 + 1), ord(i1 + 2), ..., ord(i2 - 1), ord(i2).

Во втором случае сначала i = i1, выводится ord(i1), и i увеличивается на 1. Так будет продолжаться до тех пор, пока i после увеличения не станет больше i2, т.е. (если всё целое) i2 + 1.

Выводы будут совпадать, но переменная i после выхода из цикла может принимать разные значения: в первом случае она равна i2, во втором i2 + 1. Однако лучше переменную цикла вне цикла не использовать, тогда никакой разницы между двумя конструкциями не будет.

Answer 2

Да, операторы эквивалентны. Оба оператора выполняют одно и то же действие - выводят числовое значение ASCII каждого символа в заданном диапазоне.

Первый оператор "for" использует цикл, который начинается с i1 и продолжается до i2. На каждой итерации значение i увеличивается на 1, и для каждого значения i выполняется оператор written(ord(i)), который выводит числовое значение ASCII символа, представленного переменной i.

Второй оператор "repeat" также использует цикл, но с постусловием. Он начинается с i1 и продолжается до тех пор, пока i не превысит i2. На каждой итерации значение i увеличивается на 1 с помощью оператора succ(i), и для каждого значения i выполняется оператор written(ord(i)), который также выводит числовое значение ASCII символа, представленного переменной i.

Таким образом, оба оператора последовательно выполняют одну и ту же последовательность действий и дают одинаковый результат, поэтому они эквивалентны.