for i=1 to 13 Step 1
val=Limit(Rnd(13),1,13)
PrintN(val)
xx=xx+14
Next
Function Estrazione()
; Estrae 13 numeri casuali senza ripetizioni
Local numeri_estratti = { }
Local contatore_estratti = 0
While (contatore_estratti < 13)
; Questo loop si occupa dell'estrazione
Local estratto = Rnd(13)
; Controlal che il numero estratto non sia gia' uscito
Local trovato = False
For Local i = 1 To contatore_estratti
If numeri_estratti[i] = estratto
; Questo numero e' gia' uscito
trovato = True
Break
EndIf
Next
If Not(trovato)
; In questo caso il numero estratto non era gia' uscito
; lo devo memorizzare nella tabella degli estratti
contatore_estratti = contatore_estratti + 1
numeri_estratti[contatore_estratti] = estratto
EndIf
; Stampa i risultati delle estrazioni
For Local i = 1 To 13
DebugPrint("Estratto nr.", i, " --> ", numeri_estratti[i])
Next
Wend
EndFunction
Function Extraction()
global num = {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30}
Local contatore=0
While (contatore<29)
estratto=Rnd(29)
local trovato=false
for local i=1 to contatore
if num[i] = estratto
trovato=true
Break
EndIf
Next
If NOT(trovato)
contatore=contatore+1
num[contatore]=estratto
Endif
SetFontColor(#BLACK)
;for local i=1 to 29
;debugprint(num[i]," ")
;next
Wend
EndFunction
Extraction()
SetFontColor(#BLACK)
posy=100
for s =1 to 10
pos=130
for i=1 to 6
Locate(pos, posy)
pos=pos+30
Print(num[i]," ")
next
posy=posy+20
Extraction()
next
Torna a Programmazione su Amiga
Visitano il forum: Nessuno e 12 ospiti