Eure besten Quellcode Kommentare...

[HenKst]

wollte grade meinen HTMLparser überarbeiten und stolper über folgenden kommentar

Delphi-Quellcode:

  if tmps[1]<>'/' then begin
    Result.AddItem(WorkThemTags(tmps));
   end else begin
    //is doof-.-
    sleep(0);
  end;

ich fürchte der läuft da aber auch noch regelmässig durch^^

[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;

Ich frage mich manchmal echt, warum der Informatik unterrichtet..

[FAlter]

Hi,

wenn man z. B. die Zahlworte ausgeben würde, würde ich das ja als besonders gutes Be3ispiel ansehen, um case of zu erklären, und dann mal im Vergleich mit If-then-else if... aber das wäre dann eher die unübersichtliche Möglichkeit. Im Normalfall fände ich Format ziemlich übersichtlich.

Aber was erwartet man schon von Lehrern oder Dozenten?

Java-Dozent:

Wer arbeitet denn schon mit Delphi? Das ist doch eine uralt-prozedurale Sprache.

Mfg
FAlter

[Relicted]

Zitat von FAlter:

wenn man z. B. die Zahlworte ausgeben würde, würde ich das ja als besonders gutes Be3ispiel ansehen, um case of zu erklären...

Also ich würde damit inttostr() oder format() erklären ^^ case, if und co sind bissl zu viel

Delphi-Quellcode:

var
  i: Integer;
begin
  i := Random(6) + 1;//Würfeln
  ShowMessage(IntToStr(i)+' gewürfelt');
  //besonders übersichtliche Möglichkeit, das gewürfelte auszugeben
end;

)

[FAlter]

Hi,

ich meine ja auch so was in der Art wie das hier:

Delphi-Quellcode:

case zahl of
  1: ShowMesage('Eins gewürfelt.');
  ...
end;

Mfg
FAlter

[Fussball-Robby]

Zitat von FAlter:

ich meine ja auch so was in der Art wie das hier:

Delphi-Quellcode:

case zahl of
  1: ShowMesage('Eins gewürfelt.');
  ...
end;

Dann würde ich lieber direkt ein const Array[1..6] of String mit den entsprechenden Worten nehmen. Aber mein Informatiklehrer würde niemlas etwas einfaches oder übersichtliches programmieren der schreibt ja auch bis zu 10 Befehle in eine Zeile

[freak4fun]

ShowMessage(IntToStr(Random(6) + 1) + ' gewürfelt');

[turboPASCAL]

Delphi-Quellcode:

/////////////////////////// Geht nich gibs nich ///////////////////////////////
program W;uses windows;var i:byte;begin;allocconsole;randomize;for i:=0to 19do
writeln('Ich habe eine'#32,Random(6)+1,#32'gewuerfelt');readln;freeconsole;end.
//////////////////////////////////////////////////////////////////////////////

[FAlter]

Guten Morgen,

aber irgendein Beispiel muss man ja für Case-of verwenden, uns es sollte einfach sein. Natürlich ist ein Array eine gute Möglichkeit, aber welches einfache Beispiel hättest du für case-of denn sonst?

Wie auch immer, das was der Lehrer geschrieben hat ist nicht mal für if-then-else ein gutes Beispiel.

{ So, und jetzt zurück zu den Kommentaren. }

Mfg
FAlter

[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.