Pascal - Procedury i funkcje

Tworzenie tablicy

Tworzenie tablicy
Pascal - Procedury i funkcje

Program: tworzący tablicę dwuwymiarową.

Rozmiar tablicy dwuwymiarowej został zdefiniowany w kodzie – użytkownik podaje tylko wartości, po czym tablica zostaje wyświetlona w formie macierzy.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program tabela;
uses crt;
var
tab : array[1..6,1..4] of integer;
procedure wczytaj;
var i,k : Byte;
begin
for i:=1 to 4    do
begin
     for k:=1 to 4 do
     begin
          Write('Wprowadz liczbe na kol. ',k,' w wierszu ',i,': ');
          Read(tab[i][k]);
     end;
end;
end;
procedure wypisz;
var i,k,o : Byte;
begin
for i:=1 to 6 do
begin
     for k:=1 to 4 do Write(tab[i][k],' | ');
     writeln;
end;
end;
begin
clrscr;
wczytaj;
wypisz;
readkey;
end.