5 respuestas en este tema

[enecumene]

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

program Adivina;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var
 rn, un, cnt: Integer;
 guess: Boolean;
 
begin
  Randomize;
  rn := Trunc(Random(50) + 1);
  Write('La computadora ha elegido un número,');
  Write(' entre el 1 al 50, adivina cual es!');
  WriteLn('Elegiste el: ');
  cnt := 1;  un := 0;
  Guess := False;
  while Guess = False do begin
   ReadLn(un);
   if un > rn then
     Write('Incorrecto, dame un número menor: ')
   else if un < rn then
     Write('Incorrecto, dame un número mayor: ')
   else //un=rn
     begin
       Guess:=True;
       Writeln;
       Write('Correcto! te ha tomado ' +
             IntToStr(cnt) +
             ' intentos para adivinarlo!')
     end;
   cnt := cnt + 1;
  end; //while
  ReadLn; //No cierres la ventana, espera que salga [Enter]
end.

Saludos.

Archivos adjuntos

•  314_.zip   25,39KB   22 descargas

[Caral]

Hola
Que bueno amigo.
Saludos

[Shido]

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

[enecumene]

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

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

Saludos.

[mav]

\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?

[escafandra]

\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.