Проверка кода для Free Pascal - Free Pascal (249769)

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

program Skalyar;
const nmax = 3;
var a, b:array [0..nmax-1] of real;
  skal:real;
  i:integer;
begin
skal:=0;
writeln('Vvedite massiv a ', nmax, ' elements');
 for i:=Low(a) to High(a) do
 begin
   write('a[', i+1, ']=');
   readln(a[i]);
 end;
 begin
 writeln('Vvedite massiv b ', nmax, ' elements');
 for i:=Low(b) to High(b) do
   write('b[', i+1, ']=');
   readln(b[i]);
 end;
 for i:=Low(a) to High(a) do
 skal:=a[i]*b[i]+skal;
 writeln('Skalyarnoe proizvedenie ', skal:2:2);
readln()
 end.

Решение задачи: «Проверка кода для Free Pascal»

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

var a: array [0..2] of Real; b, s: Real; i: Integer;
begin
  Write('a(',High(a)-Low(a)+1,') b(',High(a)-Low(a)+1,'): ');
  for i:=Low(a) to High(a) do Read(a[i]);
  for i:=Low(a) to High(a) do begin Read(b); s:=s+a[i]*b; end;
  WriteLn('a * b = ',s:0:2);
end.

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

Объявлены переменные: массив a типа Real, переменные b и s типа Real, переменная i типа Integer.
Выводится приглашение для ввода значений массива a и значения переменной b.
Происходит цикл по элементам массива a, в каждой итерации происходит чтение значения переменной b.
В каждой итерации цикла значение переменной s увеличивается на произведение текущего элемента массива a и значения переменной b.
Выводится значение переменной s, отформатированное до двух знаков после запятой.
Значение переменной s вычисляется как произведение суммы элементов массива a на значение переменной b.