Pascal - Procedury i funkcje

Maksymalny element tablicy

Maksymalny element tablicy
Pascal - Procedury i funkcje

Program: wyszukujący maksymalny element tablicy, jak i jego pozycję.

Program w którym użytkownik wprowadza elementy tablicy dwuwymiarowej (uprzednio wybierając ilość wierszy jak i kolumn) po czym program wskazuje element maksymalny jak i jego pozycję.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program zad5;
uses crt;
var
  tab : array[1..100,1..100] of integer;
  n,m,mx,my:integer;
procedure wczytaj;
 var i,k:integer;
  begin
   Writeln('Wprowadz liczbe n okreslajaca wielkosc boku tablicy: ');
   Read(n);
   for i:=1 to n do
     begin
       for k:=1 to n do
         begin
              Writeln('Wprowadz element na pozycji [',i,',',k,']: ');
              Read(tab[i,k]);
         end;
     end
  end;
procedure maks;
var i,k:integer;
 begin
  for i:=1 to n do
   begin
    for k:=1 to n do
     begin
          if tab[i,k]>m then
             begin
                  m:=tab[i,k];
                  mx:=i;
                  my:=k;
             end;
     end;
   end;
 end;
procedure wypisz;
 var
    i,k:integer;
 begin
      for i:=1 to n do
          begin
               for k:=1 to n do
                begin
                 if tab[i,k]=m then write(tab[i,k]:6,'<-')
                 else write(tab[i,k]:6);
                end;
               writeln;
          end;
   Writeln('Element maksymalny znajduje sie na pozycji [',mx,',',my,']');
 end;
procedure obrot;
 var
    i,k : integer;
    pomoc : array[1..100] of integer;
    pomoc2 : array[1..100] of integer;
 begin
    for i:=1 to n do pomoc[i]:=tab[mx,i];
    for i:=1 to n do pomoc2[i]:=tab[i,my];
    for i:=1 to n do tab[mx,i]:=pomoc2[i];
    for i:=1 to n do tab[i,my]:=pomoc[i];
    for i:=1 to n do
     begin
       for k:=1 to n do write(tab[i,k]:6);
       writeln;
     end;
 end;
begin
     clrscr;
     wczytaj;
     maks;
     wypisz;
     obrot;
     readkey;
end.