Prüfziffern ermitteln

ermittlePZiffer(s:Text):GZ Berechnet die Quersumme der Ziffern in s und gibt sie modulo 10 zurück Bsp: 4711: 4+7+1+1=>13 % 10 => 3. Bei Eingaben, die keine Ziffern enthalten wird eine Fehlermeldung "Buchstaben in der Eingabe " ausgegeben.

Struktogrammlösung..

checkPZiffer(s:Text):Bool Überprüft, ob bei einer Zahl die Prüfziffer stimmt Bsp: 4711-3 stimmt. Das Muster besteht aus der Zahl gefolgt von einem '-' und der Prüfziffer. Bei vom Schema abweichenden Eingaben sollen entsprechende Fehlermeldungen ausgegeben werden. [Quelltexte]

Struktogrammlösung..