Не могу разобраться!!!

[Яна Сафронова]

Program Matrix;
Const
  Range=3;
Type
  Matr=array[0..Range-1,0..Range-1] of byte;
  MMatr=array[0..Range-1,0..Range-1] of integer;
Var
  xstr,str,stb:byte;
  Vector:array[0..1,0..Range-1] of byte;
  MatrA,MatrB:Matr;
  MatrC:MMatr;
  Min,idx:byte;

Procedure ReadMatr(FileName:string; Var MatrRead:Matr);
var
  f:Text;
  istr,jstb:byte;
  Elem:string;
  Code:integer;

begin
  Assign(f,FileName);
  reset(f);
  for istr:=0 to Range-1 do
    begin
      for jstb:=0 to Range-1 do
        begin
          readln(f,Elem);
          write(' ',Elem);
          Val(Elem,MatrRead[istr,jstb],Code)
        end;
      writeln
    end;
  Close(f);
end;

Procedure MulMatr(Var MulMat:MMatr; MatrixA,MatrixB:Matr);
var
  istr,jstb,k:byte;
  summa:integer;

begin
  for istr:=0 to Range-1 do
    for jstb:=0 to Range-1 do
      begin
        summa:=0;
        for k:=0 to Range-1 do
          summa:=summa+MatrixA[istr,k]*MatrixB[istr,jstb];
        MulMat[istr,jstb]:=summa
      end;
  writeln;
  writeln;
  writeln('MatrixC=MatrixA*MatrixB');
  writeln;
  for istr:=0 to Range-1 do
    begin
      for jstb:=0 to Range-1 do
        begin
          case MulMat[istr,jstb] of
            0..9:write('  ');
            10..99:write(' ');
          end; {case}
          write(' ',MulMat[istr,jstb])
        end;
      writeln
    end;
  writeln
end;

BEGIN
  writeln('MatrixA');
  writeln;
  ReadMatr('matrixa.txt',MatrA);
  writeln;
  writeln;
  writeln('MatrixB');
  writeln;
  ReadMatr('matrixb.txt',MatrB);
  MulMatr(MatrC,MatrA,MatrB);
  for str:=0 to Range-1 do
    for stb:=0 to Range-1 do
      MatrC[str,stb]:=MatrA[str,stb];
  FillChar(Vector,SizeOf(Vector),0);
  for str:=0 to Range-1 do
    begin
      Vector[0,str]:=str;
      Min:=MatrC[str,0];
      for stb:=1 to Range-1 do
        begin
          if Min>MatrC[str,stb] then Min:=MatrC[str,stb]
        end;
      Vector[1,str]:=Min
    end;
  for str:=0 to Range-2 do
    for xstr:=str+1 to Range-1 do
      begin
        if Vector[1,str]>Vector[1,xstr] then
          begin
            Min:=Vector[1,xstr];
            idx:=Vector[0,xstr];
            Vector[1,xstr]:=Vector[1,str];
            Vector[0,xstr]:=Vector[0,str];
            Vector[1,str]:=Min;
            Vector[0,str]:=idx
          end
      end;
  writeln;
  writeln('Sorting MatrixA');
  writeln;
  for str:=0 to Range-1 do
    begin
      for stb:=0 to Range-1 do
        begin
          MatrA[str,stb]:=MatrC[Vector[0,str],stb];
          write(' ',MatrA[str,stb])
        end;
      writeln
    end;
  MulMatr(MatrC,MatrA,MatrB);

  writeln;
  writeln;
  writeln('Press key "ENTER"');
  readln
END.

Как заменить Range на
n_max=число;
m_max=число;
И почему вместо n и m написано Range-1????
И вообще кто-нибудь может написать коментарии к программе? Просто я вообще не понимаю что к чему? Особенно с векторами?
Да, и желательно пояснить что такое xstr, FillChar(Vector,SizeOf(Vector),0);

[Базиля]

Для начала было бы неплохо дать условие задачи

[Яна Сафронова]

1)Ввести матрицу А и матрицу В
2)Перемножить матрицу А и матрицу В (С=А*В)
3)Вывести матрицу С
4)Переставить строки в матрице А в соответствии в возрастанием минимальных элементов строк.
5) Перемножить отсортированую матрицу А с той же матрицей В
(С=А(отсортированая)*В)
6) Вывести эту матрицу С
Зарание спасибо!!!

[Базиля]

Яна Сафронова
Тебе к какому дню нужно? Просто чет я посмотрел в коде, как я догадался не ты писала. Много ненужного, не понимаю для чего это писал человек, наверное чтобы выпендриться и как-будто запутать тебя.(хотя я возможно ошибаюсь, каждый так сказать пишет по своему)
В общем могу написать завтра тебе внятный код со всем комментариями, если будет не поздно
P.S. по условию о файлах ни слова, к чему использован файл в коде?

[Яна Сафронова]

Будет очень прекрасно Базиля!!! Спасибо!!! Только вот единственное не надо использовать такие функции как uses crt, тип byte,boolean, вообщем как можно проще... И обязательно все сделать с процедурами и функциями...

[ROMA2PVT]

Program Matrix;
begin
writeln('ПРЕЯТНО ПОЗНАКОМИТЬСЯ ЭТО МАТРИЦА');
end.

Самое простое.

[Яна Сафронова]

Очень смешно, ROMA2PVT!!! Ну я же серьезно!!! :о)

[Grag]

Сообщение от Базиля

Яна Сафронова
Много ненужного, не понимаю для чего это писал человек, наверное чтобы выпендриться и как-будто запутать тебя.

Значит так, Базиля! Эту программу писал я и мне интересно, что там лишнего ты нашел... Если ты чего и не понимаешь, то это еще не говорит о том, что там есть что-то, не понятное другим. Покажи мне хоть одну программу, сделанную тобой лично. А то что ТС разместила неотформатированный код - то это уже не мои проблемы...
С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru

[MaxNik2009]

Яна СафроноваИ вообще кто-нибудь может написать коментарии к программе?

Ну автор уже нашелся, проси его , может и поможет.

Grag Эту программу писал я

[Grag]

Уже написал. Просто комментарии не писал для ускорения процесса создания программы и чтобы быстрее показать ТС экзешник для выявления недоделок и замечаний... От ответов на вопросы и оказания помощи не отказывался... Если у ТС проблемы с пониманием простейших операций, то уж извините, не моя в том вина...