sunsetting
Mam takie zadanie. Muszę tak prze formatować ten program, aby wypisywał elementy kolumnami, a nie wierszami.
Kod: PROGRAM Tablica;
USES Crt;
CONST
maxrows=20; {wiersze}
maxcols=20; {kolumny}
VAR
i,j, {zmienne kontorlne pętli}
m,n {rozmiar tablicy}:Integer;
tab:ARRAY[1..maxrows, 1..maxcols] OF Integer;
BEGIN
WriteLN('Podaj dwie liczby rozdzielone spacją, okreslające rozmiar tablicy');
Read(m,n);
Write('Podaj elementy tablicy w kolejności');
WriteLn('wiersz po wierszu');
FOR i:=1 TO m DO
FOR j:=1 TO n DO
Read(tab[i,j]);
ClrScr;
WriteLn('Wczytano następujące elementy tablicy');
WriteLn;
FOR i:=1 TO m DO
FOR j:=1 TO n DO
WriteLn(tab[i,j]);
WriteLn;
ReadLn;
ReadLn;
END.
No i tutaj chciał bym prosić chociażby o małą podpowiedź, bo za bardzo nie wiem jak to zrobić, żeby wyświetlało elementy tabeli kolumnami.
zmień 5 linijke od końca z WriteLn(tab[i,j]); na WriteLn(tab[j,i]); i w 2 ostatnich pętlach zakres tablicy zmień miejscami m i n bo to co było wcześniej kolumną teraz będzie wierszem i odwrotnie