Eure besten Quellcode Kommentare...

[MaBuSE]

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.