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

Problem sa Pascal-om

[es] :: Pascal / Delphi / Kylix :: Problem sa Pascal-om

[ Pregleda: 2294 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

pirgos_madden
Pirgos Madden
Pirot

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

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


Profil

icon Problem sa Pascal-om16.04.2005. u 20:29 - pre 209 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

icon Re: Problem sa Pascal-om16.04.2005. u 21:15 - pre 209 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

icon Re: Problem sa Pascal-om16.04.2005. u 22:34 - pre 209 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!
-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

[es] :: Pascal / Delphi / Kylix :: Problem sa Pascal-om

[ Pregleda: 2294 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

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