Új hozzászólás Aktív témák

• #691 Sianis addikt rOwLeY #689

  Új Válasz 2005-06-06 07:08:10 #691

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Sianis

  addikt

  válasz rOwLeY #689 üzenetére

  Találtam neked egy kódot is:
  

  
  procedure rendez;
  var i, j: integer;
  begin
    for i:=1 to meret do
      for j:=1 to i-1 do
        if(t[j] > t[j+1] then { csere }
        begin
          w := t[j];
              t[j] := t[j+1];
             t[j+1] := w;
        end;
  end;
  

  
  
  A rendezés neve buborék rendezés, tehát ami nem megfelelő az jön fel, mint a buborék. Jó kis találmány ez bizony! Ha frodítod a feltételt, akkor fordítva rendez. Nagyon egyszerű! Remélem neked beválik.

Új hozzászólás Aktív témák