XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zufallszahlen mit restlos durch n teilbaren Quersummen erstellen
Lauffähig ab Profan-Version 5.0
-----------------------------------------------------------------
Quersumme                              (P)Fairware, Freeware....
Profan ab 4.5
(c) 1999 Rainer Weicht, a-m-d
http://werasoft.de.cx
erstellt Zufallszahlen mit restlos durch n teilbaren Quersummen
noch einmal mit linker Maustaste / beenden mit rechter Maustaste
-----------------------------------------------------------------
Declare zahl%,zahl$,ende%,quer%,teiler%
Cls
let teiler% = 8	               n - der Teiler
Randomize
UseCursor 2

WhileNot ende%

    let zahl% = @Rnd(100000)       obere Grenze

    If GT(zahl%,9999)              untere Grenze

        let zahl$ = Str$(zahl%)
        let quer% = Add(Val(Mid$(zahl$,1,1)),Val(Mid$(zahl$,2,1)))
        let quer% = Add(quer%,Val(Mid$(zahl$,3,1)))
        let quer% = Add(quer%,Val(Mid$(zahl$,4,1)))

        If Equ(@Mod(quer%,teiler%),0)   Bedingung: Restlos durch teiler% teilbar

            Print Teiler:,teiler%,=>,zahl%,(Quersumme:,quer%;)
            UseCursor 0
            WaitInput
            Case Equ(%MouseKey,2): let ende% = 1
            UseCursor 2

        Endif

    EndIf

Wend