En este vídeo, crean un programa en Python para comprobar una contraseña, y la comprueban, para obtener acceso.
Vamos a verlo como se hace en Object pascal.
Empezamos creando un nuevo programa.
Escribe el siguiente código.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
program Project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX} cthreads, {$ENDIF} Classes { you can add units after this }, SysUtils; Const ContrasenaSegura :string = 'Segura123!'; Var contrasena: string; function Comprobar (Contrasena:String):string; begin if Contrasena = ContrasenaSegura then begin Result:= 'Acceso permitido'; end else begin Result :='Acceso denegado'; end; end; begin WriteLn('Introduce la contraseña'); Readln(contrasena); Writeln (Comprobar(Contrasena)); end. |
En la línea 13 creamos un constante que almacenará la contraseña correcta.
En la línea 14 definimos la variable que contendrá la clave que introducirá el usuario.
Después creamos un función llamada Comprobar que recibe la contraseña tecleada por el usuario la comprobará con la contraseña correcta devolverá una cadena de texto, indicando si tiene acceso o si el acceso ha sido denegado en función de si contraseña introducida es igual o no la contraseña segura.
Para terminar escribimos en la pantalla, un texto indicando al usuario que introduzca la contraseña.
La línea 31 captura la contraseña tecleada por el usuario.
Por último escribimos en pantalla el resultado de llamar a la función Comprobar, pasando como parámetro la contraseña tecleada por el usuario.
Saludos