Tilfælde

Sæt et billede på en form. Til føj en knap og et onclick event på den og skriv så det følgende :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if random (500) = 37 then
    Image1.Picture.Assign(nil);
end;
initialization
  Randomize;
end.

jens B

borrisholt> hvorfor ikke sådan her ?

<SNIP>
procedure TForm1.Button1Click(Sender: TObject);
const
  HEST = 37;
begin
  if random (500) = HEST then
    Image1.Picture.Assign(nil);
end;
initialization
  Randomize;
end.
</SNIP>


:-))

:-)) Fordi så får jeg skæn for at blande sagesløse dyr ind i min programmering ...

Jens B

ih hi
stone

Jeg kan ikke helt se hvorfor random(2)=1 ikke er nok?

abpdk>> basalt set er det det samme. Det er blot et spørgsmål om at skrue på sansynligheden ....

Jens B

borrisholt>> Det kan jeg godt se, men jeg synes ikke spørgsmålet siger noget om at sandsynligheden skal være SÅ lille.

abpdk

abpdk> Tallene 500 og 37 er grebet totalt ud af den blå luft !

Jens B

Accepterer svaret.

Faktisk læste jeg engang at tallet 37 er det mest utilfældige af alle tilfældige tal mellem 0 og 100. 
En gruppe menesker var blevet spurgt om et sådant tal og der var altså flest der sagde 37.

Grunden til dette??  Et gæt er, at det er kroppens temperatur.

MEN::: Det forklare stadig ikke hvorfor så mange heste indgår i forskellige personers, hovedsageligt programøre af profession, daglige ordforbrug.

Delphi