Напишите рекурсивную программу для определения скалярного произведения двух векторов - Pascal ABC

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

Напишите рекурсивную программу для определения скалярного произведения двух векторов.

Решение задачи: «Напишите рекурсивную программу для определения скалярного произведения двух векторов»

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

type Mas=array[1..100] of integer;
//Рекурсивная функция
function Scal(k:byte;x,y:Mas):integer;
begin
if k=0 then Scal:=0 else Scal:=x[k]*y[k]+Scal(k-1,x,y)
end;
//Основная программа
var a,b:Mas;
    i,n,m:Byte;
begin
randomize;
write('Количество элементов массивов n=');
readln(n);
writeln('Массив А');
for i:=1 to n do
  begin
    a[i]:=Random(20);
    write(a[i],' ');
  end;
writeln;
writeln('Массив B');
for i:=1 to n do
  begin
    b[i]:=Random(20);
    write(b[i],' ');
  end;
writeln;
write('Скалярное произведение=',Scal(n,a,b));
end.

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

Создается тип данных Mas, который представляет собой массив целых чисел размером до 100 элементов.
Определяется рекурсивная функция Scal, которая принимает три аргумента: k (битовый флаг, указывающий на глубину рекурсии), x и y (массивы целых чисел). Если k равно нулю, функция возвращает ноль. В противном случае, она вычисляет скалярное произведение векторов x и y, используя формулу x[k] * y[k] + Scal(k-1, x, y).
Основная программа начинается с инициализации генератора случайных чисел.
Программа запрашивает у пользователя количество элементов в массивах n и выводит эту информацию.
Для каждого элемента массива A и B, программа генерирует случайное число и выводит его на экран.
Программа вычисляет скалярное произведение векторов A и B с помощью функции Scal, передавая ей n (количество элементов) в качестве аргумента.
Программа выводит результат скалярного произведения на экран.