Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by BUG,
30. Sep 2014
Die Kommentare zeigen die nächsten Schritte auf, die DelphiDan mit dem Code gehen sollte.
bessere Einrückung
die Wiederholungen vermeiden (Array und Schleifen)
dann eventuell die globalen Variablen
case wäre zwar eine schönere Krücke, aber erst mit Schleifen bekommt man ein Großteil der Wiederholungen erschlagen.
Es ist halt wirklich "Anfängercode", aber das ist OK für einen Anfänger...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by BUG,
29. Sep 2014
Du täuschst dich: für die Zahlen zwischen 1 und 12 fällt noch ein +1 :mrgreen:
// Random(n) gibt eine Zahl zwischen 0 und n-1 zurück
zufalldeutsch:=random(12) + 1;
@DelphiDan: Das Textfeld bleibt leer, weil keiner deiner Bedingungen in deinem if-then-else "Monster" zutrifft.