Grundkurs Informatik

program informatik;
const schüleranzahl=8;
davon_in_der_k13=4;
namen=_joseph_dorfmeister,_johannes_vrana,_michael_zander,_alexa_zellentin;
lehrer=_Herr_Beck;
Ort=´War nie ganz klar´;
Zeit=7. Und 8.Stunde, Freitags;

begin
write(´1 Byte Schüler durfte sich (Freitags nachmittags!!!!) wöchentlich an den "modernen" Computern des RGM vergnügen. Die Rechner wurden im Laufe des Jahres durch immer neuere ersetzt. Zum Schluß hatten wir sogar Pentiums (Registed trade mark by Intel Technologie) und ISDN-Anschlüsse. ´);
write(´Herr Beck versuchte uns immer wieder in die geheimen Denkstrukturen eines Informatikers einzuführen. Dafür durften wir uns mit zahlreichen kleineren ( eigentlich nutzlosen ) Progrämmchen ( wie z.B. Sierpinski ) beschäftigen.´);
write(´So gab es unsere Nonchecker, Mäusechecker, und CheckItOutPeople (Bei Erklärungsbedarf: KEINE AUSKUNFT!!!).
write(´Und zum Abschluß unseres Artikels wünschen wir den restlichen Mitschülern des Informatik GK´s aus der K12 noch viel Spaß beim Denken ( Freitags nachmittags !!! ) und Programmieren. rrn Beck nicht zuviel Ärger !!! ´);

end.

PROGRAM ggT_Euklid;
{Ein typisches Programmbeispiel von unserem Informatikunterricht}
TYPE nat = 0..maxint;
VAR a,b : nat;
BEGIN
write(´Gib a b ein:´); readln(a,b); writeln;
write(´ggT(´,a,´,´,b,´)=´);
REPEAT
IF a>b THEN a:=a-b;
IF b>a THEN b:=b-a;
UNTIL a=b;
writeln(a); readln;
END.

Johannes Vrana, Michael Zander