Zitat von
Fussball-Robby:
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;
Es didaktisch völlig in Ordnung, wenn man bei einem Beispiel zum Erlernen einer Programmiersprache vor/nach jedem Befehl einen Kommentar schreibt was der eigentlich macht.
Delphi-Quellcode:
program Ausgabe; // program muß bei jedem programm die 1. Anweisung sein.
// Damit wird es eine Konsolenanwendung (DOS Box -> schwarzes Text Fenster)
{$APPTYPE CONSOLE}
// hier beginnt das Hauptprogramm
begin
// Den Text Hello world. ausgeben
WriteLn('Hello world.');
// Auf die Eingabetaste warten
ReadLn;
// Jedes Programm wird mit einem end. abgeschlossen
end.
Aber hier sollte ja eigentlich nicht diskutiert werden, sondern lustige/sonderbare Kommentare gepostet werden.
