XProfan

Titre de la fenêtre "Dreisatz-Trainer pour le garçon Kopfrechner"
'Programme 'Dreisatz-Trainer' (CL) CopyLeft 2014-11 by Heinz Brill
'Adaptiert pour XProfan 11 by P.Specht, vienne. sans jedwede Gewähr!
Fenêtre Style 24:Randomiser:font 2:Fenêtre %maxx/6,%maxy/6-%maxx*4/6,%maxy*4/6
Déclarer s$,Dreisatz$[],Var1&[],Var2&,zaehler&,erg&
Set("RegEx",1):Var pos&=1
Dreisatz$[0]="4 Eier coûter 80 Cent, combien coûter 3 Eier ?"
Dreisatz$[1]="5 Männer buvons 20 Glas bière, combien buvons 8 Männer, si chacun gleichviel buvez ?"
Dreisatz$[2]="7 Hühner poser 42 Eier am journée. combien Eier poser 12 Hühner am journée, si chaque gleichviel legt ?"
Dreisatz$[3]="3 Maschinen fertigen 1200 Stück am journée. combien fertigen 10 Maschinen ?"
Dreisatz$[4]="6 Puttls quarzen 240 Ipfeln pro Zast. combien quarzen 10 Puttls ?"
Dreisatz$[5]="Wenn 1 homme 50 Zast täglich verdient , combien Zaster gagner ensuite 3 Männer durchschnittlich?"
Dreisatz$[6]="Wenn 1 Heinz im Schnitt 3 Programme täglich programmiert , wieviele créer 4 ähnlich begabte Programmierer am journée?"

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

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

    Tandis que pos& :pos&=Instr("[0-9]{1,}",Dreisatz$[&Boucle],pos&)

        Si pos&>0

            Var1&[zaehler&]=Val($Match)
            Inc zaehler&
            pos&=pos&+4'à cause de mehreren möglichen se mettre (ici jusqu'à Tausender)

        EndIf

    Endwhile

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

    Si Var2&=erg&

        Imprimer "   "+"Das ist richtig!"

    D'autre

        Imprimer "   "+"Leider faux! ";
        Imprimer " "+"Richtig wäre ";erg&;" gewesen!"

    EndIf

    imprimer mkstr$("-",80)

    si %csrlin>32:waitinput:cls:endif

    Endwhile

    Imprimer "[bouton] zum finissons..."
    WaitInput
    Fin