Задание 70. Программа ввода массива из 10 чисел с помощью цикла repeat-until в Паскале

Задание 70. На блок-схеме представлен алгоритм ввода массива из 10 целых чисел с помощью цикла с постусловием. Запишите соответствующую программу на языке Паскаль.

Код программы Pascal

Program zad_70_nica;
var
  i: integer;
  a: array[1..10] of integer;
begin
  i := 1;
  repeat
    readln(a[i]);
    i := i + 1;
  until i > 10;
end.

Пошаговое объяснение программы

1. Заголовок программы и объявление переменных

Program zad_70_nica;
var
  i: integer;
  a: array[1..10] of integer;

• Program zad_70_nica; - стандартный заголовок программы, задающий имя (здесь "zad_70_nica").
• i: integer; - объявляет целочисленную переменную-счетчик для цикла.
• a: array[1..10] of integer; - объявляет массив из 10 целых чисел с индексами от 1 до 10.

2. Основной блок программы

begin
  i := 1;
  repeat
    readln(a[i]);
    i := i + 1;
  until i > 10;
end.

• i := 1; - инициализирует счетчик i значением 1 (начало ввода массива).
• repeat - начало цикла с постусловием: тело цикла выполняется хотя бы один раз, затем проверяется условие выхода.
• readln(a[i]); - считывает целое число с клавиатуры и сохраняет в i-й элемент массива.
• i := i + 1; - увеличивает счетчик на 1 для перехода к следующему элементу.
• until i > 10; - условие выхода: цикл продолжается, пока i не станет больше 10. Когда i = 11, цикл завершается.

Что делает эта программа?

Программа последовательно считывает 10 целых чисел, введенных пользователем, и сохраняет их в массив a. Цикл гарантированно выполнится 10 раз, так как счетчик начинается с 1 и увеличивается до 11.

Особенности реализации

1. Цикл repeat-until - цикл с постусловием, который выполняет тело хотя бы один раз перед проверкой условия. Это отличает его от циклов while (с предусловием) и for (с параметром).
2. Отсутствие вывода приглашений - программа не выводит подсказки, пользователь вводит числа по порядку.
3. Индексация с 1 - стандартно для Pascal.
4. Управление счетчиком вручную - в отличие от for, здесь счетчик увеличивается явно в теле цикла.

P.S. Проверка работы программы

Если вы хотите проверить программу на правильную работу, добавьте в тело программы (после цикла ввода) этот код:

for i := 1 to 10 do  write('a[', i, ']=', a[i], '; ');

Это выведет все введенные элементы массива в формате "a[1]=5; a[2]=10; ..." для визуальной проверки.