Описать процедуру Proc, которая реализует действие функции с 3-мя вещественными параметрами, вычисляющую количество отрицательных чисел из заданных - Pascal ABC
Формулировка задачи:
Описать процедуру Proc, которая реализует действие функции с 3-мя вещественными параметрами, вычисляющую количество отрицательных чисел из заданных параметров.
Входные числа процедуры задать как параметры-значения,
возвращаемое значение задать как параметр-переменную.
Нужна программа и блок-схема!
Решение задачи: «Описать процедуру Proc, которая реализует действие функции с 3-мя вещественными параметрами, вычисляющую количество отрицательных чисел из заданных»
textual
Листинг программы
var
a, b, c, k : integer;
procedure Proc(n1, n2, n3 :integer; var res : integer);
begin
res := 0;
if n1 < 0 then inc(res);
if n2 < 0 then inc(res);
if n3 < 0 then inc(res)
end;
begin
write('введите 3 числа: ');
readln(a, b, c);
Proc(a, b, c, k);
writeln('кол-во отрицательных: ', k)
end.
Объяснение кода листинга программы
- Ввод трех чисел с помощью функции readln
- Вызов функции Proc с передачей трех чисел и переменной k в качестве результата
- Внутри функции Proc увеличение значения переменной res на 1 при каждом отрицательном числе
- Вывод результата с помощью функции writeln