Code:
PROGRAM NizBrojeva (input,output);
const
DuzinaReda=10;
BrojKolona=7;
TYPE
pokazivac=^ElementListe;
ElementListe=RECORD
broj:integer;
sledeci:pokazivac
END;
VAR
poslednji:pokazivac;
novi:pokazivac;
prvi:pokazivac;
prazan_red:boolean;
broj_podataka:integer;
BEGIN
poslednji:=NIL;
REPEAT
prazan_red:=true;
write(output, 'Unesite sledeci broj:');
WHILE NOT eoln DO
[b] BEGIN
new(novi);
read(novi^.broj);
novi^.sledeci:=poslednji;
poslednji:=novi;
prazan_red:=false
END;[/b]
readln
UNTIL prazan_red;
broj_podataka:=0;
prvi:=poslednji;
WHILE prvi<>NIL DO
BEGIN
[b]write(output, prvi^.broj:BrojKolona);
prvi:=prvi^.sledeci;[/b]
broj_podataka:=broj_podataka+1;
IF (broj_podataka mod DuzinaReda)=0 THEN writeln (output)
END;
IF(broj_podataka mod DuzinaReda)<>0 THEN writeln(output);
prvi:=poslednji;
WHILE prvi<>NIL DO
BEGIN
poslednji:=prvi^.sledeci;
dispose(prvi);
prvi:=poslednji
END
END.
PROGRAM NizBrojeva (input,output);
const
DuzinaReda=10;
BrojKolona=7;
TYPE
pokazivac=^ElementListe;
ElementListe=RECORD
broj:integer;
sledeci:pokazivac
END;
VAR
poslednji:pokazivac;
novi:pokazivac;
prvi:pokazivac;
prazan_red:boolean;
broj_podataka:integer;
BEGIN
poslednji:=NIL;
REPEAT
prazan_red:=true;
write(output, 'Unesite sledeci broj:');
WHILE NOT eoln DO
[b] BEGIN
new(novi);
read(novi^.broj);
novi^.sledeci:=poslednji;
poslednji:=novi;
prazan_red:=false
END;[/b]
readln
UNTIL prazan_red;
broj_podataka:=0;
prvi:=poslednji;
WHILE prvi<>NIL DO
BEGIN
[b]write(output, prvi^.broj:BrojKolona);
prvi:=prvi^.sledeci;[/b]
broj_podataka:=broj_podataka+1;
IF (broj_podataka mod DuzinaReda)=0 THEN writeln (output)
END;
IF(broj_podataka mod DuzinaReda)<>0 THEN writeln(output);
prvi:=poslednji;
WHILE prvi<>NIL DO
BEGIN
poslednji:=prvi^.sledeci;
dispose(prvi);
prvi:=poslednji
END
END.
Tacnije, treba mi objasnjenje za ovaj boldovani deo. Inace, program ucitava niz celih brojeva iz proizvoljnog broja redova i posle ih ispisuje po suprotnom redosledu.
Hvala unapred!