164 lines
3.9 KiB
ObjectPascal
164 lines
3.9 KiB
ObjectPascal
program cpfs;
|
|
|
|
type
|
|
TCPF = ^ptcpf;
|
|
ptcpf = record
|
|
cpf : string;
|
|
prox : TCPF;
|
|
end;
|
|
THash = array[0..99] of ^ptcpf;
|
|
|
|
var
|
|
cpf:string;
|
|
bool:boolean;
|
|
hash:thash;
|
|
|
|
|
|
|
|
function charInt(var letra:char):integer;
|
|
var tmp:integer;
|
|
begin
|
|
tmp:=Ord(letra)- Ord('0');
|
|
charInt:=tmp; //ord('0')=48... ord('1')=49... dai -48 vira 0...
|
|
end;
|
|
|
|
function validacaoDeInexistencialismoDeOutroCadastroDePessoasFisicaDentroDaLista( var cpf:string; final:integer; var cpfs:thash ): boolean;
|
|
var
|
|
i:integer;
|
|
aux:^ptcpf;
|
|
existenciaDeTalInformacaoNaLista:boolean;
|
|
begin
|
|
aux := cpfs[final];
|
|
existenciaDeTalInformacaoNaLista := false;
|
|
while (aux^.prox <> nil) and (not existenciaDeTalInformacaoNaLista) do
|
|
begin
|
|
if (cpf = aux^.cpf) then
|
|
existenciaDeTalInformacaoNaLista := true
|
|
else
|
|
aux:= aux^.prox;
|
|
end;
|
|
validacaoDeInexistencialismoDeOutroCadastroDePessoasFisicaDentroDaLista := existenciaDeTalInformacaoNaLista;
|
|
end;
|
|
|
|
|
|
function validarCPF(var cpf:string):boolean;
|
|
var
|
|
i, soma, dig1, dig2:integer;
|
|
begin
|
|
soma:=0;
|
|
for i:=1 to 9 do
|
|
// *11-i, vai decrementando, *9, *8, *7...
|
|
soma:=soma+( charInt(cpf[i]) ) * (11-i);
|
|
|
|
dig1 := 11 - (soma mod 11);
|
|
if (dig1 = 10) or (dig1 = 11) then
|
|
dig1 := 0;
|
|
|
|
|
|
soma := 0;
|
|
for i := 1 to 10 do
|
|
soma := soma + (Ord(cpf[i])-48)*(12-i);
|
|
|
|
dig2 := 11 - (soma mod 11);
|
|
if (dig2 = 10) or (dig2 = 11) then
|
|
dig2 := 0;
|
|
|
|
ValidarCPF := (dig1=charInt( cpf[10] )) and (dig2 = charInt( cpf[11] ));
|
|
end;
|
|
|
|
|
|
procedure inserirCPF(var cpfs:THash; var cpf:string);
|
|
var
|
|
i, doisDigitos:integer;
|
|
novo, atual, ant:TCPF;
|
|
begin
|
|
if validarCPF(cpf) then
|
|
begin
|
|
doisDigitos:=( charInt(cpf[10])*10 ) + charInt(cpf[11]); //*10 pq né, vira dezena + decimal 👍
|
|
if (not validacaoDeInexistencialismoDeOutroCadastroDePessoasFisicaDentroDaLista(cpf, doisDigitos, cpfs)) then
|
|
begin
|
|
new(novo);
|
|
if novo = nil then
|
|
writeln('Memoria cheia')
|
|
else
|
|
begin
|
|
novo^.cpf := cpf;
|
|
novo^.prox := nil;
|
|
atual:= cpfs[doisDigitos];
|
|
ant:=nil;
|
|
while (atual <> nil) and (atual^.cpf < cpf) do
|
|
begin
|
|
ant := atual;
|
|
atual := atual^.prox;
|
|
end;
|
|
if ant = nil then
|
|
begin
|
|
novo^.prox := cpfs[doisDigitos];
|
|
cpfs[doisDigitos] := novo;
|
|
end
|
|
else
|
|
begin
|
|
novo^.prox := atual;
|
|
ant^.prox := novo;
|
|
end;
|
|
end;
|
|
end ;
|
|
|
|
end
|
|
else
|
|
writeln('CPF INVALIDO');
|
|
end;
|
|
|
|
procedure escrever(var cpfs:thash);
|
|
var
|
|
i:integer;
|
|
aux:^ptcpf;
|
|
begin
|
|
for i:= 0 to 99 do
|
|
begin
|
|
writeln('Digito final', i);
|
|
aux := cpfs[i];
|
|
while (aux <> nil) do
|
|
begin
|
|
writeln(aux^.cpf);
|
|
aux:= aux^.prox
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure buscar(final:integer);
|
|
var
|
|
aux:^ptcpf;
|
|
achou:boolean;
|
|
valor:string;
|
|
begin
|
|
achou:=false;
|
|
valor:= 'Nao achou';
|
|
aux := cpfs[final];
|
|
while (aux <> nil) and (not achou) do
|
|
begin
|
|
if(aux.cpf = cpf) then
|
|
begin
|
|
achou:=true;
|
|
valor:=(aux^.cpf) ;
|
|
end;
|
|
end;
|
|
writeln(valor);
|
|
end;
|
|
|
|
|
|
procedure remover() ;
|
|
var
|
|
|
|
begin
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
readln(cpf);
|
|
inserirCPF(hash, cpf);
|
|
escrever(hash);
|
|
end. |