Ir al contenido



Foto

Juego Adivina Adivinador en consola


  • Por favor identifícate para responder
5 respuestas en este tema

#1 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.212 mensajes
  • LocationRepública Dominicana

Escrito 20 febrero 2009 - 01:05

Pues despues de ver el juego que creó mi estimado ChackAll en modo consola, tenía que ver cómo demonios se hace algo en modo consola, investigado descubrí cómo e hice un pequeñito jueguito (guiandome en base a uno ya hecho) donde debes adivinar el número que eligió la computadora, aquí el código:



delphi
  1. program Adivina;
  2. {$APPTYPE CONSOLE}
  3. uses
  4.   SysUtils;
  5.  
  6. var
  7. rn, un, cnt: Integer;
  8. guess: Boolean;
  9.  
  10. begin
  11.   Randomize;
  12.   rn := Trunc(Random(50) + 1);
  13.   Write('La computadora ha elegido un número,');
  14.   Write(' entre el 1 al 50, adivina cual es!');
  15.   WriteLn('Elegiste el: ');
  16.   cnt := 1;  un := 0;
  17.   Guess := False;
  18.   while Guess = False do begin
  19.   ReadLn(un);
  20.   if un > rn then
  21.     Write('Incorrecto, dame un número menor: ')
  22.   else if un < rn then
  23.     Write('Incorrecto, dame un número mayor: ')
  24.   else //un=rn
  25.     begin
  26.       Guess:=True;
  27.       Writeln;
  28.       Write('Correcto! te ha tomado ' +
  29.             IntToStr(cnt) +
  30.             ' intentos para adivinarlo!')
  31.     end;
  32.   cnt := cnt + 1;
  33.   end; //while
  34.   ReadLn; //No cierres la ventana, espera que salga [Enter]
  35. end.



Saludos.

Archivos adjuntos

  • Archivo adjunto  314_.zip   25,39KB   20 descargas

  • 0

#2 Caral

Caral

    Advanced Member

  • Administrador
  • 4.218 mensajes
  • LocationCosta Rica

Escrito 20 febrero 2009 - 03:41

Hola
Que bueno amigo.
Saludos
  • 0

#3 Shido

Shido

    Member

  • Miembros
  • PipPip
  • 15 mensajes
  • LocationDetras De Ti!!!!

Escrito 23 febrero 2009 - 01:35

La consola se esta haciendo famosa xD!!!!
es muy bueno este juego me gusto :D
  • 0

#4 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.212 mensajes
  • LocationRepública Dominicana

Escrito 23 febrero 2009 - 10:09

La consola se esta haciendo famosa xD!!!!
es muy bueno este juego me gusto :D


Qué bueno que te haya gustado mi estimado, espero te sirva de estudio ;).

Saludos.
  • 0

#5 mav

mav

    Member

  • Miembros
  • PipPip
  • 12 mensajes

Escrito 12 febrero 2012 - 03:46

\Adivina (2).zip: Final inesperado del archivo...
\fly.source.zip: Final inesperado del archivo
C:\Users\M\AppData\Local\Opera\opera\temporary_downloads\fly.bin.zip: Final inesperado del archivo

¿Porqué todos los zips de enecumene dan error y no se pueden descomprimir con herramientas "normales" winrar, 7zip, descompresor de total commander, que descomprime todo...etc?
¿Con que herramienta estan comprimidos?
  • 0

#6 escafandra

escafandra

    Advanced Member

  • Moderadores
  • PipPipPip
  • 3.689 mensajes
  • LocationMadrid - España

Escrito 12 febrero 2012 - 07:48

\Adivina (2).zip: Final inesperado del archivo...
\fly.source.zip: Final inesperado del archivo
C:\Users\M\AppData\Local\Opera\opera\temporary_downloads\fly.bin.zip: Final inesperado del archivo

¿Porqué todos los zips de enecumene dan error y no se pueden descomprimir con herramientas "normales" winrar, 7zip, descompresor de total commander, que descomprime todo...etc?
¿Con que herramienta estan comprimidos?


Bueno, probablemente el archivo subió corrupto o lo está ahora. Al leer tu comentario lo traté de bajar pero me ocurre lo mismo que a ti.

Puedes compilarlo directamente o , si lo prefieres, te subo el fuente y binario.

Saludos.

  • 0