Info GK Hk Gc
program Info;
program
Info;
uses
crt;
const
schueler = 9;
procedure
Gerecke_12;
var
kurstreffen, internet, hausarbeit, unterricht : string;
begin
kurstreffen
:= 'Wandern + Essen + Spielen'; {gut und abwechslungsreich}
internet
:= 'kein Erfolg'; {verzweifelte Versuche morgens 5.00 Uhr}
hausarbeit
:= 'Heiratsvermittlungsprogramm';
{unerwartet
hoher Arbeitsaufwand; Teamworker flogen auf,
Benotung
jedoch fair}
unterricht
:= 'niveauvoll; hohe Anforderungen; Aufbesserung der Noten'
'durch
Einsatz m”glich';
writeln(unterricht,'Fazit:
lehrreich und empfehlenswert');
readln;
end;
procedure
Protest;
var
kurs : boolean;
erfolg,
reaktion : string;
begin
kurs
:= false; erfolg := 'ja';
repeat
writeln('An
die Schulleitung:');
writeln('13
er Info - Kurs m”chte nicht aufgel”st werden, da
'umfassende
Bildung erwチnscht');
readln(reaktion);
if
reaktion = erfolg then kurs := true;
until
kurs = true;
end;
procedure
Hickel_13;
var
kurstreffen, klausur, internet, delphi, unterricht : string;
begin
kurstreffen
:= 'fand leider nie statt';
klausur
:= 'nicht offiziell, aber immer fair';
internet
:= 'einmal erfolgreich gesurft';
delphi
:= 'Hoffnung der Schチler
eine neue Programmiersprache'
'zu
erlernen wurde entt„uscht';
{da
Turbo Pascal - Kenntnisse erforderlich waren}
unterricht
:= 'leider nur 14 - t„gig, aber besser als nichts';
writeln(unterricht,'Fazit:
verst„ndlicher Unterricht und'
'DANKE
fチr
die freiwillig geopferte Zeit');
end;
begin
clrscr;
Gerecke_12;
Protest;
Hickel_13;
writeln('Beiden
Lehrern gebチhrt
der Dank des Info-Gk fチr
Ihren Einsatz,');
writeln('ohne
dessen Hilfe der Kurs, aufgrund der Sparmaánahmen im');
writeln('Bildungssystem
schon lange nicht mehr existent w„re.');
readln;
END.
zurück << Zurück zur Übersicht >> weiter
|