Quersumme errechnen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Mit Hilfe dieser Funktion kann man die Quersummer einer Zahl errechnen. Die Quersummer erhält man, wenn man alle Ziffern addiert.
function DigitSum(i : Integer): Integer;
var
p: PChar;
begin
Result := 0;
p := PChar(IntToStr(i));
while (p^ <> #0) do
begin
Result := Result + StrToInt(p^);
Inc(p);
end;
end;
Aufgerufen werden kann die Funktion Beispielsweise folgendermaßen:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Die Quersumme von 122 ist ' + IntToStr(DigitSum(122)));
end;
Das Ergebnis wäre hier 5.
Ähnliche Seiten:
- Lottozahlen generieren
- Umrechnung in verschiedene Zahlensysteme
- Nur Zahleneingaben zulassen
- Primzahlen erkennen
- Zahlen mit beliebiger Genauigkeit dividieren
- Zahl bis zu einer bestimmten Stelle runden
- Punkt in einer Zahl durch Komma ersetzen
- Integerzahlen in römische Zahlen umwandeln
- Dezimalzahl nach Hexadezimal
- Hexadezimal nach Dezimal