Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#1

Quersummefunktion von Delphi nach C?

  Alt 5. Apr 2011, 16:13
Hi,

hab hier eine Quersummefunktion gefunden die ich nach C umschreiben will, was mir aber nicht gelingt.

Hier der Delphi Code:
Delphi-Quellcode:
{*
* Berechne die Quersumme aus einer Zahl x
* z.B.: Quersumme von 1234 ist 10
*}

function QuerSumme(x:Longint):integer;
begin
  Result := 0;
  while x <> 0 do
  begin
    Result := Result + (x mod 10);
    x := x div 10;
  end;
end;
Und hier in C (weiß nicht wie ich Result nach C umschreiben soll)
Code:
int QuerSumme(int x)
{
    while (x!=0)
    {
   
    }
}
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat