ulaz>sortiranje>izlazCode:
program ulaz;
uses crt;
var a:file;
b:string;
begin
clrscr;
assign(a,'c:\podaci.txt');
reset(a);
read(a,b);
write(b);
close(a);
readln;
end.
program ulaz;
uses crt;
var a:file;
b:string;
begin
clrscr;
assign(a,'c:\podaci.txt');
reset(a);
read(a,b);
write(b);
close(a);
readln;
end.
Ovo sortiranje podataka:
Code:
program sortiranje;
uses crt;
var i,j,n:integer;
t,y:string;
begin
clrscr;
writeln('koliko imena:');
readln(n);
for j:=1 to n do
begin
readln(y[j]);
end;
for i:=n-1 downto 1 do
for j:=1 to i do begin
if y[j]>y[j+1] then
begin
t[j]:=y[j];
y[j]:=y[j+1];
y[j+1]:=t[j];
end;
end;
for j:=1 to n do
begin
writeln(y[j]);
end;
readln;
end.
program sortiranje;
uses crt;
var i,j,n:integer;
t,y:string;
begin
clrscr;
writeln('koliko imena:');
readln(n);
for j:=1 to n do
begin
readln(y[j]);
end;
for i:=n-1 downto 1 do
for j:=1 to i do begin
if y[j]>y[j+1] then
begin
t[j]:=y[j];
y[j]:=y[j+1];
y[j+1]:=t[j];
end;
end;
for j:=1 to n do
begin
writeln(y[j]);
end;
readln;
end.
Code:
A ovo bi bio ispis:
program izlaz;
uses crt;
var a:file;
b:string;
begin
clrscr;
assign(a,'c:\podaci.txt');
reset(a);
seek(a, filesize(a));
write(a, sortirane podatke);
readln;
end.
A ovo bi bio ispis:
program izlaz;
uses crt;
var a:file;
b:string;
begin
clrscr;
assign(a,'c:\podaci.txt');
reset(a);
seek(a, filesize(a));
write(a, sortirane podatke);
readln;
end.
Sad me zanima onaj prvi kod...kako ucitati podatke iz datoteke od prvog reda pa do zadnjega (while not (eof) blabla) te ih pritom odmah sortirati, te staviti u izlaz.txt-to ce onda vjerovatno biti rewrite(izlaz) jer ne postoji...Znaci ova tri programa stavit cu u jedan pa ce biti 3 procedure, i onda ih u glavnom dijelu pozvati po redu???
Znaci pitanje je kako ucitati podatke iz prvog do zadnjeg reda te ih pritom odmah sortirati..
