[es] - jednostruko spregnuta lancana lista

milos04
Milos Dinic
Beograd

Član broj: 239403
Poruke: 17
*.adsl.eunet.rs.

Profil

jednostruko spregnuta lancana lista - pascal

^{27.12.2009. u 11:29 - pre 186 meseci}

iz datoteke treba ocitati drzavu, pdv, carinsku stopu i cenu. kako da ucitam sve to ul lancanu listu?
ja sam probao ovako, ali nece

Code:
program citanje;

Type    automobil = record
        drzava: string[30];
        PDV: double;
        cs: double;
        cena: double;
        end;

        listpok = ^listzapis;
        listzapis = record
        zap: automobil;
        next: listpok;
        end;



var    f: file of automobil;
        glava, novi, posl,pok:listpok;
        podat: listzapis;
        unos:integer;

begin
assign(f, 'dz5.dat');
reset(f);

posl:=nil;
glava:=nil;
        while not eof(f) do
        begin
        read (f, podat);
                new(novi);
                novi^.next = nil;
                novi^.zap =podat.zap;
                if glava = nil then
                        glava:= novi
                        else
                        posl^.next := novi;
                        posl :=novi
        end;
close(f);
end.

Odgovor na temu

tkaranovic
Tomislav Karanović
Beograd

Član broj: 220507
Poruke: 307

+18 Profil

Re: jednostruko spregnuta lancana lista - pascal

^{27.12.2009. u 14:22 - pre 186 meseci}

Vrlo malo fali da (pro)radi:

Citat:

read (f, podat.zap);
new(novi);
novi^.next := nil;

Stavio sam tagove za citat da se vidi obojen deo koji nedostaje.

Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
93.86.201.*

+62 Profil

Re: jednostruko spregnuta lancana lista - pascal

^{04.01.2010. u 14:41 - pre 186 meseci}

Hm, nece biti da je to problem...

Autor je pomesao record za bazu automobil ('file of automobil') sa pointerom na record za listu listpok.

Dakle, u pocetnom kodu menja se deklaracija varijable podat u

Code:

podat: automobil;

Ostatak koda nisam proveravao, ali ovo iznad je bas strcalo; nije bilo govora o nekakvom citanju fajla.

Pozz

Rajko

Odgovor na temu

tkaranovic
Tomislav Karanović
Beograd

Član broj: 220507
Poruke: 307

+18 Profil

Re: jednostruko spregnuta lancana lista - pascal

^{05.01.2010. u 02:09 - pre 186 meseci}

Citat:

Rapaic Rajko:
Autor je pomesao record za bazu automobil ('file of automobil') sa pointerom na record za listu listpok.

To sam i ja napisao:

Citat:

Rapaic Rajko:
Dakle, u pocetnom kodu menja se deklaracija varijable podat u

Code:

podat: automobil;

Ako ostane:

Code:

podat: listzapis;

onda se sa:

Code:

read (f, podat.zap);

čita (isto) automobil.

Odgovor na temu