pascal tablice dwu wymiarowe

[Eryk.]

hej

mam problem gdyz mam zadanie zrobic tablice dwuwymiarową ktora zostanie wypelniona losowymi liczbami. z tablicami nie mialem nigdy doczynienia, na internecie nie moge znalesc profesjonalnej odpowiedzi. jak ktoś wie jak to zrobic proszę o komentarze obok kodu źródłowego. dziekuje

[fajfuno]

Łap :P

uses crt; {dodatkowe moduły ten miedzy innymi do czyszczenie ekranu}
type {robisz tablice}
tablica=array[1..5,1..3]of integer;
var {deklarujesz zmienne}
tab:tablica;
i,j:integer;

begin {start}
clrscr; {czysci ekran}
randomize; {random generuje losowe liczby}
for i:=1 to 5 do {wypelnia kolumne}
 begin {start wypelniania kolumny}
  for j:=1 to 3 do {wypelnia wiersz}
	begin {start wypelniania wierszy}
	 tab[i,j]:=random(10)+1; {wypelniasz tablice random od  1 do 10}
	 write(tab[i,j]:3, ''); {wypisujesz tablice}
	end; {koniec wpelniania wierszy}
  writeln; {odstep zeby ladnie wygladalo}
 end; {koniec wypelniania kolumn}
readln; {zatrzymuje ekran na wyswietlonej tablicy}
end. {koniec}

 

wygląda to mniej więcej tak:

1 2 3

4 5 6

7 8 9

10 11 12

13 14 15

 

wystarczająco opisane?