RegEx + Dreisatz

H.Brill

Was man mit RegEx so alles anstellen kann. :idea:
Vielleicht hilfreich für die Kleinen zum Üben :

Code

Declare String s, Dreisatz[3]
Declare Int Var1[], Var2, zaehler, erg


Set("RegEx", 1)
Var Int pos = 1
Dreisatz[0] = "4 Eier kosten 80 Cent, wieviel kosten 3 Eier ?"
Dreisatz[1] = "5 Männer trinken 20 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 Machinen fertigen 1200 Stück am Tag. Wieviel fertigen 10 Maschinen ?"


WhileLoop 0, 3
   zaehler = 0
   pos = 1
   Clear Var1[]
   While pos <> 0
      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 Dreisatz[&LOOP]
   Print "Gebe Ergebnis ein : ";
   Input Var2
   erg = (Var1[1] / Var1[0]) * Var1[2]
   If Var2 = erg
      Print "Richtig !!!!"
   Else
      Print "Leider falsch !"
      Print erg, "wäre richtig !"
   EndIf   
EndWhile
Print "Taste zum Beenden..."
Waitkey
End

Alles anzeigen

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

p. specht

Heinz, darf ich das bitte für Profan-11 adaptieren? Copyright bleibt natürlich voll bei dir!

H.Brill

Das war ja nur so ein Einfall von mir.
Da gibt's kein Copyright.

Kannste verwenden bzw. erweitern, wie du willst.
Kann man vielleicht auch in die Babyklappe
zu den anderen Codes stellen.

Ich nehme ja auch selber mal Codes von anderen
(auch von dir). Dann kann ich ja auch mal was
dazu beitragen.

p. specht

@ Heinz: Dankeeeee

Code

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

Alles anzeigen

Jetzt mitmachen!