Программирование на языке Pascal, циклы и управление выполнением программы

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

Условие задачи:

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

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

Решение:

Для реализации подобного поведения в языке Pascal лучше всего подходит цикл с предусловием или постусловием. Однако, поскольку в запросе упомянут цикл for, стоит отметить, что цикл for используется, когда известно число повторений. В данном случае число повторений заранее неизвестно, так как оно зависит от пользователя, поэтому корректнее использовать цикл while или repeat...until.

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

Корректная реализация с использованием repeat...until:

program SumTwoNumbers;
var
  a, b, sum: Integer;
  answer: Char;
begin
  repeat
    Write('Введите первое число: ');
    Readln(a);
    Write('Введите второе число: ');
    Readln(b);
    sum := a + b;
    Writeln('Сумма: ', sum);
    Write('Завершить программу? (д/н): ');
    Readln(answer);
  until (answer = 'д') or (answer = 'Д');
end.

Пояснение:

• Цикл repeat...until выполняется хотя бы один раз, что нам и нужно.
• Пользователь вводит два числа.
• Программа выводит их сумму.
• Затем спрашивается, хочет ли пользователь завершить выполнение.
• Если пользователь вводит 'д', программа завершает выполнение.

Если всё же нужно использовать цикл for, можно задать, например, 100 итераций, но внутри цикла предусмотреть возможность досрочного выхода через Break:

program SumTwoNumbersWithFor;
var
  a, b, sum: Integer;
  answer: Char;
  i: Integer;
begin
  for i := 1 to 100 do
  begin
    Write('Введите первое число: ');
    Readln(a);
    Write('Введите второе число: ');
    Readln(b);
    sum := a + b;
    Writeln('Сумма: ', sum);
    Write('Завершить программу? (д/н): ');
    Readln(answer);
    if (answer = 'д') or (answer = 'Д') then
      Break;
  end;
end.

Вывод:

Хотя в задаче упомянут цикл for, для корректного выполнения требований задачи (неизвестное количество повторений) лучше использовать цикл repeat...until.