[es] - Pascal :: Pisanje u fajl

Divjak
Vladimir Divjak
Student

Član broj: 4783
Poruke: 535
*.zrenjanin.beotel.net.

+1 Profil

Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 17:32 - pre 231 meseci}

Radi se o zadatku za takmicinje, i radi sasvim lepo za manju kolicinu teksta, ali za najkomplikovaniji primer (od 50 000) redova, ne ispise nista...
zasto?
Da li postoji neko ogranicenje?

And don't be mad at me for crying for humanity,
call it pretensions but I got good intentions,
to keep my sanity, I'm hoping, fuck, there's gotta be
an answer to their strategies and their evil inventions... ~Looptroop

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 17:36 - pre 231 meseci}

Postuj kod gde mislis da je problem. Ili ceo, ako nije dugacak.

Odgovor na temu

Divjak
Vladimir Divjak
Student

Član broj: 4783
Poruke: 535
*.zrenjanin.beotel.net.

+1 Profil

Re: Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 17:39 - pre 231 meseci}

Code:

PROGRAM BICIKLISTI;

VAR
        POZ     :array[1..10000] of integer;
        TAK     :array[1..10000] of integer;
        BRT     :integer;
        BRP     :longint;
        SWAP,P,i:integer;

        PROCEDURE MAIN;

        VAR
                fi      :text;
                fo      :text;
                PROCEDURE SETUP;
                BEGIN
                  for i:=1 to BRT do begin
                  POZ[i]:=i;
                  TAK[i]:=i;
                end;
                END;
        BEGIN
                assign(fi,'biciklisti.dat');
                reset(fi);
                read(fi,BRT);
                readln(fi,BRP);
                SETUP;
                for i:=1 to BRP do begin
                        readln(fi,P);
                        SWAP:=TAK[POZ[P]-1];
                        TAK[POZ[P]-1]:=P;
                        TAK[POZ[P]]:=SWAP;
                        dec(POZ[P]);
                        inc(POZ[POZ[P]]);
                end;
                close(fi);
                assign(fo,'biciklisti.res');
                rewrite(fo);
                for i:=1 to BRP+1 do writeln(fo,TAK[i]);
                close(fo);

        END;
BEGIN
MAIN;
END.

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 17:43 - pre 231 meseci}

Pogledaj na koliko su ti dimenzionisani nizovi. (Ovo ce da ti radi samo do 10000)

Odgovor na temu

Divjak
Vladimir Divjak
Student

Član broj: 4783
Poruke: 535
*.zrenjanin.beotel.net.

+1 Profil

Re: Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 17:58 - pre 231 meseci}

da, da imam obicaj da izmesam promenljive...
hvala...

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 18:01 - pre 231 meseci}

Pa neces moci da ga dimenzionises na 50000. Suvise je to lako da bi proso kao zadatak za takmicenje. Ako nije problem daj zadatak da i mi vidimo.

Odgovor na temu

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.vdial.verat.net.

+1 Profil

Re: Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 18:33 - pre 231 meseci}

Ili optimizuj kod, da radi sa jednom matricom, ili koristi heap, tj. dinamicko alociranje. I jos nesto, ako su ti u matrici snimljene pozicije biciklista, integer won't do sa 50K takimcara (u obicnom paskalu) - 32767. Ako su ti oni zadali res fajl, proveri da li je bas Integer, cisto sumnjam ako je takmicara 50K. Unsigned mozda?

Odgovor na temu

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.vdial.verat.net.

+1 Profil

Re: Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 19:10 - pre 231 meseci}

Ako neces heap i dinamicku alokaciju, mozda bi mogao bi i da koristis sekvencijalnu obradu, ako je moguce u tvom slucaju(ne znam zadatak). Sistem bi bio da deo po deo obradjujes podatke i upisujes u fajl (npr. 10K po 10K).

Odgovor na temu

broker

Član broj: 2415
Poruke: 8514
212.62.59.*

+11 Profil

Re: Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 21:21 - pre 231 meseci}

Savet: izbegavaj globalne promenljive osim kada imaju smisla, to jest kada se korisite kao globalni parametri i evenutlano ako su parametri koji seprenose izmedju razlicitih unita.

I uvek inicijalizuj promenljive.

Odgovor na temu

Divjak
Vladimir Divjak
Student

Član broj: 4783
Poruke: 535
*.zrenjanin.beotel.net.

+1 Profil

Re: Pascal :: Pisanje u fajl :: problem...

^{16.04.2005. u 23:05 - pre 231 meseci}

Ima 10 000 takmicara, 50 000 instrukcija, nije htelo da radi jer sam imao gresku u kodu...
Sad sasvim lepo radi...

hvala svima...

Odgovor na temu