fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

KI zum Zahlen erraten

Uploader:	AndT
Datum/Zeit:	02.11.2007 21:55:32

'randomize timer

dim as integer zuerratendezahl

Input "Zu erratende Zahl";zuerratendezahl

dim as double max

dim as double min

dim as integer finder

dim as integer schritte

dim as integer fails

do





    schritte +=1

    finder = int(rnd*max)+1 ' erratet die zahl wirklich..





    ' ___ algo zur erkeennung ___

    if finder > zuerratendezahl then max-=10000

    if max < min then max +=20000

    for scan as integer = 1 to 100 ' 100 schritte zum einskannen



    if finder < min then finder = min

    if finder < zuerratendezahl then min+=20

    fails +=1

    if fails > 250 then min -=1:fails=0





    if max < min then max = min +(max/10):max+=100000



    if finder = zuerratendezahl then print "gefunden in ";schritte;" schritten!":sleep:exit do

next

    '___ ende des Algo ___



    locate 1,1:print "max=";max,"min=";min,"zahl=";zuerratendezahl,"finder=";finder



    loop

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.