API tools faq
paste
Advertisement
hydadiemla

IF Sistema - Instituição de Ensino

hydadiemla
May 27th, 2015
271
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 21.59 KB | None | 0 0
raw download clone embed print report
  1. Program IFSistema;
  2. // Função: Algoritmo para cadastrar funcionários de uma instituição escolar.
  3. // Desenvolvedores: Diego, Aloisio, Simone e Rebeca
  4. // Disciplina: Lógica de Programação
  5. // Professor: Lúcio Marcos
  6. // Instituição: IFBA Camaçari
  7. // Data de modificação: 14/05/2015 12:16 Am
  8. uses crt;
  9. Var
  10.     diaSemana, Funcionario, Cargo, Disciplina, Horario: array [1..100] of String;
  11.     user, pesquisarCliente: String;
  12.     S, Sair, excluirFuncionario: Char;
  13.     pw, password: String[8];
  14.     contador, numeroDeFuncionario, Opcao, Opcao1, Opcao2, Excluir: Integer;
  15.     verdade: Boolean;
  16. // Procedimento
  17. procedure pesquisa;
  18.     Begin
  19.         Writeln ('+---------------------------------------------+');
  20.         Writeln ('              [IF]Sistema V.0.1                ');  
  21.         Writeln ('             PESQUISA DE FUNCIONÁRIO           ');
  22.         Writeln ('+---------------------------------------------+');
  23.         Writeln ('+---------------------------------------------+');
  24.         Writeln (' Digite o nome e tecle [ENTER]...');
  25.         Writeln();
  26.         Write(user,'@if# ');
  27.         Readln (pesquisarCliente);
  28.         verdade := false;
  29.         contador := 0;
  30.         Repeat
  31.             Begin
  32.                 contador := contador + 1;
  33.                 If (Funcionario[contador] = pesquisarCliente) Then
  34.                     Begin
  35.                         verdade := true;
  36.                     End;
  37.             End;
  38.         Until ((verdade) or (contador >= numeroDeFuncionario));
  39.         If (verdade = false) Then
  40.             Begin
  41.                 Writeln ('+---------------------------------------------+');
  42.                 Writeln ('              [IF]Sistema V.0.1                ');  
  43.                 Writeln ('         FUNCIONÁRIO NÃO ENCONTRADO            ');
  44.                 Writeln ('+---------------------------------------------+');
  45.                 Writeln ('+---------------------------------------------+');
  46.                 Writeln (' Tecle [ENTER] para tentar novamente...         ');
  47.                 Readkey;
  48.                 clrscr;
  49.             End;
  50.     End;
  51. // Fim do Procedimento     
  52. Begin
  53.     numeroDeFuncionario := 0;
  54.     textcolor(white);
  55.     Writeln ('+---------------------------------------+');
  56.     Writeln ('+         Desenvolvedores               +');
  57.     Writeln ('+           [IF Sistema]                +');
  58.     Writeln ('+  Diego, Aloísio, Simone e Rebeca      +');
  59.     Writeln ('+  T.I - 1o Subsequente - IFBA Camaçari +');
  60.     Writeln ('+---------------------------------------+');
  61.     Writeln ('+ Tecle [ENTER] para conitnuar...       +');
  62.     Writeln ('+---------------------------------------+');
  63.     Readkey();
  64.     clrscr;
  65.     Writeln ('+---------------------------------------+');
  66.     Writeln ('+            [IF]Sistema V.0.1          +');
  67.     Writeln ('+            Seja bem vindo(a)          +');
  68.     Writeln ('+---------------------------------------+');
  69.     Writeln ('+---------------------------------------+');
  70.     Writeln ('+   Cadastre uma senha para o sistema   +');
  71.     Writeln ('+---------------------------------------+');
  72.     Write('#Senha: ');
  73.     Readln (password);
  74.     Writeln ('+---------------------------------------+');
  75.     Writeln ('+  Cadastre um usuario para o sistema   +');
  76.     Writeln ('+---------------------------------------+');
  77.     Write('#Usuario: ');
  78.     Readln (user);
  79.     // Inicio do carregamento do sistema
  80.     Writeln();  
  81.     Writeln('             Cadastrando                  ');
  82.     Write('            [I');   // Espaços em branco para alinhar texto
  83.     Delay(1000);
  84.     Write ('F]');
  85.     Delay(800);
  86.     Write (' S');
  87.     Delay(700);
  88.     Write ('I');
  89.     Delay(600);
  90.     Write ('S');
  91.     Delay(500);
  92.     Write ('T');
  93.     Delay(400);
  94.     Write ('E');
  95.     Delay(300);
  96.     Write ('M');
  97.     Delay(200);
  98.     Write ('A');
  99.     Delay(100);
  100.     Delay(3000);
  101.     clrscr;
  102.     // ==========================================================================
  103.     Repeat
  104.         Begin
  105.             Writeln ('+---------------------------------------+');  //  ----
  106.             Writeln ('            [IF]Sistema V.0.1            '); //    T
  107.             Writeln ('         Seja bem vindo, ',user,'!       '); //    E
  108.             Writeln ('+---------------------------------------+'); //    L
  109.             Writeln ('+---------------------------------------+'); //    A
  110.             Writeln ('+       Digite a senha cadastrada       +'); //   ----
  111.             Writeln ('+     para efetuar login no sistema     +'); //   Tela que pede a senha do sistema, já cadastrada anteriormente
  112.             Writeln ('+---------------------------------------+'); //
  113.             Write(user,'@if# ');
  114.             Readln(pw);
  115.             // ======================================================================
  116.             If (pw = password) Then
  117.                 Begin
  118.                     Repeat  
  119.                         Begin
  120.                                     clrscr;
  121.                                     Writeln ('+------------------------------------------+');
  122.                                     Writeln ('              [IF]Sistema V.0.1            ');   // T
  123.                                     Writeln ('+------------------------------------------+');
  124.                                     Writeln ('+------------------------------------------+'); //  E
  125.                                     Writeln ('+ Escolha [1] para [CADASTRAR FUNCIONARIO] +');
  126.                                     Writeln ('+ Escolha [2] para [PESQUISAR CADASTRO]    +'); //  L
  127.                                     Writeln ('+ Escolha [3] para [ALTERAR CADASTRO]      +');
  128.                                     Writeln ('+ Escolha [4] para [EXCLUIR CADASTRO]      +'); //  A
  129.                                     Writeln ('+ Escolha [5] para [SAIR DO SISTEMA]       +');
  130.                                     Writeln ('+------------------------------------------+'); //  *
  131.                                     Writeln (' Digite a opção e tecle [ENTER]');
  132.                                     Writeln();
  133.                                     Write(' Opção#: ');
  134.                                     Readln (Opcao1);
  135.                                     clrscr;
  136.                                     // Inicio do CASE                          
  137.                                         Case (Opcao1) of  
  138.                                             1:
  139.                                               Begin
  140.                                                     Repeat
  141.                                                         Begin
  142.                                                             clrscr;
  143.                                                             numeroDeFuncionario := numeroDeFuncionario + 1;
  144.                                                             Writeln ('+----------------------------------------+');
  145.                                                             Writeln ('            [IF]Sistema V.0.1            ');
  146.                                                             Writeln ('             Funcionário | 0',numeroDeFuncionario   );
  147.                                                             Writeln ('+----------------------------------------+');
  148.                                                             Writeln();
  149.                                                             Writeln ('Nome do funcionário: ');
  150.                                                             Writeln ('========================== ');
  151.                                                             Write(user,'@if# ');
  152.                                                             Readln (Funcionario[numeroDeFuncionario]);
  153.                                                             Writeln ('---------------------------');
  154.                                                             Writeln();
  155.                                                             Writeln ('Cargo do Funcionário: ');
  156.                                                             Writeln ('========================== ');
  157.                                                             Write(user,'@if# ');
  158.                                                             Readln (Cargo[numeroDeFuncionario]);
  159.                                                             Writeln ('---------------------------');
  160.                                                             If ((Cargo[numeroDeFuncionario] = 'professor')  or
  161.                                                                     (Cargo[numeroDeFuncionario] = 'Professor')  or
  162.                                                                     (Cargo[numeroDeFuncionario] = 'PROFESSOR')  or
  163.                                                                     (Cargo[numeroDeFuncionario] = 'professora') or
  164.                                                                     (Cargo[numeroDeFuncionario] = 'Professora') or
  165.                                                                     (Cargo[numeroDeFuncionario] = 'PROFESSORA'))Then
  166.                                                                 Begin // Inicio do cargo[] verdade
  167.                                                                     Writeln();
  168.                                                                     Writeln ('Disciplina: ');
  169.                                                                     Writeln ('========================== ');
  170.                                                                     Write(user,'@if# ');
  171.                                                                     Readln (Disciplina[numeroDeFuncionario]);
  172.                                                                     Writeln ('---------------------------');
  173.                                                                     Writeln();
  174.                                                                     Writeln ('Dia de aula: ');
  175.                                                                     Writeln ('========================== ');
  176.                                                                     Write(user,'@if# ');
  177.                                                                     Readln (diaSemana[numeroDeFuncionario]);
  178.                                                                     Writeln ('---------------------------');
  179.                                                                 End; // Fim do cargo[] verdade
  180.                                                             Writeln(); 
  181.                                                             Writeln ('Horário | Ex: 8:00 - 17:00 ');
  182.                                                             Writeln ('========================== ');
  183.                                                             Write(user,'@if# ');
  184.                                                             Readln (Horario[numeroDeFuncionario]);
  185.                                                             Writeln ('---------------------------');
  186.                                                             Writeln();
  187.                                                             Write ('Deseja cadastrar outro funcionário');
  188.                                                             Write ('[');
  189.                                                             Write   ('S');
  190.                                                             Write   ('/');
  191.                                                             Write('N');;
  192.                                                             Write(']');
  193.                                                             Write('? ');
  194.                                                             Readln(S);
  195.                                                         End;   
  196.                                                     Until ((S = 'N') or (S = 'n'));    
  197.                                                 End;
  198.                                         2: // MOSTRAR FUNCIONÁRIOS CADASTRADOS
  199.                                             Repeat
  200.                                                         Begin
  201.                                                             Writeln ('+--------------------------------------------------+');
  202.                                                             Writeln ('              [IF]Sistema V.0.1                ');  
  203.                                                             Writeln ('             PESQUISA DE CADASTRO              ');
  204.                                                             Writeln ('+--------------------------------------------------+');
  205.                                                             Writeln ('+--------------------------------------------------+');
  206.                                                             Writeln ('+ Escolha [1] para [LISTAR TODO(S) FUNCIONÁRIO(S)] +');
  207.                                                             Writeln ('+ Escolha [2] para [PESQUISAR FUNCIONÁRIO]         +');
  208.                                                             Writeln ('+ Escolha [3] para [MENU PRINCIPAL]                +');
  209.                                                             Writeln ('+--------------------------------------------------+');
  210.                                                             Write(' Opção#: ');
  211.                                                             Readln (Opcao2);
  212.                                                             clrscr;
  213.                                                             Case (opcao2) of
  214.                                                                 1:  Begin
  215.                                                                         Writeln ('+----------------------------------------+');
  216.                                                                                 Writeln ('            [IF]Sistema V.0.1             ');
  217.                                                                                 Writeln ('+----------------------------------------+');
  218.                                                                             For contador := 1 to numeroDeFuncionario do
  219.                                                                                 If (Funcionario[contador] <> '@') Then
  220.                                                                                         Begin
  221.                                                                                         Writeln ('+----------------------------------------+');
  222.                                                                                             Writeln ('             Cadastro | 0',contador        );
  223.                                                                                             Writeln ('+----------------------------------------+');
  224.                                                                                         Writeln ('Funcionário: ',Funcionario[contador]);
  225.                                                                                         Writeln ('Cargo: ',Cargo[contador]);
  226.                                                                                             If  (Cargo[contador] = 'professor')  or
  227.                                                                                                     (Cargo[contador] = 'Professor')  or
  228.                                                                                                 (Cargo[contador] = 'PROFESSOR')  or
  229.                                                                                                 (Cargo[contador] = 'professora') or
  230.                                                                                                 (Cargo[contador] = 'Professora') or
  231.                                                                                                 (Cargo[contador] = 'PROFESSORA') Then
  232.                                                                                                 Begin
  233.                                                                                                     Writeln ('Disciplina: ',Disciplina[contador]);
  234.                                                                                                     Writeln ('Dia de Aula: ',diaSemana[contador]);
  235.                                                                                                 End;
  236.                                                                                         Writeln ('Horário: ',Horario[contador]);              
  237.                                                                                         Writeln ('+----------------------------------------+');
  238.                                                                                     End;
  239.                                                                                 Writeln ('Tecle[ENTER] para voltar ao menu anterior...');
  240.                                                                                 Readkey;
  241.                                                                                 clrscr;            
  242.                                                                             End;
  243.                                                                 2:  Begin
  244.                                                                         Repeat
  245.                                                                                 Begin
  246.                                                                                     pesquisa; // Procedimento
  247.                                                                                         If (verdade) Then
  248.                                                                                             Begin
  249.                                                                                                 Writeln ('+----------------------------------------+');
  250.                                                                                                 Writeln ('            [IF]Sistema V.0.1            ');
  251.                                                                                                 Writeln ('             Funcionário | 0', contador {****}   );
  252.                                                                                                 Writeln ('+----------------------------------------+');
  253.                                                                                                 Writeln ('Funcionário: ',Funcionario[contador]);
  254.                                                                                             Writeln ('Cargo: ',Cargo[contador]);
  255.                                                                                                 If  (Cargo[contador] = 'professor')  or
  256.                                                                                                         (Cargo[contador] = 'Professor')  or
  257.                                                                                                     (Cargo[contador] = 'PROFESSOR')  or
  258.                                                                                                     (Cargo[contador] = 'professora') or
  259.                                                                                                     (Cargo[contador] = 'Professora') or
  260.                                                                                                     (Cargo[contador] = 'PROFESSORA') Then
  261.                                                                                                     Begin
  262.                                                                                                         Writeln ('Disciplina: ',Disciplina[contador]);
  263.                                                                                                         Writeln ('Dia de Aula: ',diaSemana[contador]);
  264.                                                                                                     End;
  265.                                                                                                     Writeln ('Horário: ',Horario[contador]);              
  266.                                                                                                     Writeln ('+----------------------------------------+');
  267.                                                                                             End;                   
  268.                                                                                     End;                                                                                           
  269.                                                                         Until (verdade);
  270.                                                                             Writeln ('Tecle[ENTER] para voltar ao menu anterior...');
  271.                                                                             Readkey;
  272.                                                                             clrscr;    
  273.                                                                         End;                                                                   
  274.                                                             End;                                               
  275.                                                         End;
  276.                                                 Until (Opcao2 = 3);    
  277.                                             3:
  278.                                                 Begin
  279.                                                     Repeat
  280.                                                         Begin
  281.                                                             pesquisa; // Procedimento
  282.                                                             If (verdade) Then
  283.                                                                 Begin
  284.                                                                     Writeln ('+----------------------------------------+');
  285.                                                                     Writeln ('            [IF]Sistema V.0.1            ');
  286.                                                                     Writeln ('             Funcionário | 0',contador {****}  );
  287.                                                                     Writeln ('+----------------------------------------+');
  288.                                                                     Writeln ('Funcionário: ',Funcionario[contador]);
  289.                                                                     Writeln ('Cargo: ',Cargo[contador]);
  290.                                                                     If  (Cargo[contador] = 'professor')  or
  291.                                                                             (Cargo[contador] = 'Professor')  or
  292.                                                                         (Cargo[contador] = 'PROFESSOR')  or
  293.                                                                         (Cargo[contador] = 'professora') or
  294.                                                                         (Cargo[contador] = 'Professora') or
  295.                                                                         (Cargo[contador] = 'PROFESSORA') Then
  296.                                                                                 Begin
  297.                                                                                     Writeln ('Disciplina: ',Disciplina[contador]);
  298.                                                                                     Writeln ('Dia de Aula: ',diaSemana[contador]);
  299.                                                                                 End;
  300.                                                                                 Writeln ('Horário: ',Horario[contador]);              
  301.                                                                                 Writeln ('+----------------------------------------+');
  302.                                                                 End;                   
  303.                                                         End;                                                                                           
  304.                                                     Until (verdade);
  305.                                                     Writeln ('+----------------------------------------+');
  306.                                                     Writeln ('            [IF]Sistema V.0.1            ');
  307.                                                     Writeln ('             Funcionário | 0',contador   );
  308.                                                     Writeln ('+----------------------------------------+');
  309.                                                     Writeln();
  310.                                                     Writeln ('Nome do funcionário: ');
  311.                                                     Writeln ('========================== ');
  312.                                                     Write(user,'@if# ');
  313.                                                     Readln (Funcionario[contador]);
  314.                                                     Writeln ('---------------------------');
  315.                                                     Writeln();
  316.                                                     Writeln ('Cargo do Funcionário: ');
  317.                                                     Writeln ('========================== ');
  318.                                                     Write(user,'@if# ');
  319.                                                     Readln (Cargo[contador]);
  320.                                                     Writeln ('---------------------------');
  321.                                                     If ((Cargo[contador] = 'professor')  or
  322.                                                             (Cargo[contador] = 'Professor')  or
  323.                                                             (Cargo[contador] = 'PROFESSOR')  or
  324.                                                             (Cargo[contador] = 'professora') or
  325.                                                             (Cargo[contador] = 'Professora') or
  326.                                                             (Cargo[contador] = 'PROFESSORA'))Then
  327.                                                                 Begin // Inicio do cargo[] verdade
  328.                                                                     Writeln();
  329.                                                                     Writeln ('Disciplina: ');
  330.                                                                     Writeln ('========================== ');
  331.                                                                     Write(user,'@if# ');
  332.                                                                     Readln (Disciplina[contador]);
  333.                                                                     Writeln ('---------------------------');
  334.                                                                     Writeln();
  335.                                                                     Writeln ('Dia de aula: ');
  336.                                                                     Writeln ('========================== ');
  337.                                                                     Write(user,'@if# ');
  338.                                                                     Readln (diaSemana[contador]);
  339.                                                                     Writeln ('---------------------------');
  340.                                                                 End; // Fim do cargo[] verdade
  341.                                                             Writeln(); 
  342.                                                             Writeln ('Horário | Ex: 8:00 - 17:00 ');
  343.                                                             Writeln ('========================== ');
  344.                                                             Write(user,'@if# ');
  345.                                                             Readln (Horario[contador]);
  346.                                                             Writeln ('---------------------------');
  347.                                                             Writeln ('Tecle [ENTER] para cadastrar...');
  348.                                                             Readkey;
  349.                                                             // Inicio do carregamento do sistema
  350.                                                             Writeln();  
  351.                                                             Writeln('             Cadastrando                  ');
  352.                                                             Write('            [I');   // Espaços em branco para alinhar texto
  353.                                                             Delay(1000);
  354.                                                             Write ('F]');
  355.                                                             Delay(800);
  356.                                                             Write (' S');
  357.                                                             Delay(700);
  358.                                                             Write ('I');
  359.                                                             Delay(600);
  360.                                                             Write ('S');
  361.                                                             Delay(500);
  362.                                                             Write ('T');
  363.                                                             Delay(400);
  364.                                                             Write ('E');
  365.                                                             Delay(300);
  366.                                                             Write ('M');
  367.                                                             Delay(200);
  368.                                                             Write ('A');
  369.                                                             Delay(100);
  370.                                                             Delay(3000);
  371.                                                             clrscr;
  372.                                                                                                                    
  373.                                                 End;
  374.                                             4:
  375.                                                 Begin
  376.                                                     Repeat
  377.                                                         Begin
  378.                                                             pesquisa;
  379.                                                         End;
  380.                                                     Until (verdade);
  381.                                                     If (verdade) Then
  382.                                                         Begin
  383.                                                             Writeln ('+----------------------------------------+');
  384.                                                             Writeln ('            [IF]Sistema V.0.1            ');
  385.                                                             Writeln ('             Cadstro | 0', contador {****}   );
  386.                                                             Writeln ('+----------------------------------------+');
  387.                                                             Writeln ('Funcionário: ',Funcionario[contador]);
  388.                                                             Writeln ('Cargo: ',Cargo[contador]);
  389.                                                             If  (Cargo[contador] = 'professor')  or
  390.                                                                     (Cargo[contador] = 'Professor')  or
  391.                                                                     (Cargo[contador] = 'PROFESSOR')  or
  392.                                                                     (Cargo[contador] = 'professora') or
  393.                                                                     (Cargo[contador] = 'Professora') or
  394.                                                                     (Cargo[contador] = 'PROFESSORA') Then
  395.                                                                         Begin
  396.                                                                             Writeln ('Disciplina: ',Disciplina[contador]);
  397.                                                                             Writeln ('Dia de Aula: ',diaSemana[contador]);
  398.                                                                         End;
  399.                                                             Writeln ('Horário: ',Horario[contador]);              
  400.                                                             Writeln ('+----------------------------------------+');
  401.                                                             Repeat
  402.                                                                 Begin
  403.                                                                     Write ('Deseja [EXCLUIR] esse este cadastro? [S ou N]? ');
  404.                                                                     Readln (excluirFuncionario);
  405.                                                                 End;                                                       
  406.                                                             Until ((excluirFuncionario = 'S') or (excluirFuncionario = 's') or
  407.                                                                          (excluirFuncionario = 'N') or (excluirFuncionario = 'n'));
  408.                                                             If ((excluirFuncionario = 'S') or (excluirFuncionario = 's')) Then
  409.                                                                 Begin
  410.                                                                     For Excluir := contador to numeroDeFuncionario do
  411.                                                                         Begin
  412.                                                                             Funcionario[Excluir] := Funcionario[Excluir + 1];
  413.                                                                             Cargo[Excluir] := Cargo[Excluir + 1];
  414.                                                                             If  (Cargo[Excluir] = 'professor')  or
  415.                                                                             (Cargo[Excluir] = 'Professor')  or
  416.                                                                             (Cargo[Excluir] = 'PROFESSOR')  or
  417.                                                                             (Cargo[Excluir] = 'professora') or
  418.                                                                             (Cargo[Excluir] = 'Professora') or
  419.                                                                             (Cargo[Excluir] = 'PROFESSORA') Then
  420.                                                                             Begin
  421.                                                                                 Disciplina[Excluir] := Disciplina[Excluir + 1];
  422.                                                                                 diaSemana[Excluir] := diaSemana[Excluir + 1];
  423.                                                                             End;
  424.                                                                             Horario[Excluir] := Horario[Excluir + 1];      
  425.                                                                         End;
  426.                                                                         numeroDeFuncionario := numeroDeFuncionario - 1;
  427.                                                                         Writeln ();
  428.                                                                         Writeln ('Tecle [ENTER] para excluir...');
  429.                                                                         Readkey;
  430.                                                                         // Inicio do carregamento do sistema
  431.                                                                         Writeln();  
  432.                                                                         Writeln('             Excluindo                  ');
  433.                                                                         Write('            [I');   // Espaços em branco para alinhar texto
  434.                                                                         Delay(1000);
  435.                                                                         Write ('F]');
  436.                                                                         Delay(800);
  437.                                                                         Write (' S');
  438.                                                                         Delay(700);
  439.                                                                         Write ('I');
  440.                                                                         Delay(600);
  441.                                                                         Write ('S');
  442.                                                                         Delay(500);
  443.                                                                         Write ('T');
  444.                                                                         Delay(400);
  445.                                                                         Write ('E');
  446.                                                                         Delay(300);
  447.                                                                         Write ('M');
  448.                                                                         Delay(200);
  449.                                                                         Write ('A');
  450.                                                                         Delay(100);
  451.                                                                         Delay(3000);
  452.                                                                         clrscr;
  453.                                                                 End;
  454.                                                         End;
  455.                                                            
  456.                                                 End;                       
  457.                         End;                       
  458.                 End;
  459.           Until (Opcao1 = 5);
  460.                 // finalização do sistema                            
  461.                                 Writeln ('+----------------------------------+');
  462.                                 Writeln ('+       Sistema Finalizado         +');
  463.                                 Writeln ('+ Obrigado por usar o [IF] Sistema +');
  464.                                 Writeln ('+   Tecle [ENTER] para finalizar   +');
  465.                                 Writeln ('+----------------------------------+');
  466.                                 Readkey;
  467.                 End
  468.             Else
  469.                 Begin
  470.                     Writeln();
  471.                     Writeln ('+---------------------------------------+'); // T
  472.                     Writeln ('+            Senha Incorreta            +'); // E
  473.                     Writeln ('+  Tecle [1] para tentar novamente      +'); // L
  474.                     Writeln ('+  ou    [2] para recuperar senha !     +'); // A
  475.                     Writeln ('+---------------------------------------+'); // *
  476.                     Writeln ('Escola a opção e tecle [ENTER]...');
  477.                     Writeln();
  478.                     Write(user,'@if# ');
  479.                     Readln(Opcao);
  480.                     If (Opcao = 2) Then
  481.                         Begin
  482.                             Writeln();
  483.                             Writeln ('+---------------------------------------+');  //  T
  484.                             Writeln (' Senha cadastrada: ',password,'          ');  //  E
  485.                             Writeln ('+---------------------------------------+');  //  L
  486.                             Writeln ();                                             //  A
  487.                             Writeln ('Tecle [ENTER] para tentar novamente');
  488.                             Readkey;
  489.                         End;
  490.                     clrscr;
  491.                 End;   
  492.         End;
  493.     Until (pw = password);
  494. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!