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

• #838 czappa aktív tag Jester01 #837

  Új Válasz 2005-11-27 18:36:35 #838

  Ú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

  

  czappa

  aktív tag

  válasz Jester01 #837 üzenetére

  Köszönöm a válaszaid .
  
  Most így néz ki a rendez eljárás:
  
  
  procedure rendez(var vektor: tomb; n: integer);
  label kesz;
  var i,j, k: integer;
  begin
  writeln('Rendezes...');
  for i:=0 to n-2 do
  begin
  csere:=false;
  for j:=0 to n-2-i do
  begin
  if vektor[j] > vektor[j+1] then
  begin
  csere:=true;
  k:=vektor[j+1];
  vektor[j+1]:=vektor[j];
  vektor[j]:=k;
  end;
  end;
  if csere=false then goto kesz;
  //writeln('i= ',i); leellenorizheto, hogy tenyleg kilep a ciklusbol
  // ha nem volt csere.
  end;
  kesz:
  end;
  
  c-ben van lehetőség kiugrani a ciklusból, talán pascalban is csak én nem tudok róla, ezért használtam goto-t.
  
  (Amikor bemásolom a kódot, akkor még jól néz ki, de aztán minden sor kezdete egy oszlopba kerül - átláthatatlan lesz.)
  Mégegyszer köszi.

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