0votos

Programa Futbol en Gambas

por Guizans hace 13 días

Mi solución en Gambas.

Sencillo en netbeans Java consola, es una actividad de la universidad para los que somos nuevos programando

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
' Gambas module file 
 
Public Sub Main() 
 
  Dim capitan1, capitan2, b As String 
  Dim jugadores As New String[22] 
  Dim equipo1 As New String[11] 
  Dim equipo2 As New String[11] 
  Dim a, c As Integer 
   
  Print "Introduce el nombre del primer capitan : " 
  Line Input capitan1 
   
  Print "Introduce el nombre del segundo capitan: " 
  Line Input capitan2 
   
  Print "Jugadores participantes..." 
  For a = 0 To 21 
    Print "Introduce el nombre del jugador " & (a + 1) 
    Line Input b 
    jugadores[a] = b 
  Next 
   
  For c = 0 To 10 
    Print "Jugadores restantes:" 
    For Each b In jugadores 
      Print b 
    Next 
    While True 
      Print capitan1 & ", Dime un nombre de un jugador: " 
      Line Input b 
      If jugadores.Exist(b) Then 
        jugadores.Remove(jugadores.Find(b)) 
        equipo1.Add(b) 
        Break 
      Else 
        Print "Ese jugador no existe en la lista" 
      Endif 
    Wend 
    While True 
      Print capitan2 & ", dime un nombre de un jugador: " 
      Line Input b 
      If jugadores.Exist(b) Then 
        jugadores.Remove(jugadores.Find(b)) 
        equipo2.Add(b) 
        Break 
      Else 
        Print "Ese jugador no existe en la lista" 
      Endif 
    Wend 
  Next 
   
  Print "Lista definitiva de los dos equipos:" 
  Print "Equipo del capitan " & capitan1 & ":" 
  For Each b In equipo1 
    Print b 
  Next 
  Print "" 
  Print "Equipo del capitan " & capitan2 & ":" 
  For Each b In equipo2 
    Print b 
  Next 
End 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.