[es] - Problem sa Pascal-om

pirgos_madden
Pirgos Madden
Pirot

Član broj: 16752
Poruke: 322
*.ptt.yu.

Jabber: Programing
Sajt: www.pirot-mafia.co.sr

Profil

Problem sa Pascal-om

^{16.04.2005. u 20:29 - pre 231 meseci}

Ovo sam primetio ranije ali sam eto tesio sebe recima da se masina "zaglupela". Eto cekao sam trenutak da se to ponovo dogodi da bih zatrazio pomoc. Naime, evo najpre koda (Quick Sort algoritam jer prostije stvari nisam mogao da se setim sto bi javljalo ovu gresku).

Code:

{Implementacija Quick Sort algoritma}
program Sort;

var niz:array [1..1000] of integer;
n:integer;

procedure ReadInput;
var fin:text;
i:integer;
begin
assign(fin,'sort.txt');
reset(fin);
readln(fin,n);
for i:=1 to n do read(fin,niz[i]);
close(fin);
end;

procedure Razmeni(var a,b:integer);
var pom:integer;
begin
pom:=a;
a:=b;
b:=pom;
end;

procedure QuickSort(levi,desni:integer);
var i,j,d:integer;
begin
if levi<desni then begin
  i:=levi;
  j:=desni;
  d:=niz[desni];
  repeat
   while niz[i]<d do i:=i+1;
   while (niz[j]>=d) and (i<j) do j:=j-1;
   if i<j then Razmeni(niz[i],niz[j]);
  until i=j;
  Razmeni(niz[i],niz[desni]);
  QuickSort(levi,i-1);
  QuickSort(j+1,desni);
end;
end;

procedure WriteOutput;
var i:integer;
begin
for i:=1 to n do write(niz[i],' ');
readln;
end;

BEGIN
ReadInput;
QuickSort(1,n);
WriteOutput;
END.

Kada u fajl sort.txt upisem oko 1000 brojeva program normalno odradi i ispise sortiran niz bez problema (bilo na ekran bilo u fajl). E sad, ako upisem npr. 1200 brojeva u fajl izadje nepotpun niz (otprilike kao da ne moze vise od 5 KB da ispise u fajl) a ako zahtevam da mi ispise na ekran u samom editoru izadje greska "File not open for input".
Ima li neko ideju u cemu je stvar?

-I srusise se nasi divni snovi !!!
-NATO is bombing Serbia, a Yugoslavian republic, to stop the Serbs from forcing ethnic Albanians from Kosovo. Serb supporters sock it to NATO, U.S. Web sites. Magis says NATO headquarters won't launch an electronic counterstrike. "We want to show we're more civilized," he says. "We believe in freedom of speech." NATO is even discussing the possibility of hosting Serbian information on the Web so the Serbs can share their views.

Odgovor na temu

broker

Član broj: 2415
Poruke: 8514
212.62.59.*

+11 Profil

Re: Problem sa Pascal-om

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

Koliko vidim niz je array od 1000 slogova. Sasvim je normalno da ne moze da primi vise slogova.

Da nisi nesto ispustio u kodu posto ne vidim nigde da je dodeljena vrednost globalnoj promenljivoj n. Ona bi trebala da sadrzi duzinu niza.

Ako hoces da sortiras neogranicen broj slogova onda si trebao da koristis dinamicku listu.

Odgovor na temu

pirgos_madden
Pirgos Madden
Pirot

Član broj: 16752
Poruke: 322
*.ptt.yu.

Jabber: Programing
Sajt: www.pirot-mafia.co.sr

Profil

Re: Problem sa Pascal-om

^{16.04.2005. u 22:34 - pre 231 meseci}

Jao, da bre! Pa niz sam stavio da bude [1..1000] ... eto a mislio sam da koliko sutra menjam komp

izgleda da sam pospan malo ... Hvala!

Odgovor na temu