Duda en pascal¡¡¡URGENTE!!!
Publicado: 13 Ene 2010, 23:56
por mipascal
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.
Re: Duda en pascal¡¡¡URGENTE!!!
Publicado: 14 Ene 2010, 00:20
por D@rB-15
Con ReadKey no me acuerdo pero tambien lo puedes hacer asi:
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.
si te interesa el curso de Pascal que estoy siguiendo es este:
[Enlace externo eliminado para invitados]
saludos
Re: Duda en pascal¡¡¡URGENTE!!!
Publicado: 14 Ene 2010, 04:03
por WindHack
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.
Re: Duda en pascal¡¡¡URGENTE!!!
Publicado: 14 Ene 2010, 16:21
por mipascal
Muchas gracias a ambos!!!
Ya se como hacerlo. Gracias de nuevo!!!