aufgabe1.pl

这是一个Prolog程序

%Definition der Fragen

frage('Wo sind die aktuelle Hinweise zum Programmierpraktikum zu finden?').
frage('Wann darf fremder Programm-Code verwendet werden?').
frage('Was passiert, wenn unerlaubt fremder Programm-Code verwendet wird?').
frage('Was passiert, wenn anderen Gruppen Quellecode zur Verfuegung gestellt wird?').
frage('Wie viele Aufgaben koennen pro Termin abgegeben werden?').
frage('Was ist zu tun, wenn der Partner abspringt?').
frage('Was ist zu tun,wenn-z.B durch Krankheit-die Moeglichkeit besteht,dass der Abgabetermin nicht eingeschalten werden kann?').
frage('Wann ist der Abgabetermin fuer den 1. Teil des Programmierpraktikums?').
frage('Wann ist der Abgabetermin fuer den 2. Teil des Programmierpraktikums?').
frage('Was wird im Quiz verlangt?').
frage('Was passiert, wenn das Quiz nicht im 1. Versuch bestanden wird?').
frage('Wo finden Sie die Antworten auf diese Fragen?').

% Die Antworten auf die gestellten Fragen.

antwort('Wo sind die aktuelle Hinweise zum Programmierpraktikum zu finden?',
        'Die Homepage ist unter www.in.tu-clausthal.de/index.php?id=290 zu finden.').
antwort('Wann darf fremder Programm-Code verwendet werden?',
        'keine Ahnung').
antwort('Was passiert, wenn unerlaubt fremder Programm-Code verwendet wird?',
        'keine Ahnung').
antwort('Was passiert, wenn anderen Gruppen Quellecode zur Verfuegung gestellt wird?','Dann fliegt man aus').
antwort('Wie viele Aufgaben koennen pro Termin abgegeben werden?',
        'eine Aufgabe.').
antwort('Was ist zu tun, wenn der Partner abspringt?',
        'weiter machen').
antwort('Was ist zu tun,wenn-z.B durch Krankheit-die Moeglichkeit besteht,dass der Abgabetermin nicht eingeschalten werden kann?',
        'keine Ahnung.').
antwort('Wann ist der Abgabetermin fuer den 1. Teil des Programmierpraktikums?',
        'Der Termin ist am 08. Dez.').
antwort('Wann ist der Abgabetermin fuer den 2. Teil des Programmierpraktikums?',
        'Der Termin ist am 09.Feb.').
antwort('Was wird im Quiz verlangt?',
        'Die Kenntnis ueber die beide Programmiersprachen.').
antwort('Was passiert, wenn das Quiz nicht im 1. Versuch bestanden wird?',
        'Vielleicht gibt es noch eine Chance').
antwort('Wo finden Sie die Antworten auf diese Fragen?',
        'In meinem Kopf').

start :-
frage(X),                   /* Eingabe der Frage */
antwort(X, Y),             /* Antwort auf die Frage */
write(Y),                   /*Ausgabe der Frage*/
nl,
fail.