Матрица, задача. Опции

[Carola]

Ещё одна..Последняя зачётная задачка...Решить подробно и полностью.Расцелую всех.

Ввести размерность матрицы и значения ее элементов. Построить вектор В, где В(i) - максимальное значение в i-ом столбце.

Задание второе....(сперва решить,а потом это)

Сделать в виде МЕНЮ.(очень нужно)

1. Ввод данных
2. Ввод массива
3. <задание по лабе>
4. ....
0. Выход

после нажатия цифры на клавиатуре я должна перейти к указанному действию, после выполнения которого вернуться в меню.

Сообщение отредактировано: Carola - 15.12.2005 1:46

[klem4]

вот посмотри, набросал, далеко не идеально, но думаю поможет тебе разобраться что к чему ...

uses crt;
const
   n=3;
type
   TVector = array[1..n] of integer;
   TMatrix = array[1..n] of TVector;
var
   vector : TVector;
   matrix : TMatrix;
   quit : boolean;

procedure InputMatrix(var x : TMatrix);
var
   i,j : byte;
begin
   for i := 1 to n do
    for j := 1 to n do begin
       write('x[',i,',',j,']=');
       readln(x[i,j]);
    end;

    writeln;
    writeln('Input Done');
    readln;
end;

procedure PrintMatrix(x : TMatrix);
var
  i,j : byte;
begin
   clrscr;
   for i := 1 to n do begin
      writeln;
      for j := 1 to n do
       write(x[i,j]:3,' ');
   end;

   writeln;
   writeln('Print Done');
   readln;
end;

function GetMax(var x : TMatrix; col : byte) : integer;
var
   i : byte;
   max : integer;
begin
   max := 1;
   for i := 2 to n do
    if x[i,col] > x[max, col] then
     max := i;
   GetMax := x[max,col];

end;

procedure GetVector(var v : TVector; x : TMatrix);
var
   j : byte;
begin
   for j := 1 to n do
    v[j] := GetMax(x,j);

   writeln;
   writeln('Get Vector Done');
   readln;
end;

procedure PrintVector(v : TVector);
var
   i : byte;
begin
   clrscr;
   for i := 1 to n do
    writeln('v[',i,']=',v[i]);

   writeln;
   writeln('Print Vector Done');
   readln;
end;

procedure Menu(var q : boolean);
var
   choice : char;
begin
   clrscr;
   writeln('1 -> Input Matrix');
   writeln('2 -> Print Matrix');
   writeln('3 -> Get Vector');
   writeln('4 -> Print Vector');
   writeln;
   writeln('0 -> Quit');

   repeat
      choice := readkey;
   until choice in ['0'..'4'];

   case choice of
    '1' : InputMatrix(matrix);
    '2' : PrintMatrix(matrix);
    '3' : GetVector(vector, matrix);
    '4' : PrintVector(vector);
    '0' : quit := true;
   end;

   exit;
end;

begin
   clrscr;
   quit := false;
   while not(quit) do Menu(quit);
end.