A causa de les voltes dels ciclistes, moltes vegades aprofitem aquesta ocasió per a apostar entre amics.
A cada participant se li assignen aleatòriament diversos ciclistes, guanyant o perdent en funció del que facin.
A continuació una possible aposta:
Al guanyador de les destinacions intermèdies, cadascun 10 ptes. lliurament (una vegada finalitzada la volta completa).
Al guanyador de ports de muntanya, cadascun 25 ptes. lliurament (una vegada finalitzada la volta completa).
Al guanyador de la classificació d'equips, cadascun 25 ptes. lliura (una vegada finalitzada la volta completa).
Aquest és un programa que t'ajudarà a sortejar ciclistes.
Observacions:
1.- En el número anterior analitzem el problema de repetició d'aleatoris. En aquesta ocasió, hem d'ordenar aleatòriament un conjunt de números (corresponent als ciclistes). Per tant, cal tenir en compte dues condicions:
2.- Amb la finalitat de fer la distribució el més equitativa possible, els caps dels grups s'han inclòs en una altra taula, separant els primers (línies 110 a 120). Pot ocórrer que no tots els participants tinguin el mateix nombre de ciclistes. En aquests casos s'ha redactat el programa perquè la major diferència entre els participants sigui d'un sol participant (línies 210-270).
3.- Perquè els participants que han de quedar-se amb menys ciclistes no siguin sempre els mateixos, la millor solució ha estat ordenar aleatòriament als participants (línies 90-100).
4.- En aquest programa no hem tingut en compte els noms dels ciclistes, sinó els números que porten.
5.- Introdueix en la línia 1010 tots els noms dels quals participareu en el sorteig abans d'executar el programa.
6.- Les nostres limitacions són:
Núm. de ciclistes: 200 Nombre d'equips:
20
Assistents: 20 Si es desitja
superar aquests límits bastarà amb modificar les dimensions de les matrius en la línia 20.
10 CICLISTES REM
20 DIM TXIRRIN1(20),TXIRRIN2(200),PARTICIPANT(20),
MAT1(200),MAT2(200)
30 KEY OFF : SCREEN 2,0 : CLS
40 LOCATE 3,28:PRINT "REPARTIMENT DE CICLISTES":
LOCATE 4,28:PRINT "=========================="
50 LOCATE 10,10: INPUT "Nombre total de ciclistes";KOP1
60 LOCATE 12,10: INPUT "Quants equips són";EKI
70 LOCATE 14,10:
NUM.1(Núm.
DE PARTICIPANTS).