-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Juego "Piedra, papel o tijera" usuario vs ordenador.
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
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
Proceso PiedraPapelOTijera
Escribir "Selecciona el valor de jugada del usuario.";
Escribir " 1.- Piedra";
Escribir " 2.- Papel";
Escribir " 3.- Tijera";
Escribir Sin Saltar " :";
Repetir
Leer jugada_del_usuario;
Si jugada_del_usuario<1 O jugada_del_usuario>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que jugada_del_usuario>=1 Y jugada_del_usuario<=3;
jugada_del_ordenador <- 1+AZAR(3);
Si jugada_del_ordenador = 1 Entonces
Escribir "La jugada del ordenador es Piedra";
FinSi
Si jugada_del_ordenador = 2 Entonces
Escribir "La jugada del ordenador es Papel";
FinSi
Si jugada_del_ordenador = 3 Entonces
Escribir "La jugada del ordenador es Tijera";
FinSi
Si jugada_del_usuario = jugada_del_ordenador Entonces
Escribir "Empate";
FinSi
Si (jugada_del_usuario = 1 Y jugada_del_ordenador = 3) O (jugada_del_usuario = 2 Y jugada_del_ordenador = 1) O (jugada_del_usuario = 3 Y jugada_del_ordenador = 2) Entonces
Escribir "Gana usuario";
FinSi
Si (jugada_del_usuario = 3 Y jugada_del_ordenador = 1) O (jugada_del_usuario = 1 Y jugada_del_ordenador = 2) O (jugada_del_usuario = 2 Y jugada_del_ordenador = 3) Entonces
Escribir "Gana ordenador";
FinSi
Escribir "Valor de jugada del ordenador: ", jugada_del_ordenador;
FinProceso
Escribir "Selecciona el valor de jugada del usuario.";
Escribir " 1.- Piedra";
Escribir " 2.- Papel";
Escribir " 3.- Tijera";
Escribir Sin Saltar " :";
Repetir
Leer jugada_del_usuario;
Si jugada_del_usuario<1 O jugada_del_usuario>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que jugada_del_usuario>=1 Y jugada_del_usuario<=3;
jugada_del_ordenador <- 1+AZAR(3);
Si jugada_del_ordenador = 1 Entonces
Escribir "La jugada del ordenador es Piedra";
FinSi
Si jugada_del_ordenador = 2 Entonces
Escribir "La jugada del ordenador es Papel";
FinSi
Si jugada_del_ordenador = 3 Entonces
Escribir "La jugada del ordenador es Tijera";
FinSi
Si jugada_del_usuario = jugada_del_ordenador Entonces
Escribir "Empate";
FinSi
Si (jugada_del_usuario = 1 Y jugada_del_ordenador = 3) O (jugada_del_usuario = 2 Y jugada_del_ordenador = 1) O (jugada_del_usuario = 3 Y jugada_del_ordenador = 2) Entonces
Escribir "Gana usuario";
FinSi
Si (jugada_del_usuario = 3 Y jugada_del_ordenador = 1) O (jugada_del_usuario = 1 Y jugada_del_ordenador = 2) O (jugada_del_usuario = 2 Y jugada_del_ordenador = 3) Entonces
Escribir "Gana ordenador";
FinSi
Escribir "Valor de jugada del ordenador: ", jugada_del_ordenador;
FinProceso