ErrorDeSintaxis

Pequeños fragmentos de código fuente en distintos lenguajes de programación, agrupados por categorías.

Puedes buscar entre los fuentes existentes, o aportar los tuyos.

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 *)


Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399
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.