Ввод векторов и матриц, умножение матрицы на вектор и вычисление скалярного призведения двух векторов

[zverushka]

нет конечно
я просто так написала
вводила я нормально
только ошибку 205 как исправить?

[zverushka]

я вводила нормально
только ошибка 205

[Sazary]

zverushka
У меня работает без ошибок. Может, все-таки как-то не так вводите?
Вот вам пример:
Замените в программе:

writeln('matrix A:');
VvodABC(A);
writeln('matrix B:');
VvodABC(B);
writeln('matrix C:');
VvodABC(C);

на

for i:=1 to 6 do
 for j:=1 to 6 do
  begin
  A[i,j] := 1;
  B[i,j] := 1;
  C[i,j] := 1;
  end;

Это заполнит все три матрицы единицами (чтобы вручную не вводить).
Останется только ввести векторы.
Я ввел: x= 1 2 3 4 5 6, y=1 1 1 1 1 1
Вывел:

formula =-122787408.3333

Подозреваю. что ответ неверный, но это уже скорее ошибки в реализации.
Но Runtime'а нету.
------------

Скажите, что у вас значит запись (Ах,Ву) в задании?

[zverushka]

скалярное произведение векторов

[zverushka]

у меня всё равно переполнение
может у меня .tpu каких не хватает?

[Sazary]

может у меня .tpu каких не хватает?

Тогда бы вам об этом компилятор сказал. Притом, после компиляции они уже не нужны.

у меня всё равно переполнение

Что я могу сказать, если у меня нет ошибки, а у вас есть (при одних и тех же числах)?

Вот скрин ввода (матрицы A,B,C заполняются автоматом, как я написал в п.#13)

[zverushka]

у меня такой же ввод, только потом вылетает и пишет, что ошибка

[Sazary]

zverushka Скажите какой у вас компилятор.
И прикрепите сюда екзешник программы.

<часть сообщения удалена>
------------

[Sazary]

Все. Программа работает.

program zad6;
uses SysUtils;
const n=6;
type
TMatrix=array[1..n,1..n] of integer;
TVekt=array[1..n] of integer;
var
A,B,C:TMatrix;
X,Y,PAX,PBY,PCX:TVekt;
SP1,SP2,SP3,R: real;

i,j: integer;

procedure VvodABC(var MAS : TMatrix);
begin
for j:=1 to n do
for i:=1 to n do
begin
write ('el[',i,',',j,'] : ');
readln (MAS[i,j]);
end;
end; {VvodA}

procedure VvodX;
begin
writeln ('Vvod vekt X porjdka ',n);
for i:=1 to n do
begin
write ('X[',i,'] : ');
readln (X[i]);
end;
end; {VvodX}

procedure VvodY;
begin
writeln ('Vvod vekt Y porjdka ',n);
for i:=1 to n do
begin
write ('Y[',i,'] : ');
readln (Y[i]);
end;
end; {VvodY}

{------------}
procedure ProMV(M : TMatrix; V : TVekt; var MV : TVekt);
var i,j : integer;
begin
for i:=1 to n do
  begin
  MV[i] := 0;
  for j:=1 to n do
   MV[i] := MV[i] + M[i,j]*V[j];
  end;

end;

{------------}

function SkalProVekt (var a,b: TVekt; n:integer):real;
var i:integer; e: real;
begin
e:=0;
for i:=1 to n do
 e:=e+a[i]*b[i];
SkalProVekt:=e;
writeln;
end;{SkalProVekt}

begin
writeln('matrix A:');
VvodABC(A);
writeln('matrix B:');
VvodABC(B);
writeln('matrix C:');
VvodABC(C);
  {  для проверки - делает A,B,C единичными матрицами }
{for i:=1 to 6 do
 for j:=1 to 6 do
  begin
  if i <> j then
   begin
   A[i,j] := 0;
   B[i,j] := 0;
   C[i,j] := 0;
   end
   else
    begin
    A[i,j] := 1;
    B[i,j] := 1;
    C[i,j] := 1;
    end;
  end;
 }
VvodX;
VvodY;

ProMV(A,X,PAX);
ProMV(B,Y,PBY);
ProMV(C,X,PCX);

SP1:=SkalProVekt(PAX,PBY,n);
SP2:=SkalProVekt(PCX,Y,n);
SP3:=SkalProVekt(X,PBY,n);

R:=SP1+SP2/SP3;
writeln ('formula =',R:7:4);
readln;
end.

---------------
Также прикрепляю архив. В нем исходник, екзешник и excel'евский файл для проверки.