Технический форум - Паскаль. Задача с файлами, помогите пожалуйста

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Паскаль. Задача с файлами, помогите пожалуйста

Компоненты 2 матриц А и Б и вектора С записаны в 3 тесктовых файлах. Записать в другой файл:
(А+Б)*С=?
Я понимаю что основа вычислений в этом
Сложение матриц
Код Pascal1
for i:=1 to n do
for j:=1 to n do
c[i,j]:=a[i,j]+b[i.j];
и в этом:
[I]Умножение матрицы на вектор
Код Pascal
for i:=1 to n do
begin
y[i]:=0;
for j:=1 to n do
y[i]:=y+c[i,j]*d[j];
end;
А не могу написать программу для файлов.... Помогите пожалуйста!!!!:tehnari_ru_837:

Цитата:

Сообщение от Valerosha (Сообщение 613512)

А не могу написать программу для файлов.... Помогите пожалуйста!!!!

Пожалуйста (пути и, возможно, имена файлов поставьте свои):

Код:

CONST

 M=10; {Number of lines}

 N=8; {Number of columns}

VAR

 f_A,f_B,f_C,f_R:Text;

 A,B:Array[1..M,1..N] of Integer;

 C:Array[1..N] of Integer;

 R:Array[1..M] of Integer;

 i,j:Integer;

BEGIN

 Randomize;

 Assign(f_A,'D:\Inp_A');

 Rewrite(f_A);

 Assign(f_B,'D:\Inp_B');

 Rewrite(f_B);

 Assign(f_C,'D:\Inp_C');

 Rewrite(f_C);

 for i:=1 to M do

  begin

   for j:=1 to N do

    begin

     A[i,j]:=-9+Random(19);

     write(f_A,A[i,j]:4);

     B[i,j]:=-9+Random(19);

     write(f_B,B[i,j]:4);

    end;

   writeln(f_A);

   writeln(f_B);

  end;

  for i:=1 to N do

   begin

    C[i]:=-9+Random(19);

    writeln(f_C,C[i]:4);

   end;

 Close(f_A);

 Close(f_B);

 Close(f_C);



 Reset(f_A);

 Reset(f_B);

 Reset(f_C);

 Assign(f_R,'D:\Out_R');

 Rewrite(f_R);

 for i:=1 to M do

  begin

   for j:=1 to N do

    begin

     read(f_A,A[i,j]);

     read(f_B,B[i,j]);

    end;

   readln(f_A);

   readln(f_B);

  end;

 for i:=1 to N do

  readln(f_C,C[i]);

 Close(f_A);

 Close(f_B);

 Close(f_C);

 for i:=1 to M do

  begin

   R[i]:=0;

   for j:=1 to N do

    R[i]:=R[i]+(A[i,j]+B[i,j])*C[j];

   writeln(f_R,R[i]:6);

  end;

 Close(f_R);

END.