Произведение матриц Опции

[plafon]

Помогите пожалуста


Произведение матриц.
Требуется написать программу, вычисляющую произведение матриц A и B. Как исходные матрицы A и B, так и результат (матрица C=AxB) находятся в текстовых файлах (это могут быть, например, файлы ‘Input.txt’ и ’Output.txt’). Формат файла ‘Input.txt’ следующий:
2 3
1 2 0
4 5 1
3 4
1 0 2 3
3 0 9 2
3 4 3 1
Здесь описаны две матрицы. В первой строке файла записано число строк и столбцов для первой матрицы, затем приводятся ее элементы. Далее (строки 4-7) описана вторая матрица. Аналогичный формат имеет выходной файл (одна матрица).
При объявлении типов файлов используйте указатель Text.

[Altair]

Значит вот код, он работает. "Перемножение матриц" лабораторная работа.

Эта простенькая задача позволяет решить твою задачу. А вывод и чтение текстовых документов - всего лишь цикл. Думай...

Ну здесь тоже нет чтение из файла.

{ ”б«(r)ўЁҐ:
  ‚лзЁб«Ёвм Їа(r)Ё§ўҐ¤Ґ­ЁҐ Єў ¤а в­ле ¬ ваЁж
}

const
 Count = 3; {Є(r)«-ў(r) бв(r)«Ўж(r)ў Ё бва(r)Є ¬ ваЁжл}
var
 Mat1, Mat2,                                     {ўў(r)¤Ё¬лҐ ¬ ваЁжл}
 ResMat1 : array[1..Count, 1..Count] of integer; {१г«мвЁагой п}
 i, x, y, R : integer;
 flag : boolean;
begin
 Writeln('‚ў(r)¤ ЇҐаў(r)(c) ¬ ваЁжл (жҐ«лҐ зЁб« )');
 for y := 1 to Count do
  for x := 1 to Count do
  begin
   Write('Mat1[', x, ',', y,'] : ');
   Readln(Mat1[x, y]);
  end;
 Writeln('‚ў(r)¤ ўв(r)а(r)(c) ¬ ваЁжл (жҐ«лҐ зЁб« )');
 for y := 1 to Count do
  for x := 1 to Count do
  begin
   Write('Mat2[', x, ',', y,'] : ');
   Readln(Mat2[x, y]);
  end;
 {Ї(r)¤бзҐв ¬ ваЁжл AxB}
 for y := 1 to count do {бЇгбЄ Ґ¬бп ў­Ё§ Ї(r) бва(r)Є ¬}
  for x := 1 to Count do {Ё¤Ґ¬ Ї(r) н«Ґ¬Ґ­в ¬ бва(r)Є ўЇа ў(r)}
  begin
   R := 0;                          {(r)Ў­г«пҐ¬ б㬬㠯а(r)Ё§ўҐ¤Ґ­Ё(c)}
   for i := 1 to Count do           {Ё¤Ґ¬ Ї(r)¤ Ј(r)аЁ§(r)­в «Ё Mat1 Ё Ї(r) ўҐавЁЄ «Ё}
    r := R + mat1[i, y]*Mat2[x, i]; {Mat2; г¬­(r)¦ Ґ¬ Ё ¤(r)Ў ў«пҐ¬ ў R}
   ResMat1[x, y] := R;              {Resmat1[x, y] = १г«мв в = R}
 end;
 Writeln('AxB='); {ўлў(r)¤Ё¬ ­  нЄа ­}
 for y := 1 to Count do
 begin
  for x := 1 to Count do
   Write(ResMat1[x, y]:4);
  Writeln;
 end;
END. {Є(r)­Ґж Їа(r)Ја ¬¬л}

Текст в кодировке DOS (кодовая страница 866)