XProfan

'Alpha-Version ohne jedwede Gewähr!
WindowTitle upper$("  A r i s t o t e l i s c h e   L o g i k")
'(CL) Copyleft 2015-10 by P.Specht, Wien (Austria). No warranty whatsoever!
'Q: Wikipedia Stichwort "Syllogismus". Ohne jedewede Gewähr!
var w$="Alle Rechtecke sind Vierecke,Alle Quadrate sind Rechtecke,Alle Quadrate sind Vierecke,"+\
"Kein Rechteck ist ein Kreis,Alle Quadrate sind Rechtecke,Kein Quadrat ist ein Kreis,"+\
"Alle Quadrate sind Rechtecke,Einige Rhomben sind Quadrate,Einige Rhomben sind Rechtecke,"+\
"Kein Säugetier atmet mit Kiemen,Einige Wassertiere sind Säugetiere,Einige Wassertiere atmen nicht mit Kiemen,"+\
"Alle Rechtecke sind Vierecke,Alle Quadrate sind Rechtecke,Einige Quadrate sind Vierecke,"+\
"Kein Rechteck ist ein Kreis,Alle Quadrate sind Rechtecke,Einige Quadrate sind keine Kreise,"+\
"Alle Professoren sind ernst,Einige Dozenten sind nicht ernst,Einige Dozenten sind nicht Professoren,"+\
"Kein Säugetier atmet durch Kiemen,Alle Fische atmen durch Kiemen,Kein Fisch ist ein Säugetier,"+\
"Alle Fische atmen durch Kiemen,Kein Säugetier atmet durch Kiemen,Kein Säugetier ist ein Fisch,"+\
"Kein Abgeordneter ist ein Gauner,Einige Rechtsanwälte sind Gauner,Einige Rechtsanwälte sind keine Abgeordneten,"+\
"Einige Münchner sind nicht Politiker,Alle Münchner sind Stadtbewohner,Einige Stadtbewohner sind nicht Politiker,"+\
"Alle Rechtecke sind Vierecke,Einige Rechtecke sind Quadrate,Einige Quadrate sind Vierecke,"+\
"Einige Früchte sind Äpfel,Alle Früchte sind Pflanzen,Einige Pflanzen sind Äpfel,"+\
"Keine Münchner sind Passauer,Einige Münchner sind Studenten,Einige Studenten sind nicht Passauer,"+\
"Alle Quadrate sind Rechtecke,Alle Quadrate sind Vierecke,Einige Vierecke sind Rechtecke,"+\
"Keine Münchner sind Passauer,Alle Münchner sind Stadtbewohner,Einige Stadtbewohner sind keine Passauer,"+\
"Alle Quadrate sind Rechtecke,Alle Rechtecke sind Vierecke,Einige Vierecke sind Quadrate,"+\
"Alle Passauer sind Bayern,Keine Bayern sind Sachsen,Keine Sachsen sind Passauer,"+\
"Einige Rauten sind Rechtecke,Alle Rechtecke sind Parallelogramme,Einige Parallelogramme sind Rauten,"+\
"Keine Passauer sind Münchner,Alle Münchner sind Stadtbewohner,Einige Stadtbewohner sind keine Passauer,"+\
"Keine Passauer sind Münchner,Einige Münchner sind Studenten,Einige Studenten sind keine Passauer,"+\
"Alle Angler angeln Fische,Alle Fische schwimmen im See, Keine Angler angeln nicht im See,"+\
"Kein Angler ist ein Fisch,Einige Fische sind keine Angler,Keine Antwort sinnvoll(Einige vielleich schon?),"+\
"Kein Angler ist ein Fisch,Einige Fische sind Angler,Einige Angler angeln nicht???,"+\
"Dieser Fisch ist blau,Jener Fisch ist silbern,Einige Fische sind blau und einige silbern,"+\
"Einige Säugetiere leben im Wasser,Einige Tiere die auf dem Land leben sind Säugetiere,- Keine Antwort sinnvoll,"+\
"Dieser Fisch ist nicht gelb,Alle Fische leben im See,Keine sinnvolle Aussage possibile.\n Im See lebt ein nicht-gelber Fisch?,"+\
"Alle Schweine grunzen,Dieses Tier grunzt,Einige Tiere sind Schweine,"+\
"Alle Tiere werden geboren,Alle Schweine sind Tiere,Alle Schweine werden geboren,"+\
"Keine Tiere werden nicht geboren,Kein Schwein ist kein Tier nicht,Keine sinnvolle Aussage möglich"
'Pool mit falschen Schlussfolgerungen:
var f$="Alle Rechtecke sind Vierecke,Alle Quadrate sind Rechtecke,Alle Vierecke sind Quadrate,"+\
"Kein Rechteck ist ein Kreis,Alle Quadrate sind Rechtecke,Kein Kreis ist ein Quadrat,"+\
"Alle Quadrate sind Rechtecke,Einige Rhomben sind Quadrate,Keine Rhomben sind Rechtecke,"+\
"Kein Säugetier atmet mit Kiemen,Einige Wassertiere sind Säugetiere,Alle Wassertiere atmen mit Kiemen,"+\
"Alle Rechtecke sind Vierecke,Alle Quadrate sind Rechtecke,Alle Vierecke sind Quadrate,"+\
"Kein Rechteck ist ein Kreis,Alle Quadrate sind Rechtecke,Alle Quadrate sind keine Kreise,"+\
"Alle Professoren sind ernst,Einige Dozenten sind nicht ernst,Einige Professoren sind nicht Dozenten,"+\
"Kein Säugetier atmet durch Kiemen,Alle Fische atmen durch Kiemen,Einige Fische sind ein Säugetier,"+\
"Alle Fische atmen durch Kiemen,Kein Säugetier atmet durch Kiemen,Einige Säugetiere sind ein Fisch,"+\
"Kein Abgeordneter ist ein Gauner,Einige Rechtsanwälte sind Gauner,Einige Abgeordnete sind keine Rechtsanwälte,"+\
"Einige Münchner sind nicht Politiker,Alle Münchner sind Stadtbewohner,Einige Stadtbewohner sind nicht Politiker,"+\
"Alle Rechtecke sind Vierecke,Einige Rechtecke sind Quadrate,Einige Quadrate sind Vierecke,"+\
"Einige Früchte sind Äpfel,Alle Früchte sind Pflanzen,Einige Äpfel sind Pflanzen,"+\
"Keine Münchner sind Passauer,Einige Münchner sind Studenten,Einige Passauer sind nicht Studenten,"+\
"Alle Quadrate sind Rechtecke,Alle Quadrate sind Vierecke,Alle Rechtecke sind Vierecke,"+\
"Keine Münchner sind Passauer,Alle Münchner sind Stadtbewohner,Einige Stadtbewohner sind Passauer,"+\
"Alle Quadrate sind Rechtecke,Alle Rechtecke sind Vierecke,Einige Quadrate sind keine Vierecke,"+\
"Alle Passauer sind Bayern,Keine Bayern sind Sachsen,Einige Sachsen sind keine Passauer,"+\
"Einige Rauten sind Rechtecke,Alle Rechtecke sind Parallelogramme,Einige Rauten sind keine Parallelogramme,"+\
"Keine Passauer sind Münchner,Alle Münchner sind Stadtbewohner,Einige Passauer sind keine Stadtbewohner,"+\
"Keine Passauer sind Münchner,Einige Münchner sind Studenten,Kein Student ist kein Passauer,"+\
"Alle Angler angeln Fische,Alle Fische schwimmen im See, Keine Angler schwimmen im See,"+\
"Kein Angler ist ein Fisch,Einige Fische sind keine Angler,Einige Fische sind Angler,"+\
"Kein Angler ist ein Fisch,Einige Fische sind Angler,Alle Fische sind Angler,"+\
"Dieser Fisch ist blau,Jener Fisch ist silbern,Einige Fische sind blau oder einige silbern,"+\
"Einige Säugetiere leben im Wasser,Einige Tiere die auf dem Land leben sind Säugetiere,Säugetiere leben an Land,"+\
"Dieser Fisch ist nicht gelb,Alle Fische leben im See,Im See lebt ein gelber Fisch,"+\
"Alle Schweine grunzen,Dieses Tier grunzt,Einige Schweine sind Tiere,"+\
"Alle Tiere werden geboren,Alle Schweine sind Tiere,Kein Schwein wird geboren,"+\
"Keine Tiere werden nicht geboren,Kein Schwein ist kein Tier nicht,Schweine sind Tiere"
Windowstyle 24:CLS:randomize:font 2
declare in&[29],ok&[29],k&
ok&[]=1:in&[]=-1

whileloop 0,29

    repeat:k&=rnd(30)

until in&[k&]=-1:in&[k&]=&Loop':print k&,in&[k&]

endwhile':waitinput

declare p$,m$,tr$,i&,a&,a$,ant$,score&,off!
off!=5
Rept:
off!=0.2*off!

Whileloop 0,29*3,3:i&=&Loop

a&=rnd(2)'Wahres 1 oder Falsches 0 präsentieren?

if ok&[i&\3]'Wenn bisher noch nicht beantwortet:

    nochma:
    cls rgb(240+rnd(16),240+rnd(16),240+rnd(16))
    locate 2,2:print "Score =         ";
    locate 2,10:print score&;" ";
    locate 9,9:print tab(10);"Frage ";int(i&\3+1);" von 30:\n"
    print tab(10);"----------------------------------------------------\n"
    print tab(10);substr$(if(a&,w$,f$),3*in&[i&\3]+1,",")+".\n"
    print tab(10);substr$(if(a&,w$,f$),3*in&[i&\3]+2,",")+".\n"
    print tab(10);"----------------------------------------------------\n"
    tr$=substr$(if(a&,w$,f$),3*in&[i&\3]+3,",")
    font 0:print tab(10);"Also gilt: ";
    font 2:print tr$;".\n\n"
    font 0:print tab(10);"         Richtig oder falsch ";'a&; 'Bitte nicht schummeln!
    font 2:print " [r,f] ?: ";
    input ant$:ant$=trim$(ant$):ant$=left$(ant$,1):ant$=lower$(ant$)
    casenot (ant$="r") or (ant$="f"):goto "nochma"

    if ant$=if(a&,"r","f"):score&=score&+202*off!:sound 1000,40:ok&[i&\3]=0

        else :score&=score&-101*off!:sound 110,40:sound 100,40

    endif

endif'ok&[]>0

endwhile

Cls
Sound 2000,100:print "\n\n Durchgang geschafft mit Score = ";score&

if off!>=sqr(0.2)' Endtest

print "\n Es folgt eine Korrekturmöglichkeit per die Fehlantworten."
print " [Taste]"
waitinput 30000
goto "Rept"

else

print "\n DANKE! AUF WIEDERSEHEN!"
waitinput 30000

endif

END