Forum: Algorithmen, Datenstrukturen und Klassendesign
by totti14,
17. Jun 2017
Jups, die Zahlen gehen nur von 0 ..9.
In Pascal
i := Data * 100 + Data * 10 + Data;
i := 481 * i + 117;
Data := ((i div 100) mod 10);
Data := ((i div 10) mod 10);
Data := (i mod 10);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by totti14,
17. Jun 2017
Es läuft nacher unter OpenCL mit VS, also feinstes C :-D Mit
OpenCL2Delphi scheitert es schon bei der definition und im VS bekommt man anständige Fehlerpunkte, was als OPL Anfänger perfekt ist.
Unter Delphi soll es aber auch schon flott gehen, da ich ich das unter OCL nur zum testen mache.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by totti14,
17. Jun 2017
Hallo,
ih rechne z.Z folgende Aufgabe so: Data := 481 * Data + 171;
Var
Data: of byte;
v9 : Integer;
...
Data:= 4; Data:= 7; Data:= 5;
v9 := (100 * Data) + (10 * Data + Data); // = v9 =475 := StrToInt()