Übersetzung C -> Delphi: Verkürzte if-Bedingung

Thema durchsuchen

Ansicht

Themen-Optionen

Übersetzung C -> Delphi: Verkürzte if-Bedingung

Ein Thema von Luckie · begonnen am 10. Mär 2008 · letzter Beitrag vom 10. Mär 2008

Antwort

jottkaerr

Registriert seit: 2. Jul 2007
Ort: Tuttlingen
81 Beiträge

Delphi 10.1 Berlin Professional

Re: Übersetzung C -> Delphi: Verkürzte if-Bedingung

10. Mär 2008, 10:05

Dann nimm doch ein Argument, dass groß genug ist:

zusammenfalten · markieren

Delphi-Quellcode:

			program tso;

{$APPTYPE CONSOLE}

{$R-}

uses

  Classes;

function Sum(const Num: Cardinal): Cardinal;

begin

  if Num = 0 then

    Result := 0

  else

    Result := Num + Sum(Num - 1);

end;

begin

  Writeln(Sum(MaxInt));

end.

jkr

Jürgen Krämer
Sometimes I think the surest sign that intelligent life exists elsewhere
in the universe is that none of it has tried to contact us. (Calvin)