Пожалуйста, помогите решить задачу с Динам-и массивами, Не могу написать программу( Опции

[VovaNs]

Даны три матрицы целого типа произвольной размерности(размер вводится пользователем). Для каждой матрицы отсортировать столбцы в порядке возрастания их максимальных элементов(модерницированным методом пузырька). Предусмотреть обработку ошибок и удобный интерфейс. Прошу помогите....

Добавлено через 4 мин.
Программу нужно написать на языке Паскаль

[VovaNs]

Вообщем своими усилиями сделал программу....никто так и не помог( но у меня еще вопрос, нашел готовый код внешнего интерфейса от Volvo , в процедуру вбиваю свой код программы...но...выдает ошибку...не пойму почему вот код:

{$S+}
program Prog4;
uses crt;
Type
   MenuType = (Vertical, Horizontal);

const
   width = 12;    nItems = 4; 

   optText1: array[0 .. pred(nItems)] of string = (
     'Option #1', 'Option #2', 'Option #3', 'Exit'
   );

   optNormal = LightGray; 
   optSelected = Yellow;  

var
   X, Y,
   selected, 
   row: integer;
   _style: menuType;  


procedure MakeMenu (optText: array of string; MaxItems: integer);
var
   i, _X: byte;
begin
     Y := row;
     _X := X;
     for i := 0 to MaxItems-1 do
     begin
          GoToXY (_X, Y);
          if i = selected then
             TextColor (optSelected)
          else
             TextColor (optNormal);
          write (optText[ i ]);

          If _style = Horizontal Then
            inc (_X, width + 1)
          Else
            inc (Y, 2);
     end;
end;

function MenuOption (optText: array of string; MaxItems: integer): byte;
var
   ch: char;
begin
   selected := 0;

   If _style = Vertical Then Begin
     X := (80 - width) div 2;
     row := (25 - MaxItems) div 2;
   End
   Else Begin
     X := (80 - MaxItems * width) div 2;
     row := 2; 
     GotoXY(1, row); ClrEol;
     End;

     repeat
           MakeMenu (optText, MaxItems);

           ch := readkey;
           if ch = #0 then
              ch := readkey;

           case ch of
           #80, #77: {Down/Right}
           begin
                inc (Selected);
                if Selected = MaxItems then
                   Selected := 0;
                MakeMenu (optText, MaxItems);
           end;

           #72, #75: {Up/Left}
           begin
                dec (Selected);
                if Selected < 0 then
                   Selected := MaxItems-1;
                MakeMenu (optText, MaxItems);
           end;
           end;
     until ch = #13; {Enter}
     MenuOption := Selected + 1;
     TextColor (optNormal);
     If _style = Vertical Then
        clrscr;
end;

type
  atype = array [1..90,1..90] of integer;
  btype = array [1..90] of integer;

procedure Proc_1;
var 
  a22:atype;
  b22:btype;
  i22,j22,i1,j1,n22,max,n2,min,c22,k22,q22,o22:integer;
begin {Proc_1}
  ClrScr;
  Write('Vvedite razmernost (n>0). n=');
  Readln(n22);
  writeln('Vvedite Matrisu A:');
  for i22:=1 to n22 do
    for j22:=1 to n22 do begin
      Write('Vvedite element Matristy a[',i22,',',j22,']=');
      readln(a22[i22,j22]);
    end;
  for i22:=1 to n22 do begin
    for j22:=1 to n22 do
      write(a22[i22,j22]:3);
    writeln;
  end;
  Writeln;

  for j22:=1 to n22 do begin
    max:=a22[1,j22];
    for i22:=1 to n22 do
      if a22[i22,j22]>max then
        max:=a22[i22,j22];
    writeln('Maximalnuj element ',j22,' stolbtsa = ',max) ;
    b22[j22]:=max;
  end;

  for k22:=1 to n22-1 do
    for j22:=1 to n22-k22 do
      if (b22[j22]>b22[j22+1]) then
  begin
    for i22:=1 to n22 do
    begin
      c22:=a22[i22,j22];
      a22[i22,j22]:=a22[i22,j22+1];
      a22[i22,j22+1]:=c22;
    end;
    c22:=b22[j22];
    b22[j22]:=b22[j22+1];
    b22[j22+1]:=c22;
  end;
  Writeln;
  Writeln('Otsortirovannya Matrista A: ');
  for i22:=1 to n22 do begin
    for j22:=1 to n22 do write(a22[i22,j22]:3);
    writeln;
  end; 
  ReadLn;
end;

procedure Proc_2;
begin
  ClrScr;
  WriteLn('#2 selected ...');
  ReadLn;
end;

procedure Proc_3;
begin
  ClrScr;
  WriteLn('Other selected ...');
  ReadLn;
end;

var
  Option: byte; 

begin
     _style := Vertical;
     repeat
       clrscr;
       Option := MenuOption (optText1, nItems);
       case option of
         1: Proc_1;
         2: Proc_2;
         3: Proc_3;
       end;
     until Option = nItems;
end.

Посмотрите плиз( (другие процедуры не удалял, решил оставить пока что все как есть)

Сообщение отредактировано: Lapp - 17.03.2009 4:26