aaaa

2026-05-28 13:06:34 -03:00
commit 4c4471ca1a
8 changed files with 173 additions and 0 deletions
@@ -0,0 +1,56 @@
+program cpfs;
+
+type
+    TCPF = ^ptcpf;
+    ptcpf = record
+        cpf : string;
+        prox : TCPF;
+    end;
+        
+
+procedure inserirCPF();
+    var
+        i:integer;
+    begin
+
+    end;
+
+function validarCPF(var cpf:string):boolean;
+    var
+        i, soma, dig1, dig2:integer;
+    begin
+        soma:=0;
+        for i:=1 to 9 do
+              //ord('0')=48... ord('1')=49... dai -48 vira 0... *11-i, vai decrementando, *9, *8, *7...
+            soma:=soma+(Ord(cpf[i])-48)*(11-i);
+
+        dig1 := 11 - (soma mod 11); //digito 1 pega a sobra da divisao bla bla
+        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=(Ord(cpf[10])-48)) and (dig2=(Ord(cpf[11])-48));
+
+    end;
+
+
+
+var
+    hash : array[0..99] of TCPF;
+    cpf:string;
+    bool:boolean;
+begin
+    readln(cpf);
+    bool:= validarCPF(cpf);
+    writeln(bool);
+end.