Thiago André, Pascal

Language: Layout:

//fpc 3.0.0
//Thiago André Cardoso Silva
//Git Hub: https://github.com/doctorwho1998
program funcionario;
uses crt;
const
    COL = 2;
    LIN = 10;
var
    matricula_nome:array[0..(LIN - 1), 0..(COL - 1)] of String;
    salario:array[0..LIN -1] of Real;
    jornada:array[0..LIN -1] of integer;
    matricula_f, nome_f, continuar_alterar:String;
    salario_f: real;
    jornada_f: integer;
    opcao, continuar:char;
    q_c, i, j, k, aux_ver, aux_pes, aux_lis, posicao, aux_lis2:integer;
    
//-----Verificar-----
function verificar(verifica:String; coluna:integer):integer;
    begin
        aux_ver := -1;
        for i := 0 to 9 do
        begin
            if verifica = matricula_nome[i][coluna] then
            begin
                aux_ver := aux_ver + 1;
            end;
        end;
        verificar := aux_ver;
    end;
//-----Verificar-----

//-----Listar-----
procedure listar(aux_l1, aux_l2:integer);
begin
    writeln('Matricula:    Nome:                  Salário:         Jornada:');
    if aux_l1 = 0 then 
    begin
        aux_lis := aux_l2;
        aux_lis2 := aux_l2;
    end;
    if aux_l1 = 1 then
    begin
        aux_lis := 0;
        aux_lis2 := q_c;
    end;
    for i := aux_lis to aux_lis2 - 1 do 
    begin
        for j := 0 to COL - 1 do
        begin
            write(matricula_nome[i][j],'          ');
        end;
        write(salario[i]:00:02,'          ');
        write(jornada[i]);
        writeln;
    end;
    readln;
end;
//-----Listar-----

//-----Pesquisar funcionário-----
procedure pesquisar(mat:String; aux: integer);
begin
    clrscr;
    for i := 0 to LIN - 1 do
    begin
       if mat =  matricula_nome[i,aux] then
       begin
            listar(0,i);
       end;
    end;
end;
//-----Pesquisar funcionário-----

//-----Alterar funcionário-----
procedure alterar(mat:String; n:String; sal:real; jor:integer);
begin
    for i := 0 to LIN - 1 do
    begin
       if mat =  matricula_nome[i,0] then
       begin
            matricula_nome[i,1] := n;
            salario[i] := sal;
            jornada[i] := jor;
       end;
    end;
end;
//-----Alterar funcionário-----

//-----Cadastrar-----
procedure cadastrar(mat:String; n:String; sal:real; jor:integer);
begin
    if q_c < LIN then
    begin      
        matricula_nome[q_c,0] := mat;
        matricula_nome[q_c,1] := n;
        salario[q_c] := sal;
        jornada[q_c] := jor;
        q_c := q_c + 1;
        writeln;
    end
    else 
    begin
        writeln('Limite de cadastro atingido!');
        writeln;
        readln;
    end;
end;
//-----Cadastrar-----

//-----Excluir-----
procedure excluir(mat:String);
begin
    for i := 0 to LIN - 1 do
    begin
        if mat =  matricula_nome[i,0] then
        begin
            for j := i to q_c do
            begin
                for k := 0 to COL - 1 do
                begin
                    matricula_nome[j][k] := matricula_nome[j+1][k];
                end;
                salario[j] := salario[j+1];
                jornada[j] := jornada[j+1];
            end;
        end;
    end;
    q_c := q_c - 1;
end;
//-----Excluir-----

//---------------------------------------------INÍCIO---------------------------------------------
begin
    //{
    clrscr;
    continuar := 'S';
    continuar_alterar := 'S';
    while (continuar = 'S') or (continuar = 's') do
    begin
    clrscr;
        writeln('Programa de cadastro de funcionários');
        writeln('Escolha a opção:');
        writeln('[1] - Cadastrar');
        writeln('[2] - Listar');
        writeln('[3] - Pesquisar');
        writeln('[4] - Alterar');
        writeln('[5] - Excluir');
        writeln('[0] - Sair do programa');
        readln(opcao);
        //----------------------------------------------------------
        if opcao = '1' then
        begin
        clrscr;
            writeln('Digite a matricula para cadastrar:');
            readln(matricula_f);
            posicao := verificar(matricula_f, 0);
            if posicao <> -1 then
            begin
                writeln('Usuário já cadastrado');
                readln;
            end
            else
            begin
                writeln('Digite o nome:');
                readln(nome_f);
                writeln('Digite o salário:');
                readln(salario_f);
                writeln('Digite a jornada:');
                readln(jornada_f);
                cadastrar(matricula_f, nome_f, salario_f, jornada_f);
                writeln('Usuário cadastrado com sucesso!');
                readln;
            end;
        end;
        //----------------------------------------------------------
        if opcao = '2' then
        begin
            clrscr;
            listar(1,0);
        end;
        //----------------------------------------------------------
        if opcao = '3' then
        begin
            clrscr;
            writeln('[0] - pesquisar por matricula:');
            writeln('[1] - pesquisar por nome:');
            readln(aux_pes);
            if aux_pes = 0 then
            begin
                clrscr;
                writeln('Digite a matricula');
                readln(matricula_f);
                posicao := verificar(matricula_f, aux_pes);
                if posicao = -1 then
                begin
                    writeln('Matricula não encontrada');
                    writeln('Tecle ENTER para continuar');
                    readln;
                end
                else
                begin
                    pesquisar(matricula_f, aux_pes);
                    writeln('Digite ENTER para continuar');
                    readln;
                end;
            end
            else if aux_pes = 1 then
            begin
                writeln('Digite o nome');
                readln(nome_f);
                posicao := verificar(nome_f, aux_pes);
                if posicao = -1 then
                begin
                    writeln('Nome não encontrada');
                    writeln('Tecle ENTER para continuar');
                    readln;
                end
                else
                begin
                    pesquisar(matricula_f, aux_pes);
                    writeln('Digite ENTER para continuar');
                    readln;
                end;
            end
            else
            begin
                writeln('Comando inválido!');
                writeln('Tecle ENTER para continuar:');
                readln;
            end;
        end;
        //----------------------------------------------------------
        if opcao = '4' then
        begin
            clrscr;
            writeln('Digite a matricula para alterar:');
            readln(matricula_f);
            verificar(matricula_f, 0);
            if aux_ver = -1 then
            begin
                writeln('Usuário não encontrado');
                readln;
            end
            else
            begin
                pesquisar(matricula_f, 0);
                writeln('Deseja alterar o usuário acima? [S] - sim / [N] - não...');
                readln(continuar_alterar);
                if (continuar_alterar = 'S') or (continuar_alterar = 's') then
                begin
                writeln('Digite o nome para alterar:');
                readln(nome_f);
                writeln('Digite o salário para alterar:');
                readln(salario_f);
                writeln('Digite a jornada para alterar:');
                readln(jornada_f);
                cadastrar(matricula_f, nome_f, salario_f, jornada_f);
                writeln('Usuário alterado com sucesso!');
                readln;                      
                end
                else
                begin
                    writeln('Digite ENTER para voltar');
                    readln;
                end;
            end;
        end;
        //----------------------------------------------------------
        if opcao = '5'then
        begin
        	writeln('Qual matrícula deseja excluir: ');
        	read(matricula_f);
            aux_ver := verificar(matricula_f, 0);
            if aux_ver = -1 then
            begin
                writeln('Usuário não encontrado');
                readln;
            end
            else
            begin
                excluir(matricula_f);
                writeln('Usuário excluido com sucesso');
                writeln('Número de usuário cadastrado = ', q_c);
                writeln('Digite ENTER para continuar');
                readln;
            end;

end;
        //----------------------------------------------------------
        if opcao = '0' then
        begin
            continuar := 'n';
        end;     
    end;
   // }
end.

{       begin
       writeln;
       writeln('Resultado da busca:');
       writeln('Matricula:    Nome:                  Salário:         Jornada:');
       write(matricula_nome[i][0],'          ');
       write(matricula_nome[i][1],'          ');
       write(salario[i]:00:02,'          ');
       write(jornada[i]);
       writeln;
       writeln;}

Show compiler warnings [ + ] Show input
Compilation time: 0.23 sec, absolute running time: 10.18 sec, cpu time: 0 sec, memory peak: 0 Mb, absolute service time: 10,5 sec