XProfan

'Alpha-Versión sin jedwede Gewähr!
Título de la ventana 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.Pájaro carpintero, Wien (Austria). No warranty whatsoever!
'Q: Wikipedia Stichwort "Syllogismus". Ohne jedewede Gewähr!
var w$="Alle Rechtecke son Vierecke,Alle Quadrate son Rechtecke,Alle Quadrate son Vierecke,"+\
"Kein Rechteck es una Kreis,Alle Quadrate son Rechtecke,Kein Quadrat es una Kreis,"+\
"Alle Quadrate son Rechtecke,Einige Rhomben son Quadrate,Einige Rhomben son Rechtecke,"+\
"Kein Säugetier atmet con Kiemen,Einige Wassertiere son Säugetiere,Einige Wassertiere atmen no con Kiemen,"+\
"Alle Rechtecke son Vierecke,Alle Quadrate son Rechtecke,Einige Quadrate son Vierecke,"+\
"Kein Rechteck es una Kreis,Alle Quadrate son Rechtecke,Einige Quadrate son no Kreise,"+\
"Alle Professoren son ernst,Einige Dozenten son no ernst,Einige Dozenten son no Professoren,"+\
"Kein Säugetier atmet por Kiemen,Alle Fische atmen por Kiemen,Kein Fisch es una Säugetier,"+\
"Alle Fische atmen por Kiemen,Kein Säugetier atmet por Kiemen,Kein Säugetier es una Fisch,"+\
"Kein Abgeordneter es una Gauner,Einige Rechtsanwälte son Gauner,Einige Rechtsanwälte son no Abgeordneten,"+\
"Einige Münchner son no Politiker,Alle Münchner son Stadtbewohner,Einige Stadtbewohner son no Politiker,"+\
"Alle Rechtecke son Vierecke,Einige Rechtecke son Quadrate,Einige Quadrate son Vierecke,"+\
"Einige Früchte son Äpfel,Alle Früchte son Pflanzen,Einige Pflanzen son Äpfel,"+\
"Keine Münchner son Passauer,Einige Münchner son Studenten,Einige Studenten son no Passauer,"+\
"Alle Quadrate son Rechtecke,Alle Quadrate son Vierecke,Einige Vierecke son Rechtecke,"+\
"Keine Münchner son Passauer,Alle Münchner son Stadtbewohner,Einige Stadtbewohner son no Passauer,"+\
"Alle Quadrate son Rechtecke,Alle Rechtecke son Vierecke,Einige Vierecke son Quadrate,"+\
"Alle Passauer son Bayern,Keine Bayern son Sachsen,Keine Sachsen son Passauer,"+\
"Einige Rauten son Rechtecke,Alle Rechtecke son Parallelogramme,Einige Parallelogramme son Rauten,"+\
"Keine Passauer son Münchner,Alle Münchner son Stadtbewohner,Einige Stadtbewohner son no Passauer,"+\
"Keine Passauer son Münchner,Einige Münchner son Studenten,Einige Studenten son no Passauer,"+\
"Alle Angler angeln Fische,Alle Fische schwimmen en el See, Keine Angler angeln no en el See,"+\
"Kein Angler es una Fisch,Einige Fische son no Angler,Keine Antwort sinnvoll(Einige vielleich ya?),"+\
"Kein Angler es una Fisch,Einige Fische son Angler,Einige Angler angeln no???,"+\
"Dieser Fisch es blau,Jener Fisch es silbern,Einige Fische son blau y algunos silbern,"+\
"Einige Säugetiere leben en el Wasser,Einige Tiere el en el Land leben son Säugetiere,- Keine Antwort sinnvoll,"+\
"Dieser Fisch es no gelb,Alle Fische leben en el See,Keine sinnvolle Aussage posible.\n Im See lebt una no-amarillo Fisch?,"+\
"Alle Schweine grunzen,Dieses Tier grunzt,Einige Tiere son Schweine,"+\
"Alle Tiere voluntad geboren,Alle Schweine son Tiere,Alle Schweine voluntad geboren,"+\
"Keine Tiere voluntad no geboren,Kein Schwein es kein Tier no,Keine sinnvolle Aussage möglich"
'Pool con falschen Schlussfolgerungen:
var f$="Alle Rechtecke son Vierecke,Alle Quadrate son Rechtecke,Alle Vierecke son Quadrate,"+\
"Kein Rechteck es una Kreis,Alle Quadrate son Rechtecke,Kein Kreis es una Quadrat,"+\
"Alle Quadrate son Rechtecke,Einige Rhomben son Quadrate,Keine Rhomben son Rechtecke,"+\
"Kein Säugetier atmet con Kiemen,Einige Wassertiere son Säugetiere,Alle Wassertiere atmen con Kiemen,"+\
"Alle Rechtecke son Vierecke,Alle Quadrate son Rechtecke,Alle Vierecke son Quadrate,"+\
"Kein Rechteck es una Kreis,Alle Quadrate son Rechtecke,Alle Quadrate son no Kreise,"+\
"Alle Professoren son ernst,Einige Dozenten son no ernst,Einige Professoren son no Dozenten,"+\
"Kein Säugetier atmet por Kiemen,Alle Fische atmen por Kiemen,Einige Fische son una Säugetier,"+\
"Alle Fische atmen por Kiemen,Kein Säugetier atmet por Kiemen,Einige Säugetiere son una Fisch,"+\
"Kein Abgeordneter es una Gauner,Einige Rechtsanwälte son Gauner,Einige Abgeordnete son no Rechtsanwälte,"+\
"Einige Münchner son no Politiker,Alle Münchner son Stadtbewohner,Einige Stadtbewohner son no Politiker,"+\
"Alle Rechtecke son Vierecke,Einige Rechtecke son Quadrate,Einige Quadrate son Vierecke,"+\
"Einige Früchte son Äpfel,Alle Früchte son Pflanzen,Einige Äpfel son Pflanzen,"+\
"Keine Münchner son Passauer,Einige Münchner son Studenten,Einige Passauer son no Studenten,"+\
"Alle Quadrate son Rechtecke,Alle Quadrate son Vierecke,Alle Rechtecke son Vierecke,"+\
"Keine Münchner son Passauer,Alle Münchner son Stadtbewohner,Einige Stadtbewohner son Passauer,"+\
"Alle Quadrate son Rechtecke,Alle Rechtecke son Vierecke,Einige Quadrate son no Vierecke,"+\
"Alle Passauer son Bayern,Keine Bayern son Sachsen,Einige Sachsen son no Passauer,"+\
"Einige Rauten son Rechtecke,Alle Rechtecke son Parallelogramme,Einige Rauten son no Parallelogramme,"+\
"Keine Passauer son Münchner,Alle Münchner son Stadtbewohner,Einige Passauer son no Stadtbewohner,"+\
"Keine Passauer son Münchner,Einige Münchner son Studenten,Kein Student es kein Passauer,"+\
"Alle Angler angeln Fische,Alle Fische schwimmen en el See, Keine Angler schwimmen en el See,"+\
"Kein Angler es una Fisch,Einige Fische son no Angler,Einige Fische son Angler,"+\
"Kein Angler es una Fisch,Einige Fische son Angler,Alle Fische son Angler,"+\
"Dieser Fisch es blau,Jener Fisch es silbern,Einige Fische son blau oder algunos silbern,"+\
"Einige Säugetiere leben en el Wasser,Einige Tiere el en el Land leben son Säugetiere,Säugetiere leben a Land,"+\
"Dieser Fisch es no gelb,Alle Fische leben en el See,Im See lebt una amarillo Fisch,"+\
"Alle Schweine grunzen,Dieses Tier grunzt,Einige Schweine son Tiere,"+\
"Alle Tiere voluntad geboren,Alle Schweine son Tiere,Kein Schwein se geboren,"+\
"Keine Tiere voluntad no geboren,Kein Schwein es kein Tier no,Schweine son Tiere"
Windowstyle 24:CLS:randomize:font 2
declarar in&[29],ok&[29],k&
ok&[]=1:in&[]=-1

whileloop 0,29

    repeat:k&=rnd(30)

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

endwhile':waitinput

declarar 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 todavía no beantwortet:

    nochma:
    cls rgb(240+rnd(16),240+rnd(16),240+rnd(16))
    locate 2,2:imprimir "Score =         ";
    locate 2,10:imprimir score&;" ";
    locate 9,9:imprimir tab(10);"Frage ";int(i&\3+1);" de 30:\n"
    imprimir tab(10);"----------------------------------------------------\n"
    imprimir tab(10);substr$(if(a&,w$,f$),3*in&[i&\3]+1,",")+".\n"
    imprimir tab(10);substr$(if(a&,w$,f$),3*in&[i&\3]+2,",")+".\n"
    imprimir tab(10);"----------------------------------------------------\n"
    tr$=substr$(if(a&,w$,f$),3*in&[i&\3]+3,",")
    font 0:imprimir tab(10);"Also gilt: ";
    font 2:imprimir tr$;".\n\n"
    font 0:imprimir tab(10);"         Richtig oder falso ";'a&; 'Bitte no schummeln!
    font 2:imprimir " [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

        más :score&=score&-101*off!:sound 110,40:sound 100,40

    endif

endif'ok&[]>0

endwhile

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

if off!>=sqr(0.2)' Endtest

imprimir "\n Lo folgt una Korrekturmöglichkeit para el Fehlantworten."
imprimir " [Taste]"
waitinput 30000
goto "Rept"

más

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

endif

FIN