Hier ein Stück original Quelltext von meinem Informatiklehrer.. JA, richtig gehört, von einem Informatiklehrer!
Delphi-Quellcode:
var
i: Integer;
begin
i := Random(6) + 1;//Würfeln
if i = 1 then
ShowMessage('1 gewürfelt')//Wenn i=1 dann '1' ausgeben
else if i = 2 then
ShowMessage('2 gewürfelt')//Wenn i=2 dann '2' ausgeben
else if i = 3 then
ShowMessage('3 gewürfelt')//Wenn i=3 dann '3' ausgeben
else if i = 4 then
ShowMessage('4 gewürfelt')//Wenn i=4 dann '4' ausgeben
else if i = 5 then
ShowMessage('5 gewürfelt')//Wenn i=5 dann '5' ausgeben
else if i = 6 then
ShowMessage('6 gewürfelt')//Wenn i=6 dann '6' ausgeben
//besonders übersichtliche Möglichkeit, das gewürfelte auszugeben
end;
Ich frage mich manchmal echt, warum der Informatik unterrichtet..
