Debido ás voltas dos ciclistas, moitas veces aproveitamos esta ocasión paira apostar entre amigos.
A cada participante asígnanselle aleatoriamente varios ciclistas, gañando ou perdendo en función do que fagan.
A continuación una posible aposta:
Ao gañador dos destinos intermedios, cada un 10 ptas. entrega (una vez finalizada a volta completa).
Ao gañador de portos de montaña, cada un 25 ptas. entrega (una vez finalizada a volta completa).
Ao gañador da clasificación de equipos, cada un 25 pts. entrega (una vez finalizada a volta completa).
Este é un programa que che axudará a sortear ciclistas.
Observacións:
1.- No número anterior analizamos o problema de repetición de aleatorios. Nesta ocasión, debemos ordenar aleatoriamente un conxunto de números (correspondente aos ciclistas). Por tanto, hai que ter en conta dúas condicións:
2.- Co fin de facer a distribución o máis equitativa posible, os xefes dos grupos incluíronse noutra táboa, separando os primeiros (liñas 110 a 120). Pode ocorrer que non todos os participantes teñan o mesmo número de ciclistas. Nestes casos redactouse o programa para que a maior diferenza entre os participantes sexa dun só participante (liñas 210-270).
3.- Para que os participantes que teñen que quedar con menos ciclistas non sexan sempre os mesmos, a mellor solución foi ordenar aleatoriamente aos participantes (liñas 90-100).
4.- Neste programa non tivemos en conta os nomes dos ciclistas, senón os números que levan.
5.- Introduce na liña 1010 todos os nomes dos que ides participar no sorteo antes de executar o programa.
6.- As nosas limitacións son: Nº de ciclistas: 200 Número de equipos: 20 Asistentes: 20 Si deséxase superar estes límites bastará con modificar as dimensións das matrices na liña 20.
10 CICLISTAS REM 20 DIM TXIRRIN1(20),TXIRRIN2(200),PARTICIPANTE(20), MAT1(200),MAT2(200) 30 KEY OFF : SCREEN 2,0 : CLS 40 LOCATE 3,28:PRINT "REPARTICIÓN DE CICLISTAS": LOCATE 4,28:PRINT "==========================" 50 LOCATE 10,10: INPUT "Número total de ciclistas";KOP1 60 LOCATE 12,10: INPUT "Cantos equipos son";EKI 70 LOCATE 14,10: NUM.1(Nº DE PARTICIPANTES)