Forum: Programmieren allgemein
Delphi
by Bummi,
7. Dez 2011
@mkinzler
meinst Du wegen Integer statt Int64 bei der Vorgabe 9?
http://de.wikipedia.org/wiki/Querprodukt
Forum: Programmieren allgemein
Delphi
by Bummi,
6. Dez 2011
@vagtler
wenn Du Dir die Lernerfolge aus den Vorgängerthreads anschaust ...
Forum: Programmieren allgemein
Delphi
by Bummi,
6. Dez 2011
ich würde vorschlagen wir kürzen das Ganze diesmal ab
Function QMult(const s:String):String;
var
a:Array of Integer;
i:Integer;
IRes:Integer;
begin
SetLength(a,Length(s));
for I := 1 to Length(s) do a := Ord(s) - 48;