XProfan

'Alpha-Version sans jedwede Gewähr!
Titre de la fenêtre 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, vienne (Austria). No warranty whatsoever!
'Q: Wikipedia Stichwort "Syllogismus". sans jedewede Gewähr!
var w$="Alle Rechtecke sommes Vierecke,Alle Quadrate sommes Rechtecke,Alle Quadrate sommes Vierecke,"+\
"Kein Rechteck est un Kreis,Alle Quadrate sommes Rechtecke,ne...aucune Quadrat est un Kreis,"+\
"Alle Quadrate sommes Rechtecke,quelques Rhomben sommes Quadrate,quelques Rhomben sommes Rechtecke,"+\
"Kein Säugetier atmet avec Kiemen,quelques Wassertiere sommes Säugetiere,quelques Wassertiere respirer pas avec Kiemen,"+\
"Alle Rechtecke sommes Vierecke,Alle Quadrate sommes Rechtecke,quelques Quadrate sommes Vierecke,"+\
"Kein Rechteck est un Kreis,Alle Quadrate sommes Rechtecke,quelques Quadrate sommes aucun Kreise,"+\
"Alle Professoren sommes ernst,quelques Dozenten sommes pas ernst,quelques Dozenten sommes pas Professoren,"+\
"Kein Säugetier atmet par Kiemen,Alle Fische respirer par Kiemen,ne...aucune Fisch est un Säugetier,"+\
"Alle Fische respirer par Kiemen,ne...aucune Säugetier atmet par Kiemen,ne...aucune Säugetier est un Fisch,"+\
"Kein Abgeordneter est un escroc,quelques Rechtsanwälte sommes escroc,quelques Rechtsanwälte sommes aucun Abgeordneten,"+\
"Einige Münchner sommes pas Politiker,Alle Münchner sommes Stadtbewohner,quelques Stadtbewohner sommes pas Politiker,"+\
"Alle Rechtecke sommes Vierecke,quelques Rechtecke sommes Quadrate,quelques Quadrate sommes Vierecke,"+\
"Einige Früchte sommes Äpfel,Alle Früchte sommes Pflanzen,quelques Pflanzen sommes Äpfel,"+\
"Keine Münchner sommes Passauer,quelques Münchner sommes Studenten,quelques Studenten sommes pas Passauer,"+\
"Alle Quadrate sommes Rechtecke,Alle Quadrate sommes Vierecke,quelques Vierecke sommes Rechtecke,"+\
"Keine Münchner sommes Passauer,Alle Münchner sommes Stadtbewohner,quelques Stadtbewohner sommes aucun Passauer,"+\
"Alle Quadrate sommes Rechtecke,Alle Rechtecke sommes Vierecke,quelques Vierecke sommes Quadrate,"+\
"Alle Passauer sommes Bayern,aucun Bayern sommes Sachsen,aucun Sachsen sommes Passauer,"+\
"Einige Rauten sommes Rechtecke,Alle Rechtecke sommes Parallelogramme,quelques Parallelogramme sommes Rauten,"+\
"Keine Passauer sommes Münchner,Alle Münchner sommes Stadtbewohner,quelques Stadtbewohner sommes aucun Passauer,"+\
"Keine Passauer sommes Münchner,quelques Münchner sommes Studenten,quelques Studenten sommes aucun Passauer,"+\
"Alle Angler angeln Fische,Alle Fische schwimmen im lac, aucun Angler angeln pas im lac,"+\
"Kein Angler est un Fisch,quelques Fische sommes aucun Angler,aucun Antwort sinnvoll(quelques vielleich déjà?),"+\
"Kein Angler est un Fisch,quelques Fische sommes Angler,quelques Angler angeln pas???,"+\
"Dieser Fisch ist bleu,celui-là Fisch ist silbern,quelques Fische sommes bleu et quelques silbern,"+\
"Einige Säugetiere vivre im l'eau,quelques Tiere qui sur dem pays vivre sommes Säugetiere,- aucun Antwort sinnvoll,"+\
"Dieser Fisch ist pas jaune,Alle Fische vivre im lac,aucun sinnvolle Aussage possible.\n Im lac lebt un pas-jaune Fisch?,"+\
"Alle Schweine grunzen,cet bête grunzt,quelques Tiere sommes Schweine,"+\
"Alle Tiere volonté née,Alle Schweine sommes Tiere,Alle Schweine volonté née,"+\
"Keine Tiere volonté pas née,ne...aucune Schwein ist ne...aucune bête pas,aucun sinnvolle Aussage möglich"
'Pool avec falschen Schlussfolgerungen:
var f$="Alle Rechtecke sommes Vierecke,Alle Quadrate sommes Rechtecke,Alle Vierecke sommes Quadrate,"+\
"Kein Rechteck est un Kreis,Alle Quadrate sommes Rechtecke,ne...aucune Kreis est un Quadrat,"+\
"Alle Quadrate sommes Rechtecke,quelques Rhomben sommes Quadrate,aucun Rhomben sommes Rechtecke,"+\
"Kein Säugetier atmet avec Kiemen,quelques Wassertiere sommes Säugetiere,Alle Wassertiere respirer avec Kiemen,"+\
"Alle Rechtecke sommes Vierecke,Alle Quadrate sommes Rechtecke,Alle Vierecke sommes Quadrate,"+\
"Kein Rechteck est un Kreis,Alle Quadrate sommes Rechtecke,Alle Quadrate sommes aucun Kreise,"+\
"Alle Professoren sommes ernst,quelques Dozenten sommes pas ernst,quelques Professoren sommes pas Dozenten,"+\
"Kein Säugetier atmet par Kiemen,Alle Fische respirer par Kiemen,quelques Fische sommes un Säugetier,"+\
"Alle Fische respirer par Kiemen,ne...aucune Säugetier atmet par Kiemen,quelques Säugetiere sommes un Fisch,"+\
"Kein Abgeordneter est un escroc,quelques Rechtsanwälte sommes escroc,quelques Abgeordnete sommes aucun Rechtsanwälte,"+\
"Einige Münchner sommes pas Politiker,Alle Münchner sommes Stadtbewohner,quelques Stadtbewohner sommes pas Politiker,"+\
"Alle Rechtecke sommes Vierecke,quelques Rechtecke sommes Quadrate,quelques Quadrate sommes Vierecke,"+\
"Einige Früchte sommes Äpfel,Alle Früchte sommes Pflanzen,quelques Äpfel sommes Pflanzen,"+\
"Keine Münchner sommes Passauer,quelques Münchner sommes Studenten,quelques Passauer sommes pas Studenten,"+\
"Alle Quadrate sommes Rechtecke,Alle Quadrate sommes Vierecke,Alle Rechtecke sommes Vierecke,"+\
"Keine Münchner sommes Passauer,Alle Münchner sommes Stadtbewohner,quelques Stadtbewohner sommes Passauer,"+\
"Alle Quadrate sommes Rechtecke,Alle Rechtecke sommes Vierecke,quelques Quadrate sommes aucun Vierecke,"+\
"Alle Passauer sommes Bayern,aucun Bayern sommes Sachsen,quelques Sachsen sommes aucun Passauer,"+\
"Einige Rauten sommes Rechtecke,Alle Rechtecke sommes Parallelogramme,quelques Rauten sommes aucun Parallelogramme,"+\
"Keine Passauer sommes Münchner,Alle Münchner sommes Stadtbewohner,quelques Passauer sommes aucun Stadtbewohner,"+\
"Keine Passauer sommes Münchner,quelques Münchner sommes Studenten,ne...aucune étudiant ist ne...aucune Passauer,"+\
"Alle Angler angeln Fische,Alle Fische schwimmen im lac, aucun Angler schwimmen im lac,"+\
"Kein Angler est un Fisch,quelques Fische sommes aucun Angler,quelques Fische sommes Angler,"+\
"Kein Angler est un Fisch,quelques Fische sommes Angler,Alle Fische sommes Angler,"+\
"Dieser Fisch ist bleu,celui-là Fisch ist silbern,quelques Fische sommes bleu ou bien quelques silbern,"+\
"Einige Säugetiere vivre im l'eau,quelques Tiere qui sur dem pays vivre sommes Säugetiere,Säugetiere vivre à pays,"+\
"Dieser Fisch ist pas jaune,Alle Fische vivre im lac,Im lac lebt un jaune Fisch,"+\
"Alle Schweine grunzen,cet bête grunzt,quelques Schweine sommes Tiere,"+\
"Alle Tiere volonté née,Alle Schweine sommes Tiere,ne...aucune Schwein wird née,"+\
"Keine Tiere volonté pas née,ne...aucune Schwein ist ne...aucune bête pas,Schweine sommes 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&]=&Boucle':imprimer 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&=&Boucle

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

si ok&[i&\3]'si bisher encore pas beantwortet:

    nochma:
    cls rgb(240+rnd(16),240+rnd(16),240+rnd(16))
    locate 2,2:imprimer "Score =         ";
    locate 2,10:imprimer score&;" ";
    locate 9,9:imprimer tab(10);"Frage ";int(i&\3+1);" de 30:\n"
    imprimer tab(10);"----------------------------------------------------\n"
    imprimer tab(10);substr$(si(a&,w$,f$),3*in&[i&\3]+1,»)+".\n"
    imprimer tab(10);substr$(si(a&,w$,f$),3*in&[i&\3]+2,»)+".\n"
    imprimer tab(10);"----------------------------------------------------\n"
    tr$=substr$(si(a&,w$,f$),3*in&[i&\3]+3,»)
    font 0:imprimer tab(10);"Also gilt: ";
    font 2:imprimer tr$;".\n\n"
    font 0:imprimer tab(10);"         Richtig ou bien faux ";'a&; 's'il te plaît pas schummeln!
    font 2:imprimer " [r,f] ?: ";
    input ant$:ant$=$ Trim(ant$):ant$=left$(ant$,1):ant$=lower$(ant$)
    casenot (ant$="r") or (ant$="f"):goto "nochma"

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

        d'autre :score&=score&-101*off!:sound 110,40:sound 100,40

    endif

endif'ok&[]>0

endwhile

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

si off!>=sqr(0.2)' Endtest

imprimer "\n Es folgt une Korrekturmöglichkeit pour qui Fehlantworten."
imprimer " [bouton]"
waitinput 30000
goto "Rept"

d'autre

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

endif

FIN