Урок 16 Задача 3
Primary tabs
Есть функция, которая считает сумму четырех чисел:
function sum4(a, b, c, d: integer): integer; begin result := a + b + c + d; end;Реализуйте обертку над sum4(), которая делает то же самое, но имеет сигнатуру вида:
type ar = array[1..2, 1..2] of integer; function searchRes2(a1:ar): integer;
type ar = array[1..2, 1..2] of integer; var a1: ar; i, j: integer; // функция по условиям задачи function sum4(a, b, c, d: integer): integer; begin result:= a + b + c + d; end; // обертка function searchRes2(a1: ar): integer; // сигнатура по условиям задачи begin result := sum4(a1[1][1], a1[1][2], a1[2][1], a1[2][2]); // передаем элементы массива в ф-цию sum4, получаем резултат, передаем результат наружу end; begin // начало тела основной программы writeln ('Введите четыре числа: '); for i:=low(a1) to high(a1) do for j:=low(a1[i]) to high(a1[i]) do readln (a1[i][j]); writeln ('Ответ: ', searchRes2(a1)); // передаем массив в обертку, выводим на экран полученный результат readln(); end.
Вывод в консоли:
Введите четыре числа: 2 12 1 0 Ответ: 15
- Log in to post comments
- 418 reads
vedro-compota
Sun, 12/18/2022 - 15:46
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)