Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Un/gerade - Indirekte Rekursion

    Delphi
    by axelf98, 1. Nov 2003
  Der Stacküberlauf hängt mit dem pred(x) zusammen:
  Immer, wenn die Zahl nicht gerade ist, wird geprüft ob sie ungerade ist. Aber sie wird zuvor durch pred(x) wieder gerade gemacht, und deshalb hat man immer genau die falsche Zahl in der Abfrage und die Gehschichte geht ins unendliche...
  
  So wies unten ist, funktionierts:
  
  
  unit fUnGerade;
  
  interface
• Forum: Sonstige Fragen zu Delphi

  Re: Un/gerade - Indirekte Rekursion

    Delphi
    by axelf98, 1. Nov 2003
  Hmm, irgendwie stimmt da was mit der Anzeige nicht! Da hat sich was verschoben bei mir!
  (IE und Opera , siehe Anhang)
• Forum: Sonstige Fragen zu Delphi

  Re: Un/gerade - Indirekte Rekursion

    Delphi
    by axelf98, 1. Nov 2003
  Beim ersten Durchblick ist mir aufgefallen, dass beide Funktionen die gleiche Abfrage haben...
  Dann springt er bei Nichterfüllung einer Abfrage zur nächsten, bis ein Stack-Überlauf kommt!
  
  
  function TForm1.odd(x: integer): boolean;
  begin
  if (x mod 2 = 0) then
  ....
  end;