DUzun's Web
Programare, proiecte personale, divertisment

Program SortTxt;

(*--------------------------------------------------------

  In fisierul 'BAC.txt' se afla mai multe numere naturale

  din cate cel mult trei cifre fiecare.

  Numerele sunt separate prin spatii.

  Scrieti un program care creaza un alt fisier 'BAC2.txt'

  care sa contina aceleasi numere din fisierul 'BAC.txt',

  cate unul pe linie, in ordinea crescatoare a valorilor

  acestora.

  --------------------------------------------------------*)

uses crt;

var fin, fout: text;

    list: array[0..1000] of word;

    n, i, j, k: word;

​

procedure genbactxt(nr: word);

var f: text;

begin

    assign(f, 'BAC.txt');  rewrite(f);

    randomize;

    while nr  > 0 do begin

      dec(nr);

      write(f, random(1000):4);

    end;

    close(f);

end;

​

begin

    {Generarea fisierului 'BAC.txt' - Optional}

    genbactxt(1000);

​

    {Citirea din fisier}

    assign(fin, 'BAC.txt');

    reset(fin);

    n := 0;

    while not eof(fin) do

    begin

      read(fin, list[n]);

      inc(n);

    end;

    close(fin);

​

    {Daca fisierul 'BAC.txt' nu contine nici un numar, se termina executia programului}

    if n = 0 then Exit;

​

    {Sortarea listei}

    for i := 0 to n-2 do for j := i+1 to n-1 do

      if list[i]>list[j] then begin

        k := list[i]; list[i] := list[j]; list[j] := k;

      end;

​

    {Scrierea listei in fisier}

    assign(fout, 'BAC2.txt');

    rewrite(fout);

    for i := 0 to n-1 do writeln(fout, list[i]);

    close(fout);

​

    {Afisarea listei de numere sortate la consola - Optional}

     clrscr;

     for i := 0 to n-1 do write(list[i]:4);

     readkey;

end.

​

​