Quersumme und Zahlendreher

Zuckerrübe · Hält's aus hier Beiträge: 8

hallo zusammen,

ich hab ne funktion erstellt die normal die quersumme einer zahl ( egal wie lange ) ausrechnet. nur das problem ist das er das i-wie nicht machen will. hier ist der quellcode:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function Dreher(aa:integer):integer;
var b, c: integer;
begin
  b:= 0;
  c:= 0;
  while a < 0 do
  begin
    b:= a mod 10;
    c:= c + b;
    a:= a div 10;
    result:= c;
  end;
end;

ich hoffe mal das einer das versteht

danke schonma

Moderiert von Narses: 2. Frage entfernt

jaenicke · Verfasst: Do 07.05.09 21:27

Der Parameter ist aa, du benutzt aber a? Und warum < 0?

Zuckerrübe · Hält's aus hier Beiträge: 8

ah okay es lag an dem größer kleiner zeichen ^^

jaenicke · Verfasst: Do 07.05.09 21:37

Ich würde die übergebene Zahl aber nicht verändern, mach es besser so, das ist übersichtlicher:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function CalcChecksum(const AValue: Integer): Integer;
var
  PendingDigits: Integer;
begin
  Result := 0;
  PendingDigits := AValue;
  while PendingDigits <> 0 do
  begin
    Inc(Result, PendingDigits mod 10);
    PendingDigits := PendingDigits div 10;
  end;
end;

Und wenn du die verändern willst, gehts auch so kurz:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function CalcChecksum(AValue: Integer): Integer;
begin
  Result := 0;
  while AValue <> 0 do
  begin
    Inc(Result, AValue mod 10);
    AValue:= AValue div 10;
  end;
end;

Zuckerrübe · Hält's aus hier Beiträge: 8

sorry aber wir ham inc und so noch nich durchgenommen ^^
weiß jemand was zu nem zahlendreher?

jaenicke · Verfasst: Do 07.05.09 21:46

Narses hat deine zweite Frage nicht ohne Grund entfernt :!:

Eine Frage pro Topic, das steht in den Regeln, damit es nicht drunter und drüber geht. Dort werde ich dann gerne auch etwas dazu schreiben, das ist auch sehr kurz der Quelltext.

// EDIT:
Ohne inc ist es genauso kurz:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function CalcChecksum(AValue: Integer): Integer;
begin
  Result := 0;
  while AValue <> 0 do
  begin
    Result := Result + (AValue mod 10);
    AValue:= AValue div 10;
  end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme