Hola, estoy empezando a programar con pascal y tengo una duda, como se utiliza el readkey???
La situacion es la siguiente, necesito pedir al usuario una letra que puede ser la una de estas 3 d,k,j, dependiendo de la respuesta el programa debera hacer una accion diferente¿que debo hacer?
Muchas gracias por todo.
P.d. Si me dejais tambien alguna web para obtener informacion sobre la libreria crt, os lo agradeceria.
Con ReadKey no me acuerdo pero tambien lo puedes hacer asi:
si te interesa el curso de Pascal que estoy siguiendo es este:
[Enlace externo eliminado para invitados]
saludos
Código: Seleccionar todo
Program Letra;
Var
LaLetra: Char;
Begin
WriteLn('Escriba Una Letra');
ReadLn(LaLetra);
Case LaLetra Of
'd': WriteLn('Escribio d');
'k': WriteLn('Escribio k');
'j': WriteLn('Escribio j');
Else
WriteLn('No es Ninguna de las tres :P');
End;
End.[Enlace externo eliminado para invitados]
saludos
"Me saltó el avira cuando estaba mirando la foto de slandg... ¿como puedo modearlo? " - Skillmax
Bueno, yo hice esto el único problema es que no lo pude terminar pues se me cerró el put* Lazarus y no me quiere abrir, de todas maneras creo que te puede servir.
Código: Seleccionar todo
program project1;
uses
cthreads,
Classes
var
Opcion:Integer = 0;
Salir:Boolean = False;
begin
//Bucle principal
repeat
Writeln('Opciones disponibles');
Writeln('');
Writeln('1 - d');
Writeln('2 - k');
Writeln('3 - j');
Writeln('4 - Salir');
//Bucle con comprobación de errores...
while 1 = 1 do
begin
Write('Introduce el número de la opcion: ');
Readln(Opcion);
if (Opcion > 0) and (Opcion <= 4) then
break;
end;
Case Opcion of
1:Writeln('Aquí he de hacer algo pues se eligió "d"');
2:Writeln('Pues lo mismo, salvo que se eligió "k"');
3:Writeln('xD lo mismo, pero se eligió "j"');
4:Salir := True;
end;
until Salir = True
end.
"The only thing they can't take from us are our minds."
Muchas gracias a ambos!!!
Ya se como hacerlo. Gracias de nuevo!!!
Ya se como hacerlo. Gracias de nuevo!!!
