LiebesTester

[JasonDX]

Zitat von Klaus01:

eine Möglickeit:

machst Dir einen String s mit dem Inhalt 'abcdefg...xyz'
und eine Array of Integer aPrim mit Deinen Primzahln [2,3,5....]

dann kannst Du mit

aPrim[pos('a',s)] = primzahl von a

daraufzugreifen.

Es ginge noch etwas eleganter:

Delphi-Quellcode:

const
  zahlen: array['a'..'z'] of  byte = (2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101);
//...
zahl := zahlen['e'] * zahlen['m'] * zahlen['i'] * zahlen['l'];

was das wegschneiden der restlichen Ziffern angeht: mod: Der Restbetrag der Division durch 100 gibt die letzten beiden Stellen der Zahl

greetz
Mike