Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoc oko zadatka

[es] :: Pascal / Delphi / Kylix :: Pomoc oko zadatka

[ Pregleda: 2189 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Alexandar90
Aleksandar Bukvić
Bežanijska Kosa, NBgd

Član broj: 177092
Poruke: 16
79.101.203.*



Profil

icon Pomoc oko zadatka05.08.2009. u 20:39 - pre 178 meseci
Da li neko moze da mi malo razjasni sledeci kod:

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.


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!
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Pomoc oko zadatka05.08.2009. u 22:13 - pre 178 meseci
> Tacnije, treba mi objasnjenje za ovaj boldovani deo.

Metoda New alocira memoriju za novi record, ucitava broj, povezuje novi element sa prethodnim i dalje možeš sam.
Inače, ovo je užasno loš kod i stoga težak za razumevanje, Sledeci zapravo pokazuje na prethodni elemenat niza i stoga mu treba dati adekvatan naziv, Prethodni recimo.

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pomoc oko zadatka

[ Pregleda: 2189 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.