Programación General > Pascal

 Que Sucede?

<< < (2/2)

ProfesorX:

--- Cita de: "lizzmdq" --- Pero siempre el numero a adivinar es 100  :huh:

por que sera?
 
--- Fin de la cita ---
La vez pasada qie vi tu codigo no me habia dado cuenta, pero ahora que lo mencionas, el error esta en la forma que obtienes el numero a adivinar, usas un ciclo de 1 a 100, hasta que se pulse una tecla, pero no tomas en cuenta que el ciclo se termina tan rapido (en milesimas de segundo probablemente), que por lo tanto cuando tu pulsas, el numero i ya vale 100.

Mejor utiliza una funcion que te genere un numero aleatorio, no recuerdo en pascal, pero supongo que sera random, checa en la ayuda, o busca en google "random pascal"

Saludos :hola:

lizzmdq:
Bueno quedo ahora.



--- Código: Text ---program game;uses crt;vara,ingreso,ai,i,b:integer;beginclrscr;       textcolor(black);       textbackground(white);  ingreso:=0;    randomize;    Writeln(' El juego consiste en adviniar un numero del 1 al 100 en 7 oportunidades');    ai:=random(99)+1;                writeln('Presione una tecla para continuar');    readkey;    repeat      ingreso:=ingreso+1;      writeln('Por favor ingrese un numero del 1 al 100');                         readln(b);      if ai &#62; b then      begin      writeln('El Numero a advinar es mayor');      end;      if ai &#60; b then      begin      writeln('El numero a advinar es menor');                        end;                        if ai=b then      writeln('Usted a acertado');    until (ai=b) or (ingreso=7);        if ai=b then                      writeln('Ganasteee!') else          writeln('Perdiste T_________T');readkey;end.   
salu2

Navegación

[0] Índice de Mensajes

[*] Página Anterior