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.
Zitat
Baum-Darstellung
