1. Как можно изменить программу, чтобы в случае необходимости можно было отказаться от выполнения теста и корректно

Alekseevich

65

Задача 1: Для того чтобы изменить программу и добавить возможность отказаться от выполнения теста и корректно завершить программу с использованием конструкции while..do, нужно добавить условие, которое будет проверять ввод пользователя и выходить из цикла, если пользователь выберет отказаться от выполнения теста. Ниже приведен пример такой программы, переименованной в p5pr3:

\[
\begin{{align*}}
&\text{{program p5pr3;}} \\
&\text{{var}} \\
&\quad \text{{response: char;}} \\
&\text{{begin}} \\
&\quad \text{{writeln("Вы хотите выполнить тест? (Y/N)");}} \\
&\quad \text{{readln(response);}} \\
&\quad \text{{while (response = "Y") or (response = "y") do}} \\
&\quad \begin{{array}}{{l}}
\text{{begin}} \\
\quad \text{{writeln("Выполняем тест...");}} \\
\quad \text{{// Здесь может быть код выполнения теста}} \\
\quad \text{{writeln("Вы хотите выполнить еще один тест? (Y/N)");}} \\
\quad \text{{readln(response);}} \\
\text{{end}} \\
\end{{array}} \\
&\quad \text{{end;}} \\
&\quad \text{{writeln("Программа завершена.");}} \\
&\text{{end.}}
\end{{align*}}
\]

В этой программе, после вопроса о выполнении теста, программа будет продолжать выполнять тесты, пока пользователь не введет символ "N" или "n".

Задача 2: Для подсчета суммы натуральных четных чисел, которые не превышают значение n, можно использовать как цикл с предусловием (p5pr4), так и цикл с постусловием (p5pr5). Ниже приведены примеры программ:

Программа p5pr4 (цикл с предусловием):

\[
\begin{{align*}}
&\text{{program p5pr4;}} \\
&\text{{var}} \\
&\quad \text{{n, sum, i: integer;}} \\
&\text{{begin}} \\
&\quad \text{{sum := 0;}} \\
&\quad \text{{writeln("Введите значение n:");}} \\
&\quad \text{{readln(n);}} \\
&\quad \text{{i := 2;}} \\
&\quad \text{{while i <= n do}} \\
&\quad \begin{{array}}{{l}}
\text{{begin}} \\
\quad \text{{sum := sum + i;}} \\
\quad \text{{i := i + 2;}} \\
\text{{end}} \\
\end{{array}} \\
&\quad \text{{end;}} \\
&\quad \text{{writeln("Сумма четных чисел, не превышающих значение n: ", sum);}} \\
&\text{{end.}}
\end{{align*}}
\]

Программа p5pr5 (цикл с постусловием):

\[
\begin{{align*}}
&\text{{program p5pr5;}} \\
&\text{{var}} \\
&\quad \text{{n, sum, i: integer;}} \\
&\text{{begin}} \\
&\quad \text{{sum := 0;}} \\
&\quad \text{{writeln("Введите значение n:");}} \\
&\quad \text{{readln(n);}} \\
&\quad \text{{i := 2;}} \\
&\quad \text{{repeat}} \\
&\quad \begin{{array}}{{l}}
\text{{begin}} \\
\quad \text{{sum := sum + i;}} \\
\quad \text{{i := i + 2;}} \\
\text{{end}} \\
\end{{array}} \\
&\quad \text{{until i > n;}} \\
&\quad \text{{writeln("Сумма четных чисел, не превышающих значение n: ", sum);}} \\
&\text{{end.}}
\end{{align*}}
\]

Оба этих куска кода считают сумму четных чисел, начиная с 2 и добавляя к сумме только четные числа, пока текущее число не превысит значение n. Результат выводится на экран.