Selbstablaufendes Programm

Beschreibung: Schreibt selbstständig den Satz "Ich habe keine Lust!", lässt ihn kurz blinken und fängt von vorne an. Aufgrund dessen, dass die Variable "m" keinen Wert annimmt, wird die Schleife nie stoppen. Für eine bessere Übersicht wurde die "Schreibarbeit" in eine "procedure" geschmissen. Sie wird unten mit einem einfachen Befehl ausgegeben und dank der Variable immer wieder ausgeführt. Enstanden an einem Donnerstagmorgen um 8 Uhr mit fast geschlossenen Augen ;)

program lust;
uses wincrt;
var m : shortint;

procedure lust ;
begin
clrscr;
writeln('I');
delay 500;
clrscr;
writeln('Ic');
delay 375;
clrscr;
writeln('Ich');
delay 721;
clrscr;
writeln('Ich h');
delay 425;
clrscr;
writeln('Ich ha');
delay 456;
clrscr;
writeln('Ich hab');
delay 563;
clrscr;
writeln('Ich habe');
delay 763;
clrscr;
writeln('Ich habe k');
delay 349;
clrscr;
writeln('Ich habe ke');
delay 245;
clrscr;
writeln('Ich habe kei');
delay 732;
clrscr;
writeln('Ich habe keine');
delay 123;
clrscr;
writeln('Ich habe keine L');
delay 915;
clrscr;
writeln('Ich habe keine Lu');
delay 1024;
clrscr;
writeln('Ich habe keine Lus');
delay 95;
clrscr;
writeln('Ich habe keine Lust');
delay 100;
clrscr;
writeln('Ich habe keine Lust!');
delay 500;
clrscr;
writeln('');
delay 500;
clrscr;
writeln('Ich habe keine Lust!');
delay 500;
clrscr;
writeln('');
delay 500;
clrscr;
writeln('Ich habe keine Lust!');
delay 500;
clrscr;
writeln('');
end;
begin
repeat lust until m = 2;
end.

Kostenlose Website erstellt mit Web-Gear

Verantwortlich für den Inhalt dieser Seite ist ausschließlich der Autor dieser Webseite. Verstoß anzeigen