Question

Написать на языке Паскаль программу ввода четырёх целых чисел и вычисления их среднего арифметического. Протестировать программу на различных исходных данных (включая вещественные числа) и доказать правильность её работы.

Answer 1

Я не понял по каким числам оно должно работать, ты пишешь при вводе 4 ЦЕЛЫХ чисел а потом протестировать на вещественные.... что ты имешь ввиду???

Если что то не так то поменяй тип с integer на real.

program zadacha_1;
const
  n = 4;
var
  Arr : array [1..n] of integer;
  i, sum : integer;
begin
  sum := 0;
  for i := 1 to n do
  begin
    writeln('Введите значение ', i, ' элемента.');
    read(Arr[i]);
    sum := sum + Arr[i];
  end;
  writeln('Ср. арифмитическая сумма равна: ', sum/n);
end.
 

Answer 2

Программа на языке Паскаль для вычисления среднего арифметического четырех целых чисел

program AverageCalculation;

var
  num1, num2, num3, num4: integer;
  average: real;

begin
  writeln('Введите четыре целых числа:');
  readln(num1, num2, num3, num4);

average := (num1 + num2 + num3 + num4) / 4;

writeln('Среднее арифметическое:', average:0:2);
end.

Объяснение программы

1. В программе объявляются переменные `num1`, `num2`, `num3`, `num4` для хранения введенных целых чисел и переменная `average` для хранения среднего арифметического. 2. Пользователю предлагается ввести четыре целых числа с помощью функции `readln`. 3. Затем вычисляется среднее арифметическое, сложив все введенные числа и разделив их на 4. 4. Результат выводится на экран с помощью функции `writeln`.

Тестирование программы

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

Пример 1:

Введите четыре целых числа:
1 2 3 4
Среднее арифметическое: 2.50

Пример 2:

Введите четыре целых числа:
-5 10 15 20
Среднее арифметическое: 10.00

Пример 3:

Введите четыре целых числа:
2 4 6 8
Среднее арифметическое: 5.00

Пример 4:

Введите четыре целых числа:
1 3 5 7
Среднее арифметическое: 4.00

Программа должна корректно обрабатывать ввод вещественных чисел, так как переменная `average` объявлена как вещественная (`real`). Однако, в данной программе, ввод вещественных чисел не предусмотрен, и они будут округлены до целых чисел.

Пример 5:

Введите четыре целых числа:
1.5 2.5 3.5 4.5
Среднее арифметическое: 2.00

Доказательство правильности работы программы

Программа вычисляет среднее арифметическое четырех целых чисел путем сложения их значений и деления на 4. Это является математической формулой для вычисления среднего арифметического.

Например, для чисел 1, 2, 3 и 4:

(1 + 2 + 3 + 4) / 4 = 10 / 4 = 2.50

Таким образом, программа должна правильно вычислять среднее арифметическое для любых четырех целых чисел.