ulaz>sortiranje>izlaz

Code:

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.

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.

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.

Code:

{
PROGRAM: QuickSort
SLOZENOST: O(N log N)
}
program QuickSort;
const
  MaxN = 1000;
var
  a: array [1.. MaxN] of LongInt;
  n: LongInt;
  f, g: Text;

  procedure InPut;
  begin
    Assign (f,'niz.in');
    Reset (f);
    Read (f, n);
    for i := 1 to n do Read (f, a [i]);
    Close (f);
  end;

  procedure Sort (l, d: LongInt);
  var
    tmp, pivot, i, j: LongInt;
  begin
    if (l < d) then begin
      pivot := a [(l + d) DIV 2];
      i := l; j := d;
      repeat
        while (a [i] < pivot) do Inc (i);
           while (a [j] > pivot) do Dec (j);
           if (i <= j) then begin
             tmp := a [i]; a [i] := a [j]; a [j] := tmp;
             Inc (i); Dec (j);
           end;
      until (i > j);
      Sort (l, j);
      Sort (i, d);
    end;
  end;

  procedure OutPut;
  var
    i: LongInt;
  begin
    Assign (g, 'niz.out');
    ReWrite (g);
    for i := 1 to n do Write (g, a[ i], ' ');
    Close (g);
  end;

begin
  InPut;
  Sort (1, n);
  OutPut;
end.

Code:
procedure Button1Click(Sender: TObject);
var
  S: TStringList;
begin
  S := TStringList.Create;
  S.LoadFromFile(ImeFajla);
  S.Sort;
  S.SaveToFile(ImeFajla);
  S.Free;
end;

Code:

var
 f:text;
 niz: array[1..100] of string;
 i,j, duz: integer;
 t: String;
begin
 assign(f, 'ulaz.txt');
 reset(f);
 duz:=0;
 while not eof(f) do
  begin
    inc(duz);
    readln(f, niz[duz]);
  end;
  close(f);
  for i := duz-1 downto 1 do
    for j := 1 to i do
     if niz[j]>niz[j+1] then
       begin
         t := niz[j];
         niz[j]:= niz[j+1];
         niz[j+1] := t;
       end;
  assign(f,'izlaz.txt');
  rewrite(f);
  for i := 1 to duz do
    writeln(f, niz[i]);
  close(f);
end.

Code:

program sortiranje;
uses crt;
var i,j,n:integer;
    ime,prezime,t:array [1..50] of string;
begin
clrscr;
writeln('Koliko osoba:');
readln(n);
clrscr;
for j:=1 to n do
begin
clrscr;
writeln(j,'.ime:');
readln(ime[j]);
writeln(j,'.prezime:');
readln(prezime[j]);
end;

for i:=n-1 downto 1 do
for j:=1 to i do
begin
if ime[j]>ime[j+1] then
begin
t[j]:=ime[j];
ime[j]:=ime[j+1];
ime[j+1]:=t[j];
end;
end;

clrscr;
for i:=n-1 downto 1 do
for j:=1 to i do
begin
if prezime[j]>prezime[j+1] then
begin
t[j]:=prezime[j];
prezime[j]:=prezime[j+1];
prezime[j+1]:=t[j];
end;
end;


for j:=1 to n do
begin
writeln(ime[j]);
writeln(prezime[j]);
end;



readln;
end.