medo da noite Postado Abril 14, 2010 Denunciar Share Postado Abril 14, 2010 Pessoal tenho que resolver um problema e não to conseguindo.tenho que criar uma agenda Cadastrar um novo registroLocalizar pelo nome (parcial)localizar pelo telefonelistar todos os registrosairRegistro=Recordtypecliente=recordcodigo=integer;nome=string;telefone=string;endereço;end;varaluno:clientebeginwrite('digite um código');readln(aluno.codigo);write('digite um nome');readln(aluno.nome);write('digite o telefone')readln(aluno.telefone);write('digite o endereço')readln(aluno.endereço);readkeywrite('codigo:',aluno.codigo);write('nome:',aluno.nome);write('telefone:',aluno.telefone);write('endereço:',aluno.endereço);readkeyme ajude ai pessoal o resto eu não sei.obrigado. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Douglas Soares Postado Abril 14, 2010 Denunciar Share Postado Abril 14, 2010 Olha esse exemplo de agenda com fontes...http://www.planetadelphi.com.br/delphi/exe...os/00002973.zipou dê uma olhada nesse tópico...http://scriptbrasil.com.br/forum/index.php...1&hl=agendaou faça uma pesquisa no fórum...http://scriptbrasil.com.br/forum/index.php...highlite=agendaAbraços@off tópic......você tem medo de escuro? :blink: Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 medo da noite Postado Maio 17, 2010 Autor Denunciar Share Postado Maio 17, 2010 Olha esse exemplo de agenda com fontes...http://www.planetadelphi.com.br/delphi/exe...os/00002973.zipou dê uma olhada nesse tópico...http://scriptbrasil.com.br/forum/index.php...1&hl=agendaou faça uma pesquisa no fórum...http://scriptbrasil.com.br/forum/index.php...highlite=agendaAbraços@off tópic......você tem medo de escuro? :blink:não tenho medo de escuro :) valeu pela resposta Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
medo da noite
Pessoal tenho que resolver um problema e não to conseguindo.
tenho que criar uma agenda
Cadastrar um novo registro
Localizar pelo nome (parcial)
localizar pelo telefone
listar todos os registro
sair
Registro=Record
type
cliente=record
codigo=integer;
nome=string;
telefone=string;
endereço;
end;
var
aluno:cliente
begin
write('digite um código');readln(aluno.codigo);
write('digite um nome');readln(aluno.nome);
write('digite o telefone')readln(aluno.telefone);
write('digite o endereço')readln(aluno.endereço);
readkey
write('codigo:',aluno.codigo);
write('nome:',aluno.nome);
write('telefone:',aluno.telefone);
write('endereço:',aluno.endereço);
readkey
me ajude ai pessoal o resto eu não sei.
obrigado.
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.