TheMajor

@Simon Viegas Esse recurso de renomear não funcionar, pois você vai perder todos os registros anteriores e substituir por arquivo novo que só tem 1 registro. Você não entendeu, eu mando ele salvar 1 registro mudado, e todos os registros que não sejam daquela matricula... Você possui discord? POderia compartilhar tela e desenvolver melhor cntg.

@Simon Viegas 1. Você consegue cadastrar e listar os registros? estão aparecendo corretamente? SIM 2. Ao tentar fazer da forma que sugeri acontece o quê? os dados ficam errados ou dá algum erro? Os dados não mudam, nada acontece.

@Simon Viegas Ja fiz e não funciona dessa forma, só da forma que eu ja demonstrei acima. kk, testa você mesmo ai, e me diz os resultados.

@Simon Viegas AINDA NÃO ESTA PRONTO! mas ta ai. Program Pzim ; uses crt; type funcionario = record matricula:integer; nome:string[50]; cpf:string; rg:integer; titulo:integer; cnh:String; cep:integer; endereco:string; bairro:string; cidade:string; pais:string; sexo:char; uf:string[2]; estadocivil:string; email:string; telefone:integer; dataa:integer; datad:integer; status:string; end; type dependente = record nome:string; matricula:integer; cpf:integer; end; const maxli=2000; var op,opc,mat,matr:integer; fu:funcionario; de:dependente; arquivo: file of funcionario; dep:array[1..maxli] of dependente; func:array[1..maxli] of funcionario; Procedure FundoBranco; begin textbackground(white); clrscr; gotoxy(05,05); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,25); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,26); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,27); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,28); textcolor(white); textbackground(white); write(' ' ); end; Procedure Bordas; begin gotoxy(05,05); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ·' ); gotoxy(40,24); textbackground(cyan ); write('· ' ); gotoxy(05,25); textbackground(cyan ); write(' ·' ); gotoxy(40,25); textbackground(cyan ); write('· ' ); gotoxy(05,26); textbackground(cyan ); write(' ·' ); gotoxy(40,26); textbackground(cyan ); write('· ' ); gotoxy(05,27); textbackground(cyan ); write(' ·' ); gotoxy(40,27); textbackground(cyan ); write('· ' ); gotoxy(05,28); textbackground(cyan ); write(' ··································· ' ); end; Procedure tela; begin FundoBranco; Bordas; gotoxy(17,06); textbackground(white); textcolor(black); write(' TELA INICIAL'); gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('REGISTRAR'); gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('CONSULTAR'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('ALTERAR' ); gotoxy(17,15); textbackground(white); textcolor(cyan); write('4 - '); textcolor(black); write('ARQUIVO MORTO'); gotoxy(17,17); textbackground(white); textcolor(cyan); write('5 - '); textcolor(black); write('IMPRIMIR' ); gotoxy(17,19); textbackground(white); textcolor(cyan); write('6 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' ); gotoxy(36,21); textbackground(white); textcolor(black); read(op); end; procedure informações; begin gotoxy(08,06); textbackground(white); textcolor(black); write(' 1 - Novo 2- Sair [ ] '); gotoxy(08,08); textbackground(white); textcolor(black); write('Matrícula: ' ); gotoxy(08,09); textbackground(white); textcolor(black); write('Nome: _________________________'); gotoxy(08,10); textbackground(white); textcolor(black); write('CPF: __________________________'); gotoxy(08,11); textbackground(white); textcolor(black); write('RG: ___________________________'); gotoxy(08,12); textbackground(white); textcolor(black); write('Título: _______________________'); gotoxy(08,13); textbackground(white); textcolor(black); write('CNH: __________________________'); gotoxy(08,14); textbackground(white); textcolor(black); write('CEP: __________________________'); gotoxy(08,15); textbackground(white); textcolor(black); write('Endereço: _____________________'); gotoxy(08,16); textbackground(white); textcolor(black); write('Bairro: _______________________'); gotoxy(08,17); textbackground(white); textcolor(black); write('Cidade: _______________________'); gotoxy(08,18); textbackground(white); textcolor(black); write('País: _________________________'); gotoxy(08,19); textbackground(white); textcolor(black); write('Sexo: _________________________'); gotoxy(08,20); textbackground(white); textcolor(black); write('UF: ___________________________'); gotoxy(08,21); textbackground(white); textcolor(black); write('Estado Civil: _________________'); gotoxy(08,22); textbackground(white); textcolor(black); write('E-mail: _______________________'); gotoxy(08,23); textbackground(white); textcolor(black); write('Telefone: _____________________'); gotoxy(08,24); textbackground(white); textcolor(black); write('Data de admissão: _____________'); gotoxy(10,25); textbackground(white); textcolor(red); write(' '); gotoxy(10,26); textbackground(white); textcolor(red); write(' '); end; Procedure registroTitular; var cad,mat,opr:integer; begin FundoBranco; Bordas; informações; end; procedure cadastrar; var o,op,opr,z:integer; le:char; cpf:string; begin repeat registroTitular; gotoxy(31,06);read(o); if o=1 then begin assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then rewrite (arquivo); seek(arquivo, filesize(arquivo)); fu.matricula:=filesize(arquivo)+1; gotoxy(18,08);write(fu.matricula); gotoxy(14,09);read(fu.nome); gotoxy(13,10);read(fu.cpf); gotoxy(12,11);read(fu.rg); gotoxy(16,12);read(fu.titulo); gotoxy(13,13);read(fu.cnh); gotoxy(13,14);read(fu.cep); gotoxy(18,15);read(fu.endereco); gotoxy(16,16);read(fu.bairro); gotoxy(16,17);read(fu.cidade); gotoxy(14,18);read(fu.pais); gotoxy(14,19);read(fu.sexo); gotoxy(12,20);read(fu.uf); gotoxy(22,21);read(fu.estadocivil); gotoxy(16,22);read(fu.email); gotoxy(18,23);read(fu.telefone); gotoxy(25,24);read(fu.dataa); gotoxy(08,06); textbackground(white); textcolor(black); write(' '); gotoxy(10,25); textbackground(white); textcolor(red); write('1 - Salvar 2 - Cancelar'); gotoxy(10,26); textbackground(white); textcolor(red); write('Digite a opção desejada [ ]'); gotoxy(35,26); read(opr); close(arquivo); if opr=1 then begin fu.status:='ATIVO'; assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then rewrite(arquivo); if filesize(arquivo) > 0 then seek(arquivo, filesize(arquivo)); write(arquivo, fu); close(arquivo); end; if opr=2 then assign(arquivo, 'C:\tete\armazem.dat'); close(arquivo); end else begin textcolor(red); gotoxy(10,26);write('Saindo...'); delay(1000); assign(arquivo, 'C:\tete\armazem.dat'); close(arquivo); end; until (o=2); end; Procedure registroOpcao; begin FundoBranco; Bordas; gotoxy(17,06); textbackground(white); textcolor(black); write(' REGISTRO'); gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('TITULAR'); gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('DEPENDENTE'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' ); end; Procedure registroDependente; var x,y,r,op:integer; e:boolean; begin FundoBranco; Bordas; gotoxy(17,06); textbackground(white); textcolor(black); write(' REGISTRO'); gotoxy(08,09); textbackground(white); textcolor(black); write(' 1 - Novo 2 - Sair [ ] '); gotoxy(30,09); read(r); case r of 2:begin; clrscr; registroOpcao; end; 1:begin gotoxy(08,10); textbackground(white); textcolor(black); write('Matrícula:_____________________');//Opções da tela gotoxy(18,10); read(mat); if func[mat].matricula=mat then begin de.matricula:=mat; gotoxy(08,11); textbackground(white); textcolor(green); write('Matricula Válida!'); gotoxy(10,30); textbackground(white); textcolor(red); write('Matricula em Nome de: ',func[mat].nome); gotoxy(10,31); textbackground(white); textcolor(red); write('Matricula No Cpf: ',func[mat].cpf); gotoxy(08,12); textbackground(white); textcolor(black); write('Nome: _________________________'); gotoxy(15,12); read (de.nome); gotoxy(08,13); textbackground(white); textcolor(black); write('CPF: __________________________'); gotoxy(13,13); read (de.cpf); gotoxy(10,25); textbackground(white); textcolor(red); write('1 - Salvar 2 - Cancelar'); gotoxy(10,26); textbackground(white); textcolor(red); write('Digite a opção desejada [ ]'); gotoxy(35,26); read (op); case op of 1:begin dep[mat]:=de; clrscr; gotoxy(08,12); Textbackground(white); textcolor(green); write('Registro Salvo com Sucesso!!'); tela; end; 2:begin Clrscr; gotoxy(08,12); Textbackground(white); textcolor(green); write('Operação Cancelada!!'); tela; end; end; end else begin gotoxy(08,11); textbackground(white); textcolor(red); write('Matricula Inválida!'); delay(750); registroDependente; end; end; end; end; Procedure Imprimir; var linha,contador,mtt,mtt2,o,x,z,k:integer; begin x:=10; z:=0; k:=10; assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then begin writeln; write(' Nada encontrado no arquivo!'); delay(1000); end else begin seek(arquivo, 0); while not eof(arquivo) do begin repeat read(arquivo, fu); textbackground(white); inc(z); gotoxy(05,linha+05); textcolor(white); textbackground(white); write(' ' );// Início do fundo branco gotoxy(05,linha+06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+24); textcolor(white); textbackground(white); write(' ' );// Final do fundo branco gotoxy(05,linha+05); textbackground(cyan ); write(' ··································· ' );//Início das bordas gotoxy(05,linha+06); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+06); textbackground(cyan ); write('· ' ); gotoxy(05,linha+07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,linha+08); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+08); textbackground(cyan ); write('· ' ); gotoxy(05,linha+09); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+09); textbackground(cyan ); write('· ' ); gotoxy(05,linha+10); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+10); textbackground(cyan ); write('· ' ); gotoxy(05,linha+11); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+11); textbackground(cyan ); write('· ' ); gotoxy(05,linha+12); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+12); textbackground(cyan ); write('· ' ); gotoxy(05,linha+13); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+13); textbackground(cyan ); write('· ' ); gotoxy(05,linha+14); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+14); textbackground(cyan ); write('· ' ); gotoxy(05,linha+15); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+15); textbackground(cyan ); write('· ' ); gotoxy(05,linha+16); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+16); textbackground(cyan ); write('· ' ); gotoxy(05,linha+17); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+17); textbackground(cyan ); write('· ' ); gotoxy(05,linha+18); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+18); textbackground(cyan ); write('· ' ); gotoxy(05,linha+19); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+19); textbackground(cyan ); write('· ' ); gotoxy(05,linha+20); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+20); textbackground(cyan ); write('· ' ); gotoxy(05,linha+21); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+21); textbackground(cyan ); write('· ' ); gotoxy(05,linha+22); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+22); textbackground(cyan ); write('· ' ); gotoxy(05,linha+23); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+23); textbackground(cyan ); write('· ' ); gotoxy(05,linha+24); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+24); textbackground(cyan ); write('· ' ); gotoxy(05,linha+25); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+25); textbackground(cyan ); write('· ' ); gotoxy(05,linha+26); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+26); textbackground(cyan ); write('· ' ); gotoxy(05,linha+27); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+27); textbackground(cyan ); write('· ' ); gotoxy(05,linha+28); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(17,linha+06); textbackground(white); textcolor(black); write(' IMPRESSÃO ');// Título da tela gotoxy(08,linha+08); textbackground(white); textcolor(black); write('Matrícula: ' );//Opções da tela gotoxy(08,linha+09); textbackground(white); textcolor(black); write('Nome: _________________________'); gotoxy(08,linha+10); textbackground(white); textcolor(black); write('CPF: __________________________'); gotoxy(08,linha+11); textbackground(white); textcolor(black); write('RG: ___________________________'); gotoxy(08,linha+12); textbackground(white); textcolor(black); write('Título: _______________________'); gotoxy(08,linha+13); textbackground(white); textcolor(black); write('CNH: __________________________'); gotoxy(08,linha+14); textbackground(white); textcolor(black); write('CEP: __________________________'); gotoxy(08,linha+15); textbackground(white); textcolor(black); write('Endereço: _____________________'); gotoxy(08,linha+16); textbackground(white); textcolor(black); write('Bairro: _______________________'); gotoxy(08,linha+17); textbackground(white); textcolor(black); write('Cidade: _______________________'); gotoxy(08,linha+18); textbackground(white); textcolor(black); write('País: _________________________'); gotoxy(08,linha+19); textbackground(white); textcolor(black); write('Sexo: _________________________'); gotoxy(08,linha+20); textbackground(white); textcolor(black); write('UF: ___________________________'); gotoxy(08,linha+21); textbackground(white); textcolor(black); write('Estado Civil: _________________'); gotoxy(08,linha+22); textbackground(white); textcolor(black); write('E-mail: _______________________'); gotoxy(08,linha+23); textbackground(white); textcolor(black); write('Telefone: _____________________'); gotoxy(08,linha+24); textbackground(white); textcolor(black); write('Data de admissão: _____________'); gotoxy(08,linha+25); textbackground(white); textcolor(black); write('Status: _______________________'); gotoxy(10,linha+26); textbackground(white); textcolor(red); write(' '); gotoxy(18,linha+08); textbackground(white); textcolor(black); write(fu.matricula); gotoxy(08,linha+09); textbackground(white); textcolor(black); write('Nome: _________________________'); gotoxy(08,linha+10); textbackground(white); textcolor(black); write('CPF: __________________________'); gotoxy(08,linha+11); textbackground(white); textcolor(black); write('RG: ___________________________'); gotoxy(08,linha+12); textbackground(white); textcolor(black); write('Título: _______________________'); gotoxy(08,linha+13); textbackground(white); textcolor(black); write('CNH: __________________________'); gotoxy(08,linha+14); textbackground(white); textcolor(black); write('CEP: __________________________'); gotoxy(08,linha+15); textbackground(white); textcolor(black); write('Endereço: _____________________'); gotoxy(08,linha+16); textbackground(white); textcolor(black); write('Bairro: _______________________'); gotoxy(08,linha+17); textbackground(white); textcolor(black); write('Cidade: _______________________'); gotoxy(08,linha+18); textbackground(white); textcolor(black); write('País: _________________________'); gotoxy(08,linha+19); textbackground(white); textcolor(black); write('Sexo: _________________________'); gotoxy(08,linha+20); textbackground(white); textcolor(black); write('UF: ___________________________'); gotoxy(08,linha+21); textbackground(white); textcolor(black); write('Estado Civil: _________________'); gotoxy(08,linha+22); textbackground(white); textcolor(black); write('E-mail: _______________________'); gotoxy(08,linha+23); textbackground(white); textcolor(black); write('Telefone: _____________________'); gotoxy(08,linha+24); textbackground(white); textcolor(black); write('Data de admissão: _____________'); gotoxy(08,linha+25); textbackground(white); textcolor(black); write('Status: _______________________'); gotoxy(10,linha+26); textbackground(white); textcolor(red); write(' '); inc(linha,22); if (z=x)and(k>=10) then begin readkey; k:=(filesize(arquivo)-x); inc(x,10); end else if k<10 then begin dec(k); if k=0 then readkey; end; until (x=filesize(arquivo))or(k=0); readkey; end; op:=0; close(arquivo); end; end; Procedure BuscaCPF; var op:integer; e:boolean; busca:string; begin FundoBranco; Bordas; e:=false; gotoxy(15,06); textbackground(white); textcolor(black); write('BUSCA POR CPF'); gotoxy(08,09); textbackground(white); textcolor(cyan); write('CPF: '); textcolor(black); write('____________________'); gotoxy(12,09); read(busca); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then begin writeln; write(' Nada encontrado no arquivo!'); delay(1000); end else begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, fu); if fu.cpf = busca then begin e:=true; gotoxy(08,10); textbackground(white); textcolor(cyan); write('Nome: '); gotoxy(14,10); textbackground(white); textcolor(black); write(fu.nome); gotoxy(08,11); textbackground(white); textcolor(cyan); write('CPF: '); gotoxy(13,11); textbackground(white); textcolor(black); write(fu.cpf); gotoxy(08,12); textbackground(white); textcolor(cyan); write('RG: '); gotoxy(12,12); textbackground(white); textcolor(black); write(fu.rg); gotoxy(08,13); textbackground(white); textcolor(cyan); write('Titulo: '); gotoxy(16,13); textbackground(white); textcolor(black); write(fu.titulo); gotoxy(08,14); textbackground(white); textcolor(cyan); write('CNH: '); gotoxy(12,14); textbackground(white); textcolor(black); write(fu.cnh); gotoxy(08,15); textbackground(white); textcolor(cyan); write('CEP: '); gotoxy(12,15); textbackground(white); textcolor(black); write(fu.cep); gotoxy(08,16); textbackground(white); textcolor(cyan); write('Endereço: '); gotoxy(17,16); textbackground(white); textcolor(black); write(fu.endereco); gotoxy(08,17); textbackground(white); textcolor(cyan); write('Bairro: '); gotoxy(15,17); textbackground(white); textcolor(black); write(fu.bairro); gotoxy(08,18); textbackground(white); textcolor(cyan); write('Cidade: '); gotoxy(15,18); textbackground(white); textcolor(black); write(fu.cidade); gotoxy(08,19); textbackground(white); textcolor(cyan); write('Pais: '); gotoxy(13,19); textbackground(white); textcolor(black); write(fu.pais); gotoxy(08,20); textbackground(white); textcolor(cyan); write('Sexo: '); gotoxy(13,20); textbackground(white); textcolor(black); write(fu.sexo); gotoxy(08,21); textbackground(white); textcolor(cyan); write('UF: '); gotoxy(11,21); textbackground(white); textcolor(black); write(fu.uf); gotoxy(08,22); textbackground(white); textcolor(cyan); write('Estado Civil: '); gotoxy(21,22); textbackground(white); textcolor(black); write(fu.estadocivil); gotoxy(08,23); textbackground(white); textcolor(cyan); write('Email: '); gotoxy(15,23); textbackground(white); textcolor(black); write(fu.Email); gotoxy(08,24); textbackground(white); textcolor(cyan); write('Telefone: '); gotoxy(17,24); textbackground(white); textcolor(black); write(fu.telefone); gotoxy(08,25); textbackground(white); textcolor(cyan); write('Data de Admissão: '); gotoxy(25,25); textbackground(white); textcolor(black); write(fu.dataa); gotoxy(08,26); textbackground(white); textcolor(cyan); write('Status: '); gotoxy(15,26); textbackground(white); textcolor(black); write(fu.status); gotoxy(08,27); textbackground(white); textcolor(black); write('1 - Consultar 2 - Sair [ ]'); gotoxy(32,27); read(op); end; end; close(arquivo); end; case op of 1:BuscaCPF; 2:begin close(arquivo); tela; end; end; end; Procedure BuscaMatricula; var op:integer; e:boolean; busca:integer; begin FundoBranco; Bordas; e:=false; gotoxy(15,06); textbackground(white); textcolor(black); write('BUSCA POR MATRICULA'); gotoxy(08,09); textbackground(white); textcolor(cyan); write('MATRÍCULA: '); textcolor(black); write('____________________'); gotoxy(19,09); read(busca); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then begin writeln; write(' Nada encontrado no arquivo!'); delay(1000); end else begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, fu); if fu.matricula = busca then begin e:=true; gotoxy(08,10); textbackground(white); textcolor(cyan); write('Nome: '); gotoxy(14,10); textbackground(white); textcolor(black); write(fu.nome); gotoxy(08,11); textbackground(white); textcolor(cyan); write('CPF: '); gotoxy(13,11); textbackground(white); textcolor(black); write(fu.cpf); gotoxy(08,12); textbackground(white); textcolor(cyan); write('RG: '); gotoxy(12,12); textbackground(white); textcolor(black); write(fu.rg); gotoxy(08,13); textbackground(white); textcolor(cyan); write('Titulo: '); gotoxy(16,13); textbackground(white); textcolor(black); write(fu.titulo); gotoxy(08,14); textbackground(white); textcolor(cyan); write('CNH: '); gotoxy(12,14); textbackground(white); textcolor(black); write(fu.cnh); gotoxy(08,15); textbackground(white); textcolor(cyan); write('CEP: '); gotoxy(12,15); textbackground(white); textcolor(black); write(fu.cep); gotoxy(08,16); textbackground(white); textcolor(cyan); write('Endereço: '); gotoxy(17,16); textbackground(white); textcolor(black); write(fu.endereco); gotoxy(08,17); textbackground(white); textcolor(cyan); write('Bairro: '); gotoxy(15,17); textbackground(white); textcolor(black); write(fu.bairro); gotoxy(08,18); textbackground(white); textcolor(cyan); write('Cidade: '); gotoxy(15,18); textbackground(white); textcolor(black); write(fu.cidade); gotoxy(08,19); textbackground(white); textcolor(cyan); write('Pais: '); gotoxy(13,19); textbackground(white); textcolor(black); write(fu.pais); gotoxy(08,20); textbackground(white); textcolor(cyan); write('Sexo: '); gotoxy(13,20); textbackground(white); textcolor(black); write(fu.sexo); gotoxy(08,21); textbackground(white); textcolor(cyan); write('UF: '); gotoxy(11,21); textbackground(white); textcolor(black); write(fu.uf); gotoxy(08,22); textbackground(white); textcolor(cyan); write('Estado Civil: '); gotoxy(21,22); textbackground(white); textcolor(black); write(fu.estadocivil); gotoxy(08,23); textbackground(white); textcolor(cyan); write('Email: '); gotoxy(15,23); textbackground(white); textcolor(black); write(fu.Email); gotoxy(08,24); textbackground(white); textcolor(cyan); write('Telefone: '); gotoxy(17,24); textbackground(white); textcolor(black); write(fu.telefone); gotoxy(08,25); textbackground(white); textcolor(cyan); write('Data de Admissão: '); gotoxy(25,25); textbackground(white); textcolor(black); write(fu.dataa); gotoxy(08,26); textbackground(white); textcolor(cyan); write('Status: '); gotoxy(15,26); textbackground(white); textcolor(black); write(fu.status); gotoxy(08,27); textbackground(white); textcolor(black); write('1 - Consultar 2 - Sair [ ]'); gotoxy(32,27); read(op); end; end; close(arquivo); end; case op of 1:BuscaMatricula; 2:begin close(arquivo); tela; end; end; end; Procedure alterarinterface; var encontrado: boolean; op,num: integer; nome,x: string; contatoTemporario: funcionario; arquivoAntigo, arquivoAtualizado: file of funcionario; begin encontrado := false; clrscr; writeln(' Atualização de Cadastro'); writeln; write(' Numero da matricula: '); readln(matr); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then begin writeln; write(' Nada encontrado no arquivo!'); delay(1000); tela; end else begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, fu); if fu.matricula = matr then begin gotoxy(08,10); textbackground(white); textcolor(black); write('1 - Nome: '); gotoxy(18,10); textbackground(white); textcolor(black); write(fu.nome); gotoxy(08,11); textbackground(white); textcolor(black); write('2 - CPF: '); gotoxy(17,11); textbackground(white); textcolor(black); write(fu.cpf); gotoxy(08,12); textbackground(white); textcolor(black); write('3 - RG: '); gotoxy(16,12); textbackground(white); textcolor(black); write(fu.rg); gotoxy(08,13); textbackground(white); textcolor(black); write('4 - Titulo: '); gotoxy(20,13); textbackground(white); textcolor(black); write(fu.titulo); gotoxy(08,14); textbackground(white); textcolor(black); write('5 - CNH: '); gotoxy(16,14); textbackground(white); textcolor(black); write(fu.cnh); gotoxy(08,15); textbackground(white); textcolor(black); write('6 - CEP: '); gotoxy(16,15); textbackground(white); textcolor(black); write(fu.cep); gotoxy(08,16); textbackground(white); textcolor(black); write('7 - Endereço: '); gotoxy(21,16); textbackground(white); textcolor(black); write(fu.endereco); gotoxy(08,17); textbackground(white); textcolor(black); write('8 - Bairro: '); gotoxy(19,17); textbackground(white); textcolor(black); write(fu.bairro); gotoxy(08,18); textbackground(white); textcolor(black); write('9 - Cidade: '); gotoxy(19,18); textbackground(white); textcolor(black); write(fu.cidade); gotoxy(08,19); textbackground(white); textcolor(black); write('10 - Pais: '); gotoxy(18,19); textbackground(white); textcolor(black); write(fu.pais); gotoxy(08,20); textbackground(white); textcolor(black); write('11 - Sexo: '); gotoxy(18,20); textbackground(white); textcolor(black); write(fu.sexo); gotoxy(08,21); textbackground(white); textcolor(black); write('12 - UF: '); gotoxy(16,21); textbackground(white); textcolor(black); write(fu.uf); gotoxy(08,22); textbackground(white); textcolor(black); write('13 - Estado Civil: '); gotoxy(26,22); textbackground(white); textcolor(black); write(fu.estadocivil); gotoxy(08,23); textbackground(white); textcolor(black); write('14 - Email: '); gotoxy(20,23); textbackground(white); textcolor(black); write(fu.Email); gotoxy(08,24); textbackground(white); textcolor(black); write('15 - Telefone: '); gotoxy(22,24); textbackground(white); textcolor(black); write(fu.telefone); gotoxy(08,25); textbackground(white); textcolor(black); write('16 - Data de Admissão: '); gotoxy(30,25); textbackground(white); textcolor(black); write(fu.dataa); gotoxy(08,28); write('O que deseja alterar?: '); end; end; close(arquivo); end; end; procedure alterarmec; var op,num:integer; Nome,test:string; novo: file of funcionario; contatotemporario:funcionario; encontrado:boolean; begin gotoxy(30,28); read(op); case op of 1:begin clrscr; gotoxy(15,15); write('Digite o novo nome: '); readln(Nome); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult = 0 then begin assign(novo, 'C:\tete\temp.dat'); {$I-} rewrite(novo); {$I+}; if ioresult = 0 then begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, contatoTemporario); if matr = contatoTemporario.matricula then begin contatoTemporario.nome := Nome; encontrado := true; write(novo, contatoTemporario); end else write(novo, contatoTemporario); end; close(arquivo); close(novo); erase(arquivo); rename(novo, 'C:\tete\armazem.dat'); gotoxy(15,15); write('Alteração realizada com sucesso'); delay(1000); tela; end; end; end; 2:begin clrscr; gotoxy(15,15); write('Digite o novo cpf: '); readln(Nome); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult = 0 then begin assign(novo, 'C:\tete\temp.dat'); {$I-} rewrite(novo); {$I+}; if ioresult = 0 then begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, contatoTemporario); if matr = contatoTemporario.matricula then begin contatoTemporario.cpf := Nome; encontrado := true; write(novo, contatoTemporario); end else write(novo, contatoTemporario); end; close(arquivo); close(novo); erase(arquivo); rename(novo, 'C:\tete\armazem.dat'); gotoxy(15,15); write('Alteração realizada com sucesso'); delay(1000); tela; end; end; end; 3:begin clrscr; gotoxy(15,15); write('Digite o novo rg: '); readln(Num); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult = 0 then begin assign(novo, 'C:\tete\temp.dat'); {$I-} rewrite(novo); {$I+}; if ioresult = 0 then begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, contatoTemporario); if matr = contatoTemporario.matricula then begin contatoTemporario.rg := Num; encontrado := true; write(novo, contatoTemporario); end else write(novo, contatoTemporario); end; close(arquivo); close(novo); erase(arquivo); rename(novo, 'C:\tete\armazem.dat'); gotoxy(15,15); write('Alteração realizada com sucesso'); delay(1000); tela; end; end; end; 4:begin clrscr; gotoxy(15,15); write('Digite o novo titulo: '); readln(Num); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult = 0 then begin assign(novo, 'C:\tete\temp.dat'); {$I-} rewrite(novo); {$I+}; if ioresult = 0 then begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, contatoTemporario); if matr = contatoTemporario.matricula then begin contatoTemporario.titulo := Num; encontrado := true; write(novo, contatoTemporario); end else write(novo, contatoTemporario); end; close(arquivo); close(novo); erase(arquivo); rename(novo, 'C:\tete\armazem.dat'); gotoxy(15,15); write('Alteração realizada com sucesso'); delay(1000); tela; end; end; end; 5:begin clrscr; gotoxy(15,15); write('Digite o novo cnh: '); readln(Nome); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; seek(arquivo, matr); read(arquivo, fu); fu.cnh:=Nome; write(arquivo, fu); close(arquivo); clrscr; gotoxy(15,15); Write(fu.cnh); delay(1000); tela; end; end; end; procedure opbusca; var opb:integer; begin fundobranco; bordas; gotoxy(17,06); textbackground(white); textcolor(black); write('BUSCA POR'); gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('MATRÍCULA'); gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('CPF'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' ); gotoxy(36,21); textbackground(white); textcolor(black); read(opb); case opb of 1:buscamatricula; 2:buscacpf; 3:op:=0; end; end; Begin assign(arquivo, 'C:\tete\armazem.dat'); tela; repeat case op of 0:tela; 1:begin clrscr; registroOpcao; gotoxy(36,21); textbackground(white); textcolor(black); read(opc);; case opc of 1:begin registroTitular; cadastrar; end; 2:registroDependente; 3:begin clrscr; tela; end; end; end; 2:opbusca; 3:begin alterarinterface; alterarmec; end; 5:begin imprimir; readkey; end; 7:begin assign(arquivo, 'C:\tete\armazem.dat'); reset(arquivo); close(arquivo); clrscr; gotoxy(15,15); textcolor(red); write('Digite a Senha Master: '); gotoxy(37,15); read(op); if op=0206 then begin erase(arquivo); gotoxy(15,16);write('Arquivo excluído'); readkey; end; tela; end; end; until op=6; clrscr; gotoxy(15,15);write('Sistema finalizado com sucesso!'); delay(1000); End.

@Simon Viegas Consegui fazer funcionar com esse, mas ele é MUITO grande porquê é repetido 16vezes. por isso to tentando achar uma maneira mais fácil. 4:begin clrscr; gotoxy(15,15); write('Digite o novo titulo: '); readln(Num); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult = 0 then begin assign(novo, 'C:\tete\temp.dat'); {$I-} rewrite(novo); {$I+}; if ioresult = 0 then begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, contatoTemporario); if matr = contatoTemporario.matricula then begin contatoTemporario.titulo := Num; encontrado := true; write(novo, contatoTemporario); end else write(novo, contatoTemporario); end; close(arquivo); close(novo); erase(arquivo); rename(novo, 'C:\tete\armazem.dat'); gotoxy(15,15); write('Alteração realizada com sucesso'); delay(1000); tela; end; end; end;

@Simon Viegas Literalmente Nada.

@Simon Viegas clrscr; gotoxy(15,15); write('Digite o novo cnh: '); readln(Nome); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; seek(arquivo, matr); read(arquivo, fu); fu.cnh:=Nome; write(arquivo, fu); close(arquivo); clrscr; gotoxy(15,15); Write(fu.cnh); delay(1000); tela

@Simon Viegas Não, ele só permite que FU seja escrito como se fosse o record todo. não permite fu.cnh. Ele não permite que eu insira variáveis nem nada, sómente o puro em bom fu.

@Simon ViegasEsse código é a opção 5, após o usuario digitar a matricula (salva em matr); ele vai para essa tela onde tecnicamente deveria executar a mudança. deveria mudar o campo "CNH" do usuario. clrscr; gotoxy(15,15); write('Digite a nova informação: '); readln(fun.cnh); reset(arquivo); seek(arquivo, matr); read(arquivo, fu); fu.cnh:=fun.cnh; seek(arquivo, matr); write(arquivo, fun); close(arquivo); clrscr; gotoxy(15,15); Write('Tudo certo'); delay(200); tela;

@Simon Viegas clrscr; gotoxy(15,15); write('Digite a nova informação: '); readln(fun.cnh); reset(arquivo); seek(arquivo, matr); read(arquivo, fu); fu.cnh:=fun.cnh; seek(arquivo, matr); write(arquivo, fun); close(arquivo); clrscr; gotoxy(15,15); Write('Tudo certo'); delay(200); tela;

@Simon Viegas Eu estabeleci que FUN é de funcionario também..Quando você diz ALTERE O NOME DESSE REGISTRO, altero pra que então?

@Simon Viegas Se eu entendi a lógica é mais ou menos essa: begin clrscr; gotoxy(15,15); write('Digite a nova informação: '); readln(num); reset(arquivo); seek(arquivo, matr); read(fu.cnh); fu.cnh:=test; seek(arquivo, matr); write(arquivo, test); end; Mas da erro, pois write só aceita se for Fu. adicionado 1 minuto depois

@Simon Viegas Conclusão que cheguei: clrscr; gotoxy(15,15); write('Digite o novo nome: '); readln(Nome); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult = 0 then begin assign(novo, 'C:\tete\temp.dat'); {$I-} rewrite(novo); {$I+}; if ioresult = 0 then begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, contatoTemporario); if matr = contatoTemporario.matricula then begin contatoTemporario.nome := Nome; encontrado := true; write(novo, contatoTemporario); end else write(novo, contatoTemporario); end; close(arquivo); close(novo); erase(arquivo); rename(novo, 'C:\tete\armazem.dat'); end; end; end;

@Simon Viegas Justamente, Acabei percebendo isso agora :x, o rewrite so salva a nova alteração. O que eu acho é o seguinte, eu vou ter que criar 2 arquivos, um "temporario" passar as informações de um pro outro, e nessa troca realizar a troca de informações.

@Simon Viegas PascalZIM, indicaram como o melhor para iniciantes.

@Simon Viegas aparentemente consegui resolver da seguinte forma Eu coloquei esse procedure no começo do codigo, para ele pegar as variaveis sempre limpas. E fiz isso, aparentemente funcionou, vamos ver mais pra frente se da outros erros. begin gotoxy(30,28); read(op); case op of 1:begin clrscr; gotoxy(15,15); write('Digite o novo nome: '); readln(fu.nome); assign(arquivo, 'C:\tete\armazem.dat'); reset(arquivo); rewrite(arquivo); seek(arquivo, matr); write(arquivo, fu); close(arquivo); delay(1000); end; end; end;

@Simon Viegas Eu entendi essa adendo, e agradeço MUITO você estar ajudando o novato aqui. Dicas muito boas da sua parte. Porém o que quis dizer é Ainda que eu use (seek, busca); Se o dado inserido for menor que o anterior, ele não cobre a informação inteira. Por exemplo o Nome que eu mudo de Antonio para Neto E fica Netonio. no caso do (seek, fu.matricula+1); é porque eu queria alterar a casa fu.nome, porém seek só aceita integer, então eu busco pela matricula e adiciono uma casa para ir para a linha do nome. adicionado 26 minutos depois Outra coisa, sempre que altero ele cria um novo cadastro, como se fosse uma nova matricula e copia todos os dados.

@Simon Viegas Cara, agradeço a ideia e executei da seguinte forma. E por incrivel que pareça funcionou, o problema é que ele não substitui a informação anterior, ele duplica. Ou seja ficam duas matriculas 1, uma com o nome anterior e outra com o nome bugado. Por exemplo: Se eu substituir o nome: Matricula: 1 Nome: Antonio Para Matricula: 1 Nome: Neto Vão ficar duas matriculas Uma com nome antonio e outra com nome Netonio. kkk {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then begin writeln; write(' Nada encontrado no arquivo!'); delay(1000); end else begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, fu); if fu.matricula = busca then begin clrscr; gotoxy(15,15); write('Digite o Novo Nome: ' ); gotoxy(35,15); Read(fu.nome); Seek(arquivo, busca+1); write(arquivo, fu); end; end; close(arquivo); end; end;

Olá, gostaria de saber a melhor forma para se alterar um DADO que ja foi escrito dentro de uma file em pascal. Sei da forma de "criar" um arquivo temporario e trocar as informações assim também realizando a troca do dado necessario. Porém gostaria de saber se há uma forma mais eficiente de realizar essa função, agradeço.

Olá, realizando um programa para cadastro de clientes em File notei que algumas vezes o programa se recusa a apagar a database se for solicitado. Alguém consegue dar uma força? Lá embaixo na opção 7: (Iniciante em pascal aqui.) Program Pzim ; uses crt; type funcionario = record matricula:integer; nome:string[50]; cpf:string; rg:integer; titulo:integer; cnh:String; cep:integer; endereco:string; bairro:string; cidade:string; pais:string; sexo:char; uf:string[2]; estadocivil:string; email:string; telefone:integer; dataa:integer; datad:integer; status:string; end; type dependente = record nome:string; matricula:integer; cpf:integer; end; const maxli=2000; var op,opc,mat,opr:integer; fu:funcionario; de:dependente; arquivo: file of funcionario; dep:array[1..maxli] of dependente; func:array[1..maxli] of funcionario; Procedure Imprimir; var linha,contador,mtt,mtt2:integer; begin assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then begin writeln; write(' Nada encontrado no arquivo!'); delay(1000); end else begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, fu); textbackground(white); for mtt2:=1 to filesize(arquivo) do begin gotoxy(05,linha+05); textcolor(white); textbackground(white); write(' ' );// Início do fundo branco gotoxy(05,linha+06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,linha+24); textcolor(white); textbackground(white); write(' ' );// Final do fundo branco gotoxy(05,linha+05); textbackground(cyan ); write(' ··································· ' );//Início das bordas gotoxy(05,linha+06); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+06); textbackground(cyan ); write('· ' ); gotoxy(05,linha+07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,linha+08); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+08); textbackground(cyan ); write('· ' ); gotoxy(05,linha+09); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+09); textbackground(cyan ); write('· ' ); gotoxy(05,linha+10); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+10); textbackground(cyan ); write('· ' ); gotoxy(05,linha+11); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+11); textbackground(cyan ); write('· ' ); gotoxy(05,linha+12); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+12); textbackground(cyan ); write('· ' ); gotoxy(05,linha+13); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+13); textbackground(cyan ); write('· ' ); gotoxy(05,linha+14); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+14); textbackground(cyan ); write('· ' ); gotoxy(05,linha+15); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+15); textbackground(cyan ); write('· ' ); gotoxy(05,linha+16); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+16); textbackground(cyan ); write('· ' ); gotoxy(05,linha+17); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+17); textbackground(cyan ); write('· ' ); gotoxy(05,linha+18); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+18); textbackground(cyan ); write('· ' ); gotoxy(05,linha+19); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+19); textbackground(cyan ); write('· ' ); gotoxy(05,linha+20); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+20); textbackground(cyan ); write('· ' ); gotoxy(05,linha+21); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+21); textbackground(cyan ); write('· ' ); gotoxy(05,linha+22); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+22); textbackground(cyan ); write('· ' ); gotoxy(05,linha+23); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+23); textbackground(cyan ); write('· ' ); gotoxy(05,linha+24); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+24); textbackground(cyan ); write('· ' ); gotoxy(05,linha+25); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+25); textbackground(cyan ); write('· ' ); gotoxy(05,linha+26); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+26); textbackground(cyan ); write('· ' ); gotoxy(05,linha+27); textbackground(cyan ); write(' ·' ); gotoxy(40,linha+27); textbackground(cyan ); write('· ' ); gotoxy(05,linha+28); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(17,linha+06); textbackground(white); textcolor(black); write(' IMPRESSÃO ');// Título da tela gotoxy(08,linha+08); textbackground(white); textcolor(black); write('Matrícula: ' );//Opções da tela gotoxy(08,linha+09); textbackground(white); textcolor(black); write('Nome: _________________________'); gotoxy(08,linha+10); textbackground(white); textcolor(black); write('CPF: __________________________'); gotoxy(08,linha+11); textbackground(white); textcolor(black); write('RG: ___________________________'); gotoxy(08,linha+12); textbackground(white); textcolor(black); write('Título: _______________________'); gotoxy(08,linha+13); textbackground(white); textcolor(black); write('CNH: __________________________'); gotoxy(08,linha+14); textbackground(white); textcolor(black); write('CEP: __________________________'); gotoxy(08,linha+15); textbackground(white); textcolor(black); write('Endereço: _____________________'); gotoxy(08,linha+16); textbackground(white); textcolor(black); write('Bairro: _______________________'); gotoxy(08,linha+17); textbackground(white); textcolor(black); write('Cidade: _______________________'); gotoxy(08,linha+18); textbackground(white); textcolor(black); write('País: _________________________'); gotoxy(08,linha+19); textbackground(white); textcolor(black); write('Sexo: _________________________'); gotoxy(08,linha+20); textbackground(white); textcolor(black); write('UF: ___________________________'); gotoxy(08,linha+21); textbackground(white); textcolor(black); write('Estado Civil: _________________'); gotoxy(08,linha+22); textbackground(white); textcolor(black); write('E-mail: _______________________'); gotoxy(08,linha+23); textbackground(white); textcolor(black); write('Telefone: _____________________'); gotoxy(08,linha+24); textbackground(white); textcolor(black); write('Data de admissão: _____________'); gotoxy(08,linha+25); textbackground(white); textcolor(black); write('Status: _______________________'); gotoxy(10,linha+26); textbackground(white); textcolor(red); write(' '); inc(linha,22); op:=0; close(arquivo); end; end; end; end; Procedure FundoBranco; begin textbackground(white); clrscr; gotoxy(05,05); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,25); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,26); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,27); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,28); textcolor(white); textbackground(white); write(' ' ); end; Procedure Bordas; begin gotoxy(05,05); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ·' ); gotoxy(40,24); textbackground(cyan ); write('· ' ); gotoxy(05,25); textbackground(cyan ); write(' ·' ); gotoxy(40,25); textbackground(cyan ); write('· ' ); gotoxy(05,26); textbackground(cyan ); write(' ·' ); gotoxy(40,26); textbackground(cyan ); write('· ' ); gotoxy(05,27); textbackground(cyan ); write(' ·' ); gotoxy(40,27); textbackground(cyan ); write('· ' ); gotoxy(05,28); textbackground(cyan ); write(' ··································· ' ); end; Procedure tela; begin FundoBranco; Bordas; gotoxy(17,06); textbackground(white); textcolor(black); write(' TELA INICIAL'); gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('REGISTRAR'); gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('CONSULTAR'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('ALTERAR' ); gotoxy(17,15); textbackground(white); textcolor(cyan); write('4 - '); textcolor(black); write('ARQUIVO MORTO'); gotoxy(17,17); textbackground(white); textcolor(cyan); write('5 - '); textcolor(black); write('IMPRIMIR' ); gotoxy(17,19); textbackground(white); textcolor(cyan); write('6 - '); textcolor(black); write('SAIR' ); gotoxy(17,21); textbackground(white); textcolor(cyan); write('7 - '); textcolor(black); write('APAGAR DATA BASE'); gotoxy(11,23); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' ); gotoxy(36,23); textbackground(white); textcolor(black); read(op); end; procedure informações; begin gotoxy(08,06); textbackground(white); textcolor(black); write(' 1 - Novo 2- Sair [ ] '); gotoxy(08,08); textbackground(white); textcolor(black); write('Matrícula: ' ); gotoxy(08,09); textbackground(white); textcolor(black); write('Nome: _________________________'); gotoxy(08,10); textbackground(white); textcolor(black); write('CPF: __________________________'); gotoxy(08,11); textbackground(white); textcolor(black); write('RG: ___________________________'); gotoxy(08,12); textbackground(white); textcolor(black); write('Título: _______________________'); gotoxy(08,13); textbackground(white); textcolor(black); write('CNH: __________________________'); gotoxy(08,14); textbackground(white); textcolor(black); write('CEP: __________________________'); gotoxy(08,15); textbackground(white); textcolor(black); write('Endereço: _____________________'); gotoxy(08,16); textbackground(white); textcolor(black); write('Bairro: _______________________'); gotoxy(08,17); textbackground(white); textcolor(black); write('Cidade: _______________________'); gotoxy(08,18); textbackground(white); textcolor(black); write('País: _________________________'); gotoxy(08,19); textbackground(white); textcolor(black); write('Sexo: _________________________'); gotoxy(08,20); textbackground(white); textcolor(black); write('UF: ___________________________'); gotoxy(08,21); textbackground(white); textcolor(black); write('Estado Civil: _________________'); gotoxy(08,22); textbackground(white); textcolor(black); write('E-mail: _______________________'); gotoxy(08,23); textbackground(white); textcolor(black); write('Telefone: _____________________'); gotoxy(08,24); textbackground(white); textcolor(black); write('Data de admissão: _____________'); gotoxy(10,25); textbackground(white); textcolor(red); write(' '); gotoxy(10,26); textbackground(white); textcolor(red); write(' '); end; Procedure registroTitular; var cad,mat,opr:integer; begin FundoBranco; Bordas; informações; end; procedure cadastrar; var o,op,opr,z:integer; le:char; cpf:string; begin repeat registroTitular; gotoxy(31,06);read(o); if o=1 then begin assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then rewrite(arquivo); if filesize(arquivo) > 0 then seek(arquivo, filesize(arquivo)); mat:=filesize(arquivo)+1; gotoxy(18,08);write(mat); fu.matricula:=mat; gotoxy(18,08);write(fu.matricula); gotoxy(14,09);read(fu.nome); gotoxy(13,10);read(fu.cpf); gotoxy(12,11);read(fu.rg); gotoxy(16,12);read(fu.titulo); gotoxy(13,13);read(fu.cnh); gotoxy(13,14);read(fu.cep); gotoxy(18,15);read(fu.endereco); gotoxy(16,16);read(fu.bairro); gotoxy(16,17);read(fu.cidade); gotoxy(14,18);read(fu.pais); gotoxy(14,19);read(fu.sexo); gotoxy(12,20);read(fu.uf); gotoxy(22,21);read(fu.estadocivil); gotoxy(16,22);read(fu.email); gotoxy(18,23);read(fu.telefone); gotoxy(25,24);read(fu.dataa); gotoxy(08,06); textbackground(white); textcolor(black); write(' '); gotoxy(10,25); textbackground(white); textcolor(red); write('1 - Salvar 2 - Cancelar'); gotoxy(10,26); textbackground(white); textcolor(red); write('Digite a opção desejada [ ]'); gotoxy(35,26);read(opr); close(arquivo); if opr=1 then begin fu.status:='ATIVO'; assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then seek(arquivo, filesize(arquivo)); write(arquivo, fu); close(arquivo); end; if opr=2 then dec(mat); end else begin textcolor(red); gotoxy(10,26);write('Saindo...'); delay(1000); end; until (o=2); end; Procedure registroOpcao; begin FundoBranco; Bordas; gotoxy(17,06); textbackground(white); textcolor(black); write(' REGISTRO'); gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('TITULAR'); gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('DEPENDENTE'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' ); end; Procedure registroDependente; var x,y,r,op:integer; e:boolean; begin FundoBranco; Bordas; gotoxy(17,06); textbackground(white); textcolor(black); write(' REGISTRO'); gotoxy(08,09); textbackground(white); textcolor(black); write(' 1 - Novo 2 - Sair [ ] '); gotoxy(30,09);Read(r); case r of 2:begin; clrscr; registroOpcao; end; 1:begin gotoxy(08,10); textbackground(white); textcolor(black); write('Matrícula:_____________________');//Opções da tela gotoxy(18,10); read(mat); if func[mat].matricula=mat then begin de.matricula:=mat; gotoxy(08,11); textbackground(white); textcolor(green); write('Matricula Válida!'); gotoxy(10,30); textbackground(white); textcolor(red); write('Matricula em Nome de: ',func[mat].nome); gotoxy(10,31); textbackground(white); textcolor(red); write('Matricula No Cpf: ',func[mat].cpf); gotoxy(08,12); textbackground(white); textcolor(black); write('Nome: _________________________'); gotoxy(15,12); Read (de.nome); gotoxy(08,13); textbackground(white); textcolor(black); write('CPF: __________________________'); gotoxy(13,13); Read (de.cpf); gotoxy(10,25); textbackground(white); textcolor(red); write('1 - Salvar 2 - Cancelar'); gotoxy(10,26); textbackground(white); textcolor(red); write('Digite a opção desejada [ ]'); gotoxy(35,26); Read (op); case op of 1:begin dep[mat]:=de; Clrscr; gotoxy(08,12); Textbackground(white); textcolor(green); write('Registro Salvo com Sucesso!!'); tela; end; 2:begin Clrscr; gotoxy(08,12); Textbackground(white); textcolor(green); write('Operação Cancelada!!'); tela; end; end; end else begin gotoxy(08,11); textbackground(white); textcolor(red); write('Matricula Inválida!'); delay(750); registroDependente; end; end; end; end; Procedure alterarOpcao; begin FundoBranco; Bordas; gotoxy(17,06); textbackground(white); textcolor(black); write(' ALTERAR'); gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('TITULAR'); gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('DEPENDENTE'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' ); gotoxy(36,21); textbackground(white); textcolor(black); read(op); end; Procedure alterarBusca; begin FundoBranco; Bordas; gotoxy(17,06); textbackground(white); textcolor(black); write('BUSCA ALTERAR'); gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('MATRÍCULA'); gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('CPF'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' ); gotoxy(36,21); textbackground(white); textcolor(black); read(op); end; Procedure BuscaCPF; begin FundoBranco; Bordas; gotoxy(17,06); textbackground(white); textcolor(black); write('BUSCA POR CPF'); gotoxy(08,09); textbackground(white); textcolor(cyan); write('CPF: '); textcolor(black); write('__________________________'); gotoxy(13,21); textbackground(white); textcolor(red); write('DESEJA BUSCAR ?[S/N]: ' ); gotoxy(34,21); textbackground(white); textcolor(black); read(op); end; Procedure BuscaMatricula; var op:integer; e:boolean; busca:integer; begin FundoBranco; Bordas; e:=false; gotoxy(15,06); textbackground(white); textcolor(black); write('BUSCA POR MATRICULA'); gotoxy(08,09); textbackground(white); textcolor(cyan); write('MATRÍCULA: '); textcolor(black); write('____________________'); gotoxy(19,09); read(busca); assign(arquivo, 'C:\tete\armazem.dat'); {$I-} reset(arquivo); {$I+}; if ioresult <> 0 then begin writeln; write(' Nada encontrado no arquivo!'); delay(1000); end else begin seek(arquivo, 0); while not eof(arquivo) do begin read(arquivo, fu); if fu.matricula = busca then begin e:=true; gotoxy(08,10); textbackground(white); textcolor(cyan); write('Nome: '); gotoxy(14,10); textbackground(white); textcolor(black); write(fu.nome); gotoxy(08,11); textbackground(white); textcolor(cyan); write('CPF: '); gotoxy(13,11); textbackground(white); textcolor(black); write(fu.cpf); gotoxy(08,12); textbackground(white); textcolor(cyan); write('RG: '); gotoxy(12,12); textbackground(white); textcolor(black); write(fu.rg); gotoxy(08,13); textbackground(white); textcolor(cyan); write('Titulo: '); gotoxy(16,13); textbackground(white); textcolor(black); write(fu.titulo); gotoxy(08,14); textbackground(white); textcolor(cyan); write('CNH: '); gotoxy(12,14); textbackground(white); textcolor(black); write(fu.cnh); gotoxy(08,15); textbackground(white); textcolor(cyan); write('CEP: '); gotoxy(12,15); textbackground(white); textcolor(black); write(fu.cep); gotoxy(08,16); textbackground(white); textcolor(cyan); write('Endereço: '); gotoxy(17,16); textbackground(white); textcolor(black); write(fu.endereco); gotoxy(08,17); textbackground(white); textcolor(cyan); write('Bairro: '); gotoxy(15,17); textbackground(white); textcolor(black); write(fu.bairro); gotoxy(08,18); textbackground(white); textcolor(cyan); write('Cidade: '); gotoxy(15,18); textbackground(white); textcolor(black); write(fu.cidade); gotoxy(08,19); textbackground(white); textcolor(cyan); write('Pais: '); gotoxy(13,19); textbackground(white); textcolor(black); write(fu.pais); gotoxy(08,20); textbackground(white); textcolor(cyan); write('Sexo: '); gotoxy(13,20); textbackground(white); textcolor(black); write(fu.sexo); gotoxy(08,21); textbackground(white); textcolor(cyan); write('UF: '); gotoxy(11,21); textbackground(white); textcolor(black); write(fu.uf); gotoxy(08,22); textbackground(white); textcolor(cyan); write('Estado Civil: '); gotoxy(21,22); textbackground(white); textcolor(black); write(fu.estadocivil); gotoxy(08,23); textbackground(white); textcolor(cyan); write('Email: '); gotoxy(15,23); textbackground(white); textcolor(black); write(fu.Email); gotoxy(08,24); textbackground(white); textcolor(cyan); write('Telefone: '); gotoxy(17,24); textbackground(white); textcolor(black); write(fu.telefone); gotoxy(08,25); textbackground(white); textcolor(cyan); write('Data de Admissão: '); gotoxy(25,25); textbackground(white); textcolor(black); write(fu.dataa); gotoxy(08,26); textbackground(white); textcolor(cyan); write('Status: '); gotoxy(15,26); textbackground(white); textcolor(black); write(fu.status); gotoxy(08,27); textbackground(white); textcolor(black); write('1 - Consultar 2 - Sair [ ]'); gotoxy(32,27); read(op); end; end; end; case op of 1:BuscaMatricula; 2:begin close(arquivo); tela; end; end; end; Begin tela; repeat case op of 0:tela; 1:begin clrscr; registroOpcao; gotoxy(36,21); textbackground(white); textcolor(black); read(opc);; case opc of 1:begin registroTitular; cadastrar; end; 2:registroDependente; 3:begin clrscr; tela; end; end; end; 2:buscaMatricula; 5:begin imprimir; readkey; end; 7:begin clrscr; gotoxy(15,15); textcolor(red); textbackground(white); write('Digite a senha de destruição: '); gotoxy(44,15); read(opr); if opr=0206 then begin assign(arquivo, 'C:\tete\armazem.dat'); close(arquivo); erase(arquivo); gotoxy(15,17); write('Arquivo excluído'); delay(1000); tela; end else tela; end; end; until op=6; clrscr; gotoxy(15,15);write('Sistema finalizado com sucesso!'); delay(1000); End.

Boa noite, eu possuo um file linkado a meu codigo que armazena matriculas e etc. gostaria de saber como fazer meu file retornar a ultima matricula que foi cadastrada, para assim eu comandar que ele adicione +1 e faça a proxima matricula.

Então, eu estou fazendo um programa em pascal onde você cadastra um funcionario a uma database, e a esse funcionario consegue vincular dependentes. Quando você vai fazer um cadastro de dependente e digita a matricula do funcionario, aparece por exemplo: 15151(matricula do funcionário válida) Essa matricula pertence á: Nome: Cpf: Nessa parte do cpf, se o cpf cadastrardo for começado por 0, por exemplo 055, ele come o 0 e só imprimi 55. Program Pzim ; type funcionario = record matricula:integer; nome:string[50]; cpf:string; // Sem ponto e sem traços. rg:integer; titulo:integer; cnh:String; cep:integer; endereco:string; bairro:string; cidade:string; pais:string; sexo:char; uf:string[2]; estadocivil:string; email:string; telefone:integer; dataa:integer; datad:integer; status:string; end; type dependente = record nome:string; matricula:integer; cpf:integer; end; //criar uma constante pra limitar ou liberar o preenchimento de cada campo limitado. const maxli=2000; var op,opc,mat:integer; fu:funcionario; de:dependente; dep:array[1..maxli] of dependente; func:array[1..maxli] of funcionario; Procedure tela; begin textbackground(white); clrscr; gotoxy(05,05); textcolor(white); textbackground(white); write(' ' ); // Início do fundo branco gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' ); // Final do fundo branco gotoxy(05,05); textbackground(cyan ); write(' ··································· ' ); //Início das bordas gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(17,06); textbackground(white); textcolor(black); write(' TELA INICIAL');// Título da tela gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('REGISTRAR');//Opções da tela gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('CONSULTAR'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('ALTERAR' ); gotoxy(17,15); textbackground(white); textcolor(cyan); write('4 - '); textcolor(black); write('ARQUIVO MORTO'); gotoxy(17,17); textbackground(white); textcolor(cyan); write('5 - '); textcolor(black); write('IMPRIMIR' ); gotoxy(17,19); textbackground(white); textcolor(cyan); write('6 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' );//Interação com o usuário gotoxy(36,21); textbackground(white); textcolor(black); read(op); end; Procedure registroTitular; var cad,mat,opr:integer; begin textbackground(white); clrscr; gotoxy(05,05); textcolor(white); textbackground(white); write(' ' );// Início do fundo branco gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' );// Final do fundo branco gotoxy(05,05); textbackground(cyan ); write(' ··································· ' );//Início das bordas gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ·' ); gotoxy(40,24); textbackground(cyan ); write('· ' ); gotoxy(05,25); textbackground(cyan ); write(' ·' ); gotoxy(40,25); textbackground(cyan ); write('· ' ); gotoxy(05,26); textbackground(cyan ); write(' ·' ); gotoxy(40,26); textbackground(cyan ); write('· ' ); gotoxy(05,27); textbackground(cyan ); write(' ·' ); gotoxy(40,27); textbackground(cyan ); write('· ' ); gotoxy(05,28); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(08,06); textbackground(white); textcolor(black); write(' 1 - Novo 2- Sair [ ] ');// Título da tela gotoxy(08,08); textbackground(white); textcolor(black); write('Matrícula: ' );//Opções da tela gotoxy(08,09); textbackground(white); textcolor(black); write('Nome: _________________________'); gotoxy(08,10); textbackground(white); textcolor(black); write('CPF: __________________________'); gotoxy(08,11); textbackground(white); textcolor(black); write('RG: ___________________________'); gotoxy(08,12); textbackground(white); textcolor(black); write('Título: _______________________'); gotoxy(08,13); textbackground(white); textcolor(black); write('CNH: __________________________'); gotoxy(08,14); textbackground(white); textcolor(black); write('CEP: __________________________'); gotoxy(08,15); textbackground(white); textcolor(black); write('Endereço: _____________________'); gotoxy(08,16); textbackground(white); textcolor(black); write('Bairro: _______________________'); gotoxy(08,17); textbackground(white); textcolor(black); write('Cidade: _______________________'); gotoxy(08,18); textbackground(white); textcolor(black); write('País: _________________________'); gotoxy(08,19); textbackground(white); textcolor(black); write('Sexo: _________________________'); gotoxy(08,20); textbackground(white); textcolor(black); write('UF: ___________________________'); gotoxy(08,21); textbackground(white); textcolor(black); write('Estado Civil: _________________'); gotoxy(08,22); textbackground(white); textcolor(black); write('E-mail: _______________________'); gotoxy(08,23); textbackground(white); textcolor(black); write('Telefone: _____________________'); gotoxy(08,24); textbackground(white); textcolor(black); write('Data de admissão: _____________'); gotoxy(10,25); textbackground(white); textcolor(red); write(' '); gotoxy(10,26); textbackground(white); textcolor(red); write(' '); end; procedure cadastrar; var o,op,opr:integer; begin repeat registroTitular; gotoxy(31,06);read(o); if o=1 then begin inc(mat); gotoxy(18,08);write(mat); fu.matricula:=mat; gotoxy(14,09);read(fu.nome); gotoxy(14,10);read(fu.cpf); gotoxy(12,11);read(fu.rg); gotoxy(16,12);read(fu.titulo); gotoxy(13,13);read(fu.cnh); gotoxy(13,14);read(fu.cep); gotoxy(18,15);read(fu.endereco); gotoxy(16,16);read(fu.bairro); gotoxy(16,17);read(fu.cidade); gotoxy(14,18);read(fu.pais); gotoxy(14,19);read(fu.sexo); gotoxy(12,20);read(fu.uf); gotoxy(22,21);read(fu.estadocivil); gotoxy(16,22);read(fu.email); gotoxy(18,23);read(fu.telefone); gotoxy(25,24);read(fu.dataa); gotoxy(08,06); textbackground(white); textcolor(black); write(' '); gotoxy(10,25); textbackground(white); textcolor(red); write('1 - Salvar 2 - Cancelar'); gotoxy(10,26); textbackground(white); textcolor(red); write('Digite a opção desejada [ ]'); gotoxy(35,26);read(opr); if opr=1 then begin func[mat].status:='ATIVO'; func[mat]:=fu; end; if opr=2 then dec(mat); end else begin textcolor(red); gotoxy(27,32);write('Saindo...'); delay(1000); end; until (o=2); end; Procedure registroOpcao; begin textbackground(white); clrscr; gotoxy(05,05); textcolor(white); textbackground(white); write(' ' ); // Início do fundo branco gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' ); // Final do fundo branco gotoxy(05,05); textbackground(cyan ); write(' ··································· ' ); //Início das bordas gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(17,06); textbackground(white); textcolor(black); write(' REGISTRO');// Título da tela gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('TITULAR');//Opções da tela gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('DEPENDENTE'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' );//Interação com o usuário end; Procedure registroDependente; var x,y,r,op:integer; e:boolean; begin clrscr; textbackground(white); gotoxy(05,05); textcolor(white); textbackground(white); write(' ' );// Início do fundo branco gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' );// Final do fundo branco gotoxy(05,05); textbackground(cyan ); write(' ··································· ' );//Início das bordas gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ·' ); gotoxy(40,24); textbackground(cyan ); write('· ' ); gotoxy(05,25); textbackground(cyan ); write(' ·' ); gotoxy(40,25); textbackground(cyan ); write('· ' ); gotoxy(05,26); textbackground(cyan ); write(' ·' ); gotoxy(40,26); textbackground(cyan ); write('· ' ); gotoxy(05,27); textbackground(cyan ); write(' ·' ); gotoxy(40,27); textbackground(cyan ); write('· ' ); gotoxy(05,28); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(17,06); textbackground(white); textcolor(black); write(' REGISTRO'); // Título da tela gotoxy(08,09); textbackground(white); textcolor(black); write(' 1 - Novo 2 - Sair [ ] '); gotoxy(30,09);Read(r); case r of 2:begin; clrscr; registroOpcao; end; 1:begin gotoxy(08,10); textbackground(white); textcolor(black); write('Matrícula:_____________________');//Opções da tela gotoxy(18,10); read(mat); if func[mat].matricula=mat then begin de.matricula:=mat; gotoxy(08,11); textbackground(white); textcolor(green); write('Matricula Válida!'); gotoxy(10,30); textbackground(white); textcolor(red); write('Matricula em Nome de: ',func[mat].nome); gotoxy(10,31); textbackground(white); textcolor(red); write('Matricula No Cpf: ', func[mat].cpf); gotoxy(08,12); textbackground(white); textcolor(black); write('Nome: _________________________'); gotoxy(14,12); Read (de.nome); gotoxy(08,13); textbackground(white); textcolor(black); write('CPF: __________________________'); gotoxy(13,13); Read (de.cpf); gotoxy(10,25); textbackground(white); textcolor(red); write('1 - Salvar 2 - Cancelar'); gotoxy(10,26); textbackground(white); textcolor(red); write('Digite a opção desejada [ ]'); gotoxy(35,26); Read (op); case op of 1:begin dep[mat]:=de; Clrscr; gotoxy(08,12); Textbackground(white); textcolor(green); write('Registro Salvo com Sucesso!!'); tela; end; 2:begin Clrscr; gotoxy(08,12); Textbackground(white); textcolor(green); write('Operação Cancelada!!'); tela; end; end; end else begin gotoxy(08,11); textbackground(white); textcolor(red); write('Matricula Inválida!'); delay(1000); registroDependente; end; end; end; end; Procedure alterarOpcao; begin textbackground(white); clrscr; gotoxy(05,05); textcolor(white); textbackground(white); write(' ' ); // Início do fundo branco gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' ); // Final do fundo branco gotoxy(05,05); textbackground(cyan ); write(' ··································· ' ); //Início das bordas gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(17,06); textbackground(white); textcolor(black); write(' ALTERAR');// Título da tela gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('TITULAR');//Opções da tela gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('DEPENDENTE'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' );//Interação com o usuário gotoxy(36,21); textbackground(white); textcolor(black); read(op); end; Procedure alterarBusca; begin textbackground(white); clrscr; gotoxy(05,05); textcolor(white); textbackground(white); write(' ' ); // Início do fundo branco gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' ); // Final do fundo branco gotoxy(05,05); textbackground(cyan ); write(' ··································· ' ); //Início das bordas gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(17,06); textbackground(white); textcolor(black); write('BUSCA ALTERAR');// Título da tela gotoxy(17,09); textbackground(white); textcolor(cyan); write('1 - '); textcolor(black); write('MATRÍCULA');//Opções da tela gotoxy(17,11); textbackground(white); textcolor(cyan); write('2 - '); textcolor(black); write('CPF'); gotoxy(17,13); textbackground(white); textcolor(cyan); write('3 - '); textcolor(black); write('SAIR' ); gotoxy(11,21); textbackground(white); textcolor(red); write('DIGITE A OPÇÃO DESEJADA [ ]' );//Interação com o usuário gotoxy(36,21); textbackground(white); textcolor(black); read(op); end; Procedure BuscaCPF; begin textbackground(white); clrscr; gotoxy(05,05); textcolor(white); textbackground(white); write(' ' ); // Início do fundo branco gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' ); // Final do fundo branco gotoxy(05,05); textbackground(cyan ); write(' ··································· ' ); //Início das bordas gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(17,06); textbackground(white); textcolor(black); write('BUSCA POR CPF');// Título da tela gotoxy(08,09); textbackground(white); textcolor(cyan); write('CPF: '); textcolor(black); write('__________________________');//Opções da tela gotoxy(13,21); textbackground(white); textcolor(red); write('DESEJA BUSCAR ?[S/N]: ' );//Interação com o usuário gotoxy(34,21); textbackground(white); textcolor(black); read(op); end; Procedure BuscaMatricula; begin textbackground(white); clrscr; gotoxy(05,05); textcolor(white); textbackground(white); write(' ' ); // Início do fundo branco gotoxy(05,06); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,07); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,08); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,09); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,10); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,11); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,12); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,13); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,14); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,15); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,16); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,17); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,18); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,19); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,20); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,21); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,22); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,23); textcolor(white); textbackground(white); write(' ' ); gotoxy(05,24); textcolor(white); textbackground(white); write(' ' ); // Final do fundo branco gotoxy(05,05); textbackground(cyan ); write(' ··································· ' ); //Início das bordas gotoxy(05,06); textbackground(cyan ); write(' ·' ); gotoxy(40,06); textbackground(cyan ); write('· ' ); gotoxy(05,07); textbackground(cyan ); write(' ··································· ' ); gotoxy(05,08); textbackground(cyan ); write(' ·' ); gotoxy(40,08); textbackground(cyan ); write('· ' ); gotoxy(05,09); textbackground(cyan ); write(' ·' ); gotoxy(40,09); textbackground(cyan ); write('· ' ); gotoxy(05,10); textbackground(cyan ); write(' ·' ); gotoxy(40,10); textbackground(cyan ); write('· ' ); gotoxy(05,11); textbackground(cyan ); write(' ·' ); gotoxy(40,11); textbackground(cyan ); write('· ' ); gotoxy(05,12); textbackground(cyan ); write(' ·' ); gotoxy(40,12); textbackground(cyan ); write('· ' ); gotoxy(05,13); textbackground(cyan ); write(' ·' ); gotoxy(40,13); textbackground(cyan ); write('· ' ); gotoxy(05,14); textbackground(cyan ); write(' ·' ); gotoxy(40,14); textbackground(cyan ); write('· ' ); gotoxy(05,15); textbackground(cyan ); write(' ·' ); gotoxy(40,15); textbackground(cyan ); write('· ' ); gotoxy(05,16); textbackground(cyan ); write(' ·' ); gotoxy(40,16); textbackground(cyan ); write('· ' ); gotoxy(05,17); textbackground(cyan ); write(' ·' ); gotoxy(40,17); textbackground(cyan ); write('· ' ); gotoxy(05,18); textbackground(cyan ); write(' ·' ); gotoxy(40,18); textbackground(cyan ); write('· ' ); gotoxy(05,19); textbackground(cyan ); write(' ·' ); gotoxy(40,19); textbackground(cyan ); write('· ' ); gotoxy(05,20); textbackground(cyan ); write(' ·' ); gotoxy(40,20); textbackground(cyan ); write('· ' ); gotoxy(05,21); textbackground(cyan ); write(' ·' ); gotoxy(40,21); textbackground(cyan ); write('· ' ); gotoxy(05,22); textbackground(cyan ); write(' ·' ); gotoxy(40,22); textbackground(cyan ); write('· ' ); gotoxy(05,23); textbackground(cyan ); write(' ·' ); gotoxy(40,23); textbackground(cyan ); write('· ' ); gotoxy(05,24); textbackground(cyan ); write(' ··································· ' );//Final das bordas gotoxy(15,06); textbackground(white); textcolor(black); write('BUSCA POR MATRICULA');// Título da tela gotoxy(08,09); textbackground(white); textcolor(cyan); write('MATRÍCULA: '); textcolor(black); write('____________________');//Opções da tela gotoxy(13,21); textbackground(white); textcolor(red); write('DESEJA BUSCAR ?[S/N]: ' );//Interação com o usuário gotoxy(34,21); textbackground(white); textcolor(black); read(op); end; Begin tela; repeat case op of 1:begin clrscr; registroOpcao; gotoxy(36,21); textbackground(white); textcolor(black); read(opc);; case opc of 1:begin registroTitular; cadastrar; end; 2: registroDependente; 3:begin clrscr; tela; end; end; end; end; until op=6; clrscr; gotoxy(15,15);write('Sistema finalizado com sucesso!'); delay(1000); End.

Agradeço muito!

Apesar de você ter mandado o seu, ainda não funciona direito. A pergunta se deseja continuar só ta aceitando N como resposta. adicionado 1 minuto depois @devair1010 Agora sim funciona, porém ele aceita qualquer tecla que não seja S, e além disso ele não limpa a frase digitada anteriormente, só faz por cima. Necessário que ele resete o valor de P e CONT. adicionado 12 minutos depois Ainda não consegui resolverr aqui, consegue dar uma ajuda?

@devair1010 Não entendi muito bem, apesar de que esse código que você passou a opção de fazer outra consulta não funcionou muito bem, to iniciando em pascal.