Программирование на языке Pascal, циклы и ввод/вывод данных

Предмет: Информатика
Раздел: Программирование на языке Pascal, циклы и ввод/вывод данных

Задание:

Программа должна:

1. Запрашивать два числа.
2. Вычислять их сумму.
3. Печатать результат.
4. Спрашивать у пользователя, хочет ли он завершить выполнение программы.
5. Если нет — повторять процесс.

Решение:

В Pascal для реализации цикла с возможностью досрочного выхода удобно использовать цикл repeat ... until, так как он выполняется хотя бы один раз и проверяет условие в конце.

Пример кода:

program SumTwoNumbers;

uses crt;

var
  a, b, sum: Integer;
  answer: Char;

begin
  repeat
    clrscr;
    Write('Введите первое число: ');
    Readln(a);
    Write('Введите второе число: ');
    Readln(b);

    sum := a + b;
    Writeln('Сумма: ', sum);

    Write('Завершить программу? (д/н): ');
    Readln(answer);
  until (answer = 'д') or (answer = 'Д');
end.

Объяснение:

• repeat ... until — цикл, который выполняется до тех пор, пока условие не станет истинным.
• Переменная answer считывает ответ пользователя.
• Если пользователь вводит 'д' или 'Д', программа завершает выполнение.
• В противном случае — цикл повторяется: снова запрашиваются два числа, вычисляется сумма и т.д.

Если тебе нужно решение с использованием цикла for, то это не совсем подходит по логике задачи, так как for — это цикл с фиксированным количеством повторений. В данной задаче количество итераций заранее неизвестно и зависит от пользователя. Поэтому наиболее подходящий цикл — repeat ... until или while.

Хочешь, могу показать и версию с while.