Pascal: Clave de acceso
Ejemplo de cómo repetir un bloque de programa, por ejemplo hasta que se introduzca la clave de acceso correcta.
Lenguaje: Pascal (compilador: FreePascal)
Categoría: Básico
(* Fuente procedente de ErrorDeSintaxis.es *)
(* Ejemplo de cómo repetir un bloque de programa, *)
(* por ejemplo hasta que se introduzca la clave *)
(* de acceso correcta. *)
(* Lenguaje: Pascal *)
(* Compilador: FreePascal *)
(* Nivel: Básico *)
(* Disponible desde 28/06/2011 *)
(* Aportado por Nacho *)
(* Autor original: Nacho Cabanes *)
(* Web original: http://www.aprendeaprogramar.com/mod/resource/view.php?id=116 *)
program ClaveDeAcceso; var ClaveCorrecta, Intento: String[30]; begin ClaveCorrecta := 'PascalForever'; repeat WriteLn( 'Introduce la clave de acceso... ' ); ReadLn( Intento ) until Intento = ClaveCorrecta; (* Aquí iría el resto del programa *) WriteLn( 'Acceso permitido.' ); end.
Resultado:
Introduce la clave de acceso... clave Introduce la clave de acceso... hola Introduce la clave de acceso... PascalForever Acceso permitido.