Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Programa de acceso

Pascal/Turbo Pascal - Programa de acceso

Volver
Nuevo Tema
<<>>
 
Vista:

Programa de acceso

Publicado por Ramiro (2 intervenciones) el 23/10/2012 18:33:40
Hola.
Estoy empezando a programar en Pascal y he empezado a elaborar un programa de acceso:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
program Taller;
 
uses
    crt;
 
type
  TipoAcceso=record
    user:string[10];
    pass:string[10];
    end;
 
var
   Acceso:TipoAcceso;
 
Procedure Identificacion;
 
const
  MaxIntentos=5;
 
var
   Intento:integer;
 
Begin
     Intento:=0;
     with Acceso do
          Repeat
            gotoxy  (20,9);
            writeln ('Bienvenido':25);
          Repeat
            gotoxy  (20,11);
            write ('Presione cualquier tecla para continuar':25);
            delay (500);
            gotoxy  (20,11);
            write ('                                            ');
            delay (500);
          until keypressed;
          clrscr;
          gotoxy  (30,10);
          write ('Usuario : ':9);
          readln  (user);
          If user = 'admin' then
             Begin
               write ('Password: ':9);
               readln  (pass);
             end
               else if user <> 'admin' then
                  Begin
                    clrscr;
                    gotoxy  (30,10);
                    write ('Acceso denegado');
                    Intento:=Intento+1;
                    readkey;
                    clrscr;
                    Identificacion;
                  end
               else if pass = 'admin' then
                  Begin
                    gotoxy  (30,10);
                    writeln ('Acceso concedido');
                    readkey;
                    exit;
                  end
                    else clrscr;
                         gotoxy  (30,10);
                         writeln ('Acceso Denegado');
                         Intento:=Intento+1;
                         readkey;
                         clrscr;
                         Identificacion;
          until Intento = MaxIntentos;
end;
 
//Programa Principal

Begin
     clrscr;
     Identificacion;
end.


Tengo problemas para el segundo Repeat para poder mostrar el texto parpadeante y con una condición de intentos máximos de acceso (MaxIntentos). Les agradezco cualquier ayuda que me puedan brindar.
Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Programa de acceso

Publicado por ramon (2158 intervenciones) el 23/10/2012 21:16:40
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
{Mira las modificaciones de tu programa }
 
program Taller;
 
 uses
   crt;
 
  type
    TipoAcceso = record
          user : string[10];
          pass : string[10];
        end;
 
    var
     Acceso : TipoAcceso;
 
   Procedure Identificacion;
   const
      MaxIntentos = 5;
 
    var
    Intento : integer;
    esito : boolean;
 
   Begin
     Intento := 0;
     esito := false;
    with Acceso do
    Repeat
       fillchar(user,11,' ');
       user[0] := chr(10);
       fillchar(pass,11,' ');
       pass[0] := chr(10);
       gotoxy(20,9);write('Bienvenido':25);
    Repeat
       gotoxy(20,11);write('Presione cualquier tecla para continuar':25);
       delay (500);
       gotoxy(20,11);write('                                                                       ');
       delay (500);
  until keypressed;
      clrscr;
      gotoxy(30,10);write('Usuario : ':9);
      readln(user);
     If user = 'admin' then
     Begin
      gotoxy(30,10); write('Password: ':9);
      readln(pass);
     end
   else
       Begin
        clrscr;
        gotoxy(30,10);write('Acceso denegado');
        Intento := Intento + 1;
      end;
      if pass = 'admin' then
      Begin
        gotoxy(30,10);write('Acceso concedido');
        esito := true;
      end;
    until (Intento >= MaxIntentos) or (esito = true);
    if esito = true then
    begin
 
    end
  else
     begin
        clrscr;
        writeln('??? Para otra vez sera ??? pulse [Enter]');
        readln;
     end;
  end;
 
{//Programa Principal}

Begin
clrscr;
Identificacion;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Programa de acceso

Publicado por Ramiro (2 intervenciones) el 24/10/2012 19:02:49
Te agradezco tu ayuda.
Ya pude terminar el programa y ver mis errores.
Hasta otra consulta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar