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

• #1081 Tottu senior tag

  Új Válasz 2006-04-03 18:35:02 #1081

  Ú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

  

  Tottu

  senior tag

  Lenne egy naon sűrgős kérdésem:
  
  PROCEDURE rendezes (nap : byte);
  var
  tmp : byte;
  
  begin
  For y := nap to 1 do
  begin
  i := y - 1;
  TMP := adatok[y];
  
  while i > 0 and tmp > adatok do
  begin
  adatok[i+1] := adatok;
  inc(i);
  end;
  
  adatok[i+1] := TMP;
  end;
  end;
  
  Adott ez az eljárás ami egy beszúrásos rendezés lenne. Amit kiemeltem sort, a ciklus feltételénél vmi hibát talál a fordító de nem tudok rájönni hogy mi lehet a baja. És ezt írja ki:
  Incompatible types: got ''Boolean'' expected ''Longword''.
  A feltételben előforduló változók típusa : byte.

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