Tev pašam jāuzraksta funkcija, kas realizē kādu no kārtošanas algoritmiem..

http://en.wikipedia.org/wiki/Sorting_algorithm

Ak šausma. Kapēc TP nav nekādu parocīgu f(x)? :/

http://datuve.lv/forums/52360/Var_izpalidzet_ar_turbo_pascal_
Palasi komentārus..

Ok ok, nestreso :) Es izpalīdzu paziņai :)

Vispār jau es nedomāju mefisto rakstīto, bet savu :))
Pirmajos trīs komentāros ir arī kods, bet tie nezināmu iemeslu dēļ izgaisa.

Ā, es brīdi padomāju, kapēc man nerāda tos pirmos trīs un pēc tam nolēmu, ka esmu saņēmsi kinda' ban, you know :D

Ja nu kādam interesē tad šeit ir tas ko izveidoju es :)

{ tagad tu man paraadaa alu >:] }
program skaitlji_desc;
uses crt;
var fails,fails2:text;
var cipars2,i,i2,k,skaitlis2:integer;
var cipars, skaitlis,new_str:string;

begin
    { lasam failu un dabuujam int }
    assign(fails, 'max.dat');
    reset(fails);
    while not eof(fails) do
          readln(fails,cipars);

    { paarveersham stringu uz integeru, lai dabuutu skaitlja garumu }
    val(cipars,cipars2,k);

    { sheit saakas cikls kursh izpildaas no 9 liidz 1, dilstoshi }
    for i := 9 downto 1 do
        begin
             { sheit saakas cikls kursh meklee attieciigo skaitli }
             for i2 := 1 to length(cipars) do
                 begin
                      { sheit dabuu vienu ciparu un saliidzina }
                      skaitlis := copy(cipars,i2,1);
                      val(skaitlis, skaitlis2, k);
                      if skaitlis2 = i then new_str := new_str+skaitlis;
                 end;

        end;
    assign(fails2, 'max.rez');
    rewrite(fails2);
    writeln(fails2, new_str);
    close(fails2);

    { shitie vnk izvada uz ekraana abus skaitljus }
    writeln('skaitlis_old: ', cipars);
    writeln('skaitlis_new: ',new_str);
    readln;
end.

Bubble sort, select sort, shell sort, quick sort  - izvēlies sev tīkamāko