1. Изменить программу из 2 так, чтобы использовался оператор while..do, позволяющий отказаться от выполнения теста

Задача 1:
Разъяснение: Чтобы изменить программу из 2 так, чтобы использовался оператор while..do, нужно сначала понять, что делает оригинальная программа. После этого можно изменить ее код, чтобы использовать оператор while..do.

Оригинальная программа проверяет условие "a < n" и печатает значения a и их квадраты, увеличивая a на 1 на каждой итерации.

Чтобы изменить программу, нужно создать переменную, которая будет отслеживать, должна ли программа продолжаться или нет. Используя оператор while..do, программа будет выполняться до тех пор, пока переменная не станет равной ложью.

Пример кода для измененной программы:

program p5pr3;

var

  a, n: integer;

  continueProgram: boolean;

begin

  writeln("Введите значение n: ");

  readln(n);

  

  continueProgram := true;

  a := 1;

  

  while (a < n) and continueProgram do

  begin

    writeln("a = ", a);

    writeln("a^2 = ", a*a);

    writeln;

    

    writeln("Хотите продолжить? (1 - Да, 0 - Нет)");

    readln(continueProgram);

    

    a := a + 1;

  end;

  

  writeln("Программа завершена.");

end.

Совет: Чтобы лучше понять, как работает оператор while..do, можно представить его как "пока (условие) выполняется, делать (действия)". Также, следует обратить внимание на то, как измененная программа использует переменную continueProgram для контроля над выполнением программы.

Пример:

Введите значение n:

10



a = 1

a^2 = 1



Хотите продолжить? (1 - Да, 0 - Нет)

1



a = 2

a^2 = 4



Хотите продолжить? (1 - Да, 0 - Нет)

1



a = 3

a^2 = 9



Хотите продолжить? (1 - Да, 0 - Нет)

0



Программа завершена.

Задача 2:
Разъяснение: Вторая задача требует написать программы, которые вычисляют сумму натуральных четных чисел, не превышающих заданное число n.

Программа с использованием цикла с предусловием будет выполнять цикл до тех пор, пока условие "sum <= n" выполняется. Внутри цикла, программа будет проверять, четное ли текущее число, и если да - добавлять его к сумме. Затем, текущее число будет увеличено на 1.

Пример кода для программы с использованием цикла с предусловием:

program p5pr4;

var

  sum, n, currentNumber: integer;

begin

  writeln("Введите число n: ");

  readln(n);

  

  sum := 0;

  currentNumber := 1;

  

  while (sum + currentNumber <= n) do

  begin

    if (currentNumber mod 2 = 0) then

      sum := sum + currentNumber;

    

    currentNumber := currentNumber + 1;

  end;

  

  writeln("Сумма натуральных четных чисел, не превышающих ", n, ": ", sum);

end.

Программа с использованием цикла с постусловием будет выполнять цикл до тех пор, пока условие внутри цикла истинно. Внутри цикла, программа будет проверять, четное ли текущее число, и если да - добавлять его к сумме. Затем, текущее число будет увеличено на 1. В конце цикла будет выполнена проверка условия "sum + currentNumber <= n".

Пример кода для программы с использованием цикла с постусловием:

program p5pr5;

var

  sum, n, currentNumber: integer;

begin

  writeln("Введите число n: ");

  readln(n);

  

  sum := 0;

  currentNumber := 1;

  

  repeat

    if (currentNumber mod 2 = 0) then

      sum := sum + currentNumber;

    

    currentNumber := currentNumber + 1;

  until (sum + currentNumber > n);

  

  writeln("Сумма натуральных четных чисел, не превышающих ", n, ": ", sum);

end.

Совет: Помните, что натуральные числа - это положительные целые числа, начиная с единицы. Чтобы проверить, является ли число четным, используйте операцию остаток от деления на 2. Если остаток равен 0, значит число четное.

Закрепляющее упражнение: Попробуйте запустить программу p5pr4 с различными значениями n и проверьте, получаете ли вы правильные суммы натуральных четных чисел.