XProfan

WindowTitle "Dreisatz-Trainer für junge Kopfrechner"
'Programm 'Dreisatz-Trainer' (CL) CopyLeft 2014-11 by Heinz Brill
'Adaptiert für XProfan 11 by P.Specht, Wien. Ohne jedwede Gewähr!
WindowStyle 24:Randomize:font 2:Window %maxx/6,%maxy/6-%maxx*4/6,%maxy*4/6
Declare s$,Dreisatz$[],Var1&[],Var2&,zaehler&,erg&
Set("RegEx",1):Var pos&=1
Dreisatz$[0]="4 Eier kosten 80 Cent, wieviel kosten 3 Eier ?"
Dreisatz$[1]="5 Männer trinken 20 Glas Bier, wieviel trinken 8 Männer, wenn jeder gleichviel trinkt ?"
Dreisatz$[2]="7 Hühner legen 42 Eier am Tag. Wieviel Eier legen 12 Hühner am Tag, wenn jedes gleichviel legt ?"
Dreisatz$[3]="3 Maschinen fertigen 1200 Stück am Tag. Wieviel fertigen 10 Maschinen ?"
Dreisatz$[4]="6 Puttls quarzen 240 Ipfeln pro Zast. Wieviel quarzen 10 Puttls ?"
Dreisatz$[5]="Wenn 1 Mann 50 Zast täglich verdient , wieviel Zaster verdienen dann 3 Männer durchschnittlich?"
Dreisatz$[6]="Wenn 1 Heinz im Schnitt 3 Programme täglich programmiert , wieviele schaffen 4 ähnlich begabte Programmierer am Tag?"

WhileLoop 0,sizeof(Dreisatz$[])-1

    zaehler&=0:pos&=1:Clear Var1&[]

    While pos& :pos&=Instr("[0-9]{1,}",Dreisatz$[&Loop],pos&)

        If pos&>0

            Var1&[zaehler&]=Val($Match)
            Inc zaehler&
            pos&=pos&+4'wegen mehreren möglichen Stellen (hier bis Tausender)

        EndIf

    EndWhile

    Print "\n "+Dreisatz$[&Loop]
    Print "   "+"Dein Ergebnis?: ";:Input Var2&
    erg&=(Var1&[1]/Var1&[0])*Var1&[2]

    If Var2&=erg&

        Print "   "+"Das ist richtig!"

    Else

        Print "   "+"Leider falsch! ";
        Print " "+"Richtig wäre ";erg&;" gewesen!"

    EndIf

    print mkstr$("-",80)

    if %csrlin>32:waitinput:cls:endif

    EndWhile

    Print "[Taste] zum Beenden..."
    WaitInput
    End