FPS reitingavimas

Sveiki,

darau programą,į kurią galima suvesti krepšinio rezultatus.Taigi iškilo problema su reitingavimu, kadangi noriu apdaryti, kad programa išreitinguotų, kuri komanda turnyrinėje lentelėje yra pirma, kuri antra, kuri trečia.Tad jei galite padėkite išspęsti šią problemą.Įmetu čia ir koda visos kol kas esamos programos.

program lol;
type
Mas = array [1..3] of integer;
reiting = array [1..3] of integer;
Ma = array [1..3] of Mas;
var
M: Ma;
reitingas: reiting;

{<--Reitingavimo tasku pradzia--->}
{function reitingavimas (a1,b1,:integer):integer;
var
c:integer;
begin
 if a1 > b1 then
 c:= 1;
end; }
{<--Reitingavimo tasku pabaiga--->}
procedure Ivedimo(var D: Ma; var E: reiting);
 var
  i,j: integer;
begin
{<--pirmas masyvas rezultatu begin--->}
  for i:=1 to 3 do
   begin
    for j:=1 to 3 do
    begin
       if (i <> j) then
           begin
               Writeln('Iveskite ',i,' komandos su ', j, ' komanda tasku skaiciu');
               Readln(D[i,j]);
           end;

    end;
   end;
{<--pirmas masyvas rezultatu end--->}
{<--antras 'masyvas' pirminiu reitingu begin--->}
    for j:=1 to 3 do
    begin
      Writeln('Komandos ', j, ' pradinis reitingo tasku skaicius:');
      E[j]:= 0;
      writeln(E[j]);
    end;
{<--antras 'masyvas' pirminiu reitingu end--->}
    Readln
end;

begin

Writeln('----------------------------------');
Ivedimo(M,reitingas);
Readln;
readln;

end.

Sveiki,

 

darau programą,į kurią galima suvesti krepšinio rezultatus.Taigi iškilo problema su reitingavimu, kadangi noriu apdaryti, kad programa išreitinguotų, kuri komanda turnyrinėje lentelėje yra pirma, kuri antra, kuri trečia.Tad jei galite padėkite išspęsti šią problemą.Įmetu čia ir koda visos kol kas esamos programos.

 

program lol;
type
Mas = array [1..3] of integer;
reiting = array [1..3] of integer;
Ma = array [1..3] of Mas;
var
M: Ma;
reitingas: reiting;

{<--Reitingavimo tasku pradzia--->}
{function reitingavimas (a1,b1,:integer):integer;
var
c:integer;
begin
 if a1 > b1 then
 c:= 1;
end; }
{<--Reitingavimo tasku pabaiga--->}
procedure Ivedimo(var D: Ma; var E: reiting);
 var
  i,j: integer;
begin
{<--pirmas masyvas rezultatu begin--->}
  for i:=1 to 3 do
   begin
    for j:=1 to 3 do
    begin
       if (i <> j) then
           begin
               Writeln('Iveskite ',i,' komandos su ', j, ' komanda tasku skaiciu');
               Readln(D[i,j]);
           end;

    end;
   end;
{<--pirmas masyvas rezultatu end--->}
{<--antras 'masyvas' pirminiu reitingu begin--->}
    for j:=1 to 3 do
    begin
      Writeln('Komandos ', j, ' pradinis reitingo tasku skaicius:');
      E[j]:= 0;
      writeln(E[j]);
    end;
{<--antras 'masyvas' pirminiu reitingu end--->}
    Readln
end;

begin

Writeln('----------------------------------');
Ivedimo(M,reitingas);
Readln;
readln;

end.

Tau reikia rikiavimo algoritmo. Ko gero, lengviausias – http://en.wikipedia.org/wiki/Sorting_algorithm#Insertion_sort

Gali gal mini pvz parašyti čia kaip tai konkrečiau atrodo?

type arr10 = array[0..9] of integer;
var arr: arr10; i: integer;

procedure sort(var a: arr10; size: integer);
var i, tmp, valueToInsert, holePos : integer;
begin
       for i := 0 to size - 1 do
       begin
               valueToInsert := a[i];
               holePos := i;

               while (holePos > 0) AND (valueToInsert < a[holePos - 1]) do
               begin
                       a[holePos] := a[holePos - 1];
                       holePos := holePos - 1;
               end;

       a[holePos] := valueToInsert;
end;

procedure printArray(var a: arr10; size: integer);
var i : integer;
begin
       for i := 0 to size - 1 do
       begin
               Write(a[i], ' ,');
       end;

       WriteLn;
end;

begin { Main }
       arr[0] := 5;
       arr[1] := 8;
       arr[2] := 3;
       arr[3] := 9;
       arr[4] := 1;
       arr[5] := 4;
       arr[6] := 7;
       arr[7] := 2;
       arr[8] := 6;
       arr[9] := 3;

       WriteLn('Before:')
       printArray(a, 10);
       WriteLn('After:');
       sort(a, 10);
       printArray(a, 10);
end.

100 metų nerašiau paskalio, tai kažkur yra sintaksės klaidos - išsitaisyk.

Čia tiesiog realizuotas pseudokodas, kurį gali rasti čia: http://en.wikipedia.org/wiki/Insertion_sort