Adivina el número- Juego malhecho :(
Publicado por MuscariMill (2 intervenciones) el 06/01/2020 02:37:21
¡Hola! Recietemente he empezado a utilizar Pascal, sin embargo no tenfo mucha experiencia en la programación y me cuesta un poco entender una que otra cosa.
Intenté hacer el código de un juego para adivinar el número que crea al azar el PC. Peeeeero... digamos que nunca te dice si has adivinado el número, solamente me pone "Más alto" y "Más bajo" pero no llega a un resultado.
¿Podrían ayudarme? (Espero que no esté muy confuso :( )
Intenté hacer el código de un juego para adivinar el número que crea al azar el PC. Peeeeero... digamos que nunca te dice si has adivinado el número, solamente me pone "Más alto" y "Más bajo" pero no llega a un resultado.
¿Podrían ayudarme? (Espero que no esté muy confuso :( )
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
program Juego;
uses crt;
var
respuesta: integer; adivinando: integer; error: integer; juego: char;begin
repeat
clrscr;
writeln('¿Quieres empezar a jugar?');
writeln;
writeln('Para empezar, pon una y:');
readln (juego);
until (juego='y') or (juego= 'Y');
clrscr;
begin
writeln('Adivina el numero del 1 al 100.');
respuesta:=0;
adivinando:=1;
while (respuesta <> adivinando) do
begin
respuesta:=Random(100);
writeln ('Adivina mi número:');
readln (adivinando);
if adivinando < respuesta thenwriteln ('Más alto')
else if adivinando > respuesta thenwriteln ('Más bajo')
else if adivinando = respuesta thenwriteln ('Adivinaste');
end;
end;
readkey;
end.Valora esta pregunta
0
