Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Random teilweise "beeinflussen? (https://www.delphipraxis.net/2267-random-teilweise-beeinflussen.html)

Helmut 15. Jan 2003 12:52


Random teilweise "beeinflussen?
 
Hi,

da ich für mein Würfelspiel eine KI schreiben will, hab ich mir die ganze Zeit schon überlegt wie man das anstellen könnte.

Damit der Computer aber nicht immer das gleiche macht, möchte ich Random einbauen.
Jetzt fällt mir aber nix ein, wie man es anstellen könnte das der Computer zum beispiel zu 80% Lösung A nimmt und zu 20% Lösung B.

Oder zu 60% A, 20% B und 20% C. Wie kann man das machen?

mfg
Helmut

sakura 15. Jan 2003 12:54

Wie wärs mit einer if-Abfrage
Delphi-Quellcode:
var
  Take: Integer;
begin
  Take := Random(100); // 0..99
  if Take < 60 then
    // nimm Lösung 1
  else if Take < 80 then
    // nimm Lösung 2
  else
    // nimm Lösung 3
end;

d3g 15. Jan 2003 12:57

Hallo Helmut,

zieh doch einfach eine Zufallszahl zwischen 1 und 100. Wenn sie zwischen 1 und 60 liegt, dann tritt Ereignis A ein, zwischen 61 und 80 Ereignis B und zwischen 81 und 100 Ereignis C.

MfG,
d3g

[edit]Zu spät... :mrgreen:[/edit]

Helmut 15. Jan 2003 13:02

super, und ich dachte da muss man irgendwas spezielles wissen. Trotzdem: darauf wär ich irgendwie nicht gekommen :oops:
Aber genau so dachte ich mir das, danke!

mfg
Helmut

sakura 15. Jan 2003 13:15

Jetzt musst Du nur noch darauf achten, dass Du auch wirklich mind. 3 Lösungen hast, sonst wird es brenzlig, wenn Du die dritte Lösung willst :D


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz