Probleme mit Modulo
Verfasst: 24.05.2005 20:37
hallo,
ich hab ein programm geschrieben mit dem man prüfziffern an kontonummern dran hängen kann, dazu muß ich modulo rechnen...
kontonummer modulo 97. ergebnis war 2 bei purebasic, bei allen anderen taschenrechnern und softwareprodukten (auch java) 77.
hier ist der source...vllt habe ich auch einfach nur etwas falsch geschrieben.
danke für eure hilfe.
p.s. das proggy habe ich für mich selbst gechrieben um übungsaufgaben für mein studium zu kontrollieren
gruß
der stark
Edit by NicTheQuick: Code-Tags gesetzt
ich hab ein programm geschrieben mit dem man prüfziffern an kontonummern dran hängen kann, dazu muß ich modulo rechnen...
kontonummer modulo 97. ergebnis war 2 bei purebasic, bei allen anderen taschenrechnern und softwareprodukten (auch java) 77.
hier ist der source...vllt habe ich auch einfach nur etwas falsch geschrieben.
Code: Alles auswählen
Global kontonummer.s
Global konto.l
Global zsatz.w
kontonummer = InputRequester("Bitte geben sie...","...eine Kontonummer", "43564523")
;MessageRequester("",Str(4356452300 % 97),#PB_Messagerequester_ok)
konto = Val(kontonummer)
If (konto % 97) <> 0
MessageRequester("",Str(((100*konto) % 97)),#PB_Messagerequester_ok)
zsatz = 97 - ((100*konto) % 97)
kontonummer = Str(konto) + Str(zsatz)
MessageRequester("Die neue Kontonummer...","...lautet " + kontonummer, #PB_Messagerequester_ok)
Else
MessageRequester("Achtung", "Kontonummer ist schon gültig!",#PB_Messagerequester_ok);
EndIf
p.s. das proggy habe ich für mich selbst gechrieben um übungsaufgaben für mein studium zu kontrollieren
gruß
der stark
Edit by NicTheQuick: Code-Tags gesetzt