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

[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]

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

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

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

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

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

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