Programmiercode verkürzen!

Ein Thema von daNiii · begonnen am 6. Apr 2009 · letzter Beitrag vom 6. Apr 2009

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.749 Beiträge

Delphi 2007 Professional

6. Apr 2009, 11:01

Zitat von jaenicke:

Das -1 ist aber bei dem Quelltext im Projekt falsch.

Stümmt.

Zitat von jaenicke:

Delphi-Quellcode:

			Wert := Zufallszahl mod 13; 

if Wert > 10 then 

  Wert := 10;

Das reicht schon.

Dann fehlt noch ein Fall für die Eingabe 13:

Delphi-Quellcode:

			Wert := Zufallszahl mod 13; 

if (Wert = 0) or (Wert > 10) then 

  Wert := 10;

oder (mit himitsus Einwurf)
Wert := Max(Succ(Pred(Zufallszahl) mod 13), 10); . (Alles ungetestet.)

ÄHM: Min, nicht Max.

Uli Gerhardt

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Refbacks are aus

Gehe zu: