Grundkurs Informatik bei Herrn Wonneberger

PROGRAM Info_Unterricht_Bei_Herrn_Wonneberger;



{Programmbibliotheken, die wir für dieses Programm benötigen}

USES Gymnasium_Wkh,Computerraum,Computer,Maus,Tastatur,Luft,Stegmeyer;





{Dieses Programm simuliert den Info-GK 13 (1999/2000).

Für Fehlerfreie Ausführung/Übersetzung kann nicht garantiert werden - kein

Wunder, bei dem Kurs.}



{Zuerst einmal die Kurszusammenstellung}

TYPE Kurs13 = RECORD

		Georg_Friedrich : Schüler;

		Dennis_Stolze : Schüler;

		Martin_Keim : Schüler;

		Barbara_Fries : Schülerin;

		Vesa_Klumpp : Schüler;



		Norbert_Wonneberger : Lehrer;

	END;



BEGIN

{Damit der Info-Kurs ueberhaupt stattfinden kann, muss mindestens einer oder

auch zwei Schüler und Norbert_Wonneberger da sein}

  IF(Jemand_Anwesend AND Norbert_Wonneberger=TRUE) THEN BEGIN



{Zuerst einmal kommt Norbert in den Info-Raum}

  komm(Norbert_Wonneberger);



{Dann vergeht einige Zeit}

  warte(5-10 Minuten);



{und vielleicht kommen irgendwann mal die Schüler}

  komm(Schüler);



{Herr Wonneberger erklärt den Verlauf des restlichen Schuljahres.

Dazu ist zu sagen, dass der Verlauf jede Woche anders aussah, obwohl er für

einige Monate in die Zukunft geplant war.}



  erkläre(Norbert_Wonneberger,sagirgendwas);

{...und niemand hört zu...}

  weghören(Schüler);



{um jetzt den Rest der 2 Infostunden zu verbringen, haben alle irgendwas vor

dem Computer gemacht.

Man kann in der Infostunde so einiges machen. Man kann z.B. auf Klausuren

lernen, seine E-Mails lesen, oder einfach aufpassen(???)}



  WHILE Unterricht_Noch_Nicht_Zu_Ende DO BEGIN



    Dem_Unterricht_Lauschen(Schüler);

    E-Mails_lesen(Schüler);



    Zum_Fenster_Hinausschauen(Wonneberger);

{Das kann aber nicht nur der:}

    Zum_Fenster_Hinausschauen(Schüler);



    Wonneberger(sagwas,irgendwas,egalwas);

    WHILE Wonneberger(sagwas,irgendwas) BEGIN

      Schueler(Auf_Durchzug_schalten);

    END;



    Schueler(Alles_Wieder_Vergessen);



    IF datum="15.5.2000" THEN GOTO WONNEBERGERS_HAUS;



  END;

END;



PROCEDURE WONNEBERGERS_HAUS:

BEGIN

  Auspacken(Biergarnitur);

  REPEAT

    SPASS_HABEN;

{SPASS_HABEN ist nicht im Programm "Info_Unterricht_Bei_Herrn_Wonneberger"

definiert, das heisst NICHT, dass wir im Info-GK keinen Spass hatten!

Ganz im Gegenteil!!!}

    WHILE Level < (1/3)*Limit BEGIN

      KILL(Kasten);

    END;

    IF KASTEN=0 THEN GOTO Zapfsaeule;

  UNTIL HALB_SECHS_UHR=1;

END;