XProfan

Título de la ventana "Dreisatz-Trainer para junge Kopfrechner"
'Programa 'Dreisatz-Trainer' (CL) CopyLeft 2014-11 by Heinz Brill
'Adaptiert para XProfan 11 by P.Pájaro carpintero, Wien. Ohne jedwede Gewähr!
Ventana de Estilo 24:Selección aleatoria:font 2:Ventana %maxx/6,%maxy/6-%maxx*4/6,%maxy*4/6
Declarar s$,Dreisatz$[],Var1&[],Var2&,zaehler&,erg&
Conjunto("RegEx",1):Var pos&=1
Dreisatz$[0]="4 Eier costo 80 Cent, wieviel costo 3 Eier ?"
Dreisatz$[1]="5 Männer trinken 20 Glas Bier, wieviel trinken 8 Männer, si cada gleichviel trinkt ?"
Dreisatz$[2]="7 Hühner legen 42 Eier al Tag. Wieviel Eier legen 12 Hühner al Tag, si cada gleichviel legt ?"
Dreisatz$[3]="3 Maschinen fertigen 1200 Stück al 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 entonces 3 Männer durchschnittlich?"
Dreisatz$[6]="Wenn 1 Heinz en el Schnitt 3 Programas täglich programmiert , wieviele schaffen 4 ähnlich begabte Programmierer al Tag?"

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

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

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

        If pos&>0

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

        EndIf

    EndWhile

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

    If Var2&=erg&

        Imprimir "   "+"Das es correcta!"

    Más

        Imprimir "   "+"Leider falso! ";
        Imprimir " "+"Richtig wäre ";erg&;" gewesen!"

    EndIf

    imprimir mkstr$("-",80)

    if %csrlin>32:waitinput:cls:endif

    EndWhile

    Imprimir "[Taste] para Beenden..."
    WaitInput
    End