Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#30

Re: bel. lange Integerzahlen in dynamischen Listen???

  Alt 31. Mär 2008, 20:15
Ich geb dir jetzt mal einen heissen Tipp: Wie würdest du 2 Zahlen auf dem Papier addieren ???
Richtig, Ziffer für Ziffer addieren und immer schön den Übertrag mitnehmen.
Also du hast 2 Strings:
Delphi-Quellcode:
a := '64637201';
b := '768574';
Was muss man als 1. tun ? Na die kürzere Zahl links mit '0' auffüllen, bis beiden Strings gleich lang sind.
Übertrag auf 0 setzen.
Dann eine for-Schleife (length(a) downto 1) laufen lassen, je eine Ziffer aus a und b rausholen
in Integer wandeln, addieren (+alter Übertrag), neuer Übertrag ermitteln (mod-Funktion und div-Funktion), Ergebnis als Ziffer in den Zielstring "c" kopieren.

So und dann schön eine Funktion machen:
function SAddieren(a,b:string):string; Dann noch über das Vorzeichen nachdenken, damit du auch neg. Zahlen addieren kannst.

Also mit dieser Anleitung sollte es kein Problem mehr sein, die Hausaufgabe zu lösen.
Als Liste für die vielen Zahlen nimmst du einfach eine Stringliste oder gleich direkt das Property Lines eines TMemo.
  Mit Zitat antworten Zitat