Ir ao conteúdo
  • Cadastre-se
gabrielblackdog

Exer. de DP da facul. - (Criar uma Agenda)

Recommended Posts

Atividade

Faça um programa em pascal que contemple as funções de uma agenda telefônica com os campos: Nome, Idade, Endereço, Complemento, Cidade, UF, CEP, E-mail, Telefone e Celular.

Utilize os conceitos de lista dinâmica para a implementação desta agenda, com os seguintes procedimentos:

- Inicializar agenda;

- Inserir

- Consultar

- Alterar

- Excluir

- Mostrar a maior idade

- Mostrar a menor idade

- Mostrar a média das idades

E as seguintes funções:

- Número de pessoas cadastradas;

- Maior idade.

- Menor idade.

- Média das idades.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Como ja diriamos na comunidade Delphi Brasil:

Respondemos perguntas, mas não fazemos exercicios completos.

Se você faz algum curso relacionado é porque quer, portanto NO MINIMO tente aprender e fazer uma parte por sua conta, e se tiver duvidas pergunte..

Não estou querendo ser chato, mas ter tudo na mão é muito fácil..

(Acredite, é pro seu bem, quando os exercicios ficarem mais complicados você vai ter uma grande problema)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu também estarei a disposição para ajudar...

Olha, nem foi colocado o que se quer... só tem um enunciado: "Atividade"... (???)

Poste aqui o código do que você conseguiu fazer e exponha suas dúvidas, que tentaremos te ajudar...

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

program lista_dinamica;

uses crt;

type

PAge = ^TAgenda;

TAgenda = record

nome : string;

idade : string;

endereco : string;

complemento : string;

cidade : string;

UF : string;

CEP : string;

Email : string;

telefone : string;

celular : string;

Prox : PAge;

end;

var

Agenda : PAge;

op : integer;

nome, idade, endereco, complemento, cidade, UF, CEP, Email, telefone, celular : string;

procedure inicializa (var A : PAge);

begin

A:=NIL;

end;

procedure insere_inicio (var A : PAge ; n, i, e, co, ci, u, c, em, t, ce : string);

var

p : PAge;

begin

new(p);

p^.nome:=n;

p^.idade:=i;

p^.endereco:=e;

p^.complemento:=co;

p^.cidade:=ci;

p^.UF:=u;

p^.CEP:=c;

p^.Email:=em;

p^.telefone:=t;

p^.celular:=ce;

p^.prox:=A;

A:=p;

end;

procedure imprime (A : PAge);

var

aux : PAge;

begin

clrscr;

aux:=A;

while aux <> NIL do

begin

writeln(aux^.nome);

writeln(aux^.idade);

writeln(aux^.endereco);

writeln(aux^.complemento);

writeln(aux^.cidade);

writeln(aux^.UF);

writeln(aux^.CEP);

writeln(aux^.Email);

writeln(aux^.telefone);

writeln(aux^.celular);

writeln;writeln;

aux:=aux^.prox;

end;

writeln('Digite qualquer tecla para continuar...');

readkey;

end;

procedure remove_inicio (var A : PAge);

var

aux : PAge;

begin

if a<>nil then

begin

aux := a;

a:=a^.prox;

dispose(aux);

end

else

begin

writeln('Imposs¡vel remover - AGENDA VAZIA');

writeln('Pressione qualquer tecla para continuar...');

end;

end;

begin

inicializa(agenda);

repeat

clrscr;

writeln('* * * * M E N U * * * *');

writeln;writeln;writeln;

writeln('1 - Inicializa');

writeln('2 - Inserir');

writeln('3 - Imprime');

writeln('4 - SAIR');

writeln;writeln;writeln;

write('Digite a sua op‡Æo -> ');

readln(op);

case op of

1 : inicializa(agenda);

2 : begin

writeln;writeln;writeln;

write('Nome: ');

readln(nome);

write('Idade:');

readln(idade);

write('Endere‡o:');

readln(endereco);

write('Complemento:');

readln(complemento);

write('Cidade:');

readln(cidade);

write('UF:');

readln(uf);

write('CEP:');

readln(cep);

write('E-mail:');

readln(email);

write('Telefone:');

readln(telefone);

write('Celular:');

readln(celular);

insere_inicio(agenda,nome,idade,endereco,complemento,cidade,uf,cep,email,telefone,celular);

end;

4 : imprime (agenda);

5 : remove_inicio (agenda);

end;

until (op=9);

end.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×