cadastro

Boa noite pessoal, hoje irei postar um programinha um pouco mais avançado do que os outros que já postei. Ele faz o cadastro de no Maximo 10 pessoas, onde isso pode ser alterado, e depois que cadastrar você pode estar procurando esses cadastros, alterando-os, excluindo e algumas outras opções, espero que gostem.

Program Dados_pessoais ;
var
i:integer; //quantas pessoa cadastradas
nome:array[1..10]of string;
idade:array[1..10]of integer;
sexo:array[1..10]of char;
op:char;
n:string;
Begin

for i:=1 to 10 do
nome[i]:=”;

repeat
clrscr;
writeln(‘1-Cadastrar’);
writeln(‘2-Localizar’);
writeln(‘3-Listar’);
writeln(‘4-Alterar’);
writeln(‘5-Excluir’);
writeln(‘6-Finalizar’);
op:=readkey;

case op of
‘1’: begin
clrscr;
for i:=1 to 10 do
begin
if nome[i]=” then
begin
writeln(‘Cadastro’);
writeln(‘Nome’);
readln(nome[i]);
nome[i]:=upcase(nome[i]);
writeln(‘idade:’);
readln(idade[i]);
writeln(‘sexo:’);
readln(sexo[i]);
sexo[i]:=upcase(sexo[i]);
writeln(‘Pressione C para confirmar o cadastro’);
op:=upcase(readkey);
if op’C’ then
nome[i]:=”;
break;
end;
end;
if i>10 then
writeln(‘Cadastro lotado…’);
end;

‘2’:begin
clrscr;
writeln(‘Localizar’);
writeln(‘Entre com o nome:’);
readln(n);
n:=upcase(n);
for i:=1 to 10 do
begin
if n=nome[i] then
begin
writeln(”);
writeln(‘Nome =’,nome[i]);
writeln(‘Idade =’,idade[i]);
writeln(‘Sexo =’,sexo[i]);
break;
end;
end;

if i>10 then
writeln(‘Nome não encontrado’);

readkey;
end;
‘3’:begin
clrscr;
writeln(‘Listagem’);
for i:=1 to 10 do
begin
if nome[i]” then
begin
writeln(‘nome:’,nome[i]);
writeln(‘Idade:’,idade[i]);
writeln(‘Sexo:’,sexo[i]);
writeln(”);
writeln(”);
end;
end;
readkey;
end;
‘4’:begin
clrscr;
writeln(‘Alterar’);
writeln(‘Entre com o nome:’);
readln(n);
n:=upcase(n);
for i:=1 to 10 do
begin
if n=nome[i] then
begin
writeln(‘nome:’,nome[i]);
writeln(‘Digite o novo nome:’);
readln(nome[i]);
nome[i]:=upcase(nome[i]);
writeln(‘Idade:’,idade[i]);
writeln(‘Digite a nova idade’);
readln(idade[i]);
writeln(‘Sexo:’,sexo[i]);
writeln(‘Digite o novo sexo’);
sexo[i]:=upcase(readkey);
break;
end;
end;
end;

‘5’:begin
clrscr;
writeln(‘Excluir’);
writeln(‘Entre com o nome:’);
readln(n);
n:=upcase(n);
for i:=1 to 10 do
begin
if n=nome[i] then
begin
writeln(‘nome:’,nome[i]);
writeln(‘Idade:’,idade[i]);
writeln(‘Sexo:’,sexo[i]);
writeln(”);
writeln(”);
writeln(‘Pressione C para confirmar a exclusão’);
op:=upcase(readkey);
if op=’C’ then
nome[i]:=”;//
break;
end;
end;
end;

end;
until op=’6′;

End.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s

%d bloggers like this: