Реализовать подпрограммы умножения скаляра на вектор, суммы векторов - Pascal

Формулировка задачи:

Даны три трехмерных вектора a,b,c ,заданные своими координатами. Найти вектор, равный (a+b)+(2a+3c). Указание: реализовать "функции" умножения скаляра на вектор, суммы векторов.

Решение задачи: «Реализовать подпрограммы умножения скаляра на вектор, суммы векторов»

Листинг программы

d:=sum(sum(a,b),sum(umn(a,2),umn(c,3)));
vyvod(d,'D');
end.

Объяснение кода листинга программы

Переменная d объявлена и инициализирована значением функции sum с аргументами sum(sum(a,b),sum(umn(a,2),umn(c,3)).
Функция sum вызывается дважды с аргументами a и b, затем результаты этих вычислений передаются как аргументы в функцию sum еще дважды с аргументами umn(a,2) и umn(c,3).
Результат работы функции sum сохраняется в переменной d.
Затем вызывается функция vyvod с аргументом d и выводится значение переменной d в виде строки D.
Программа завершается командой end.