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.
{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.
-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.