Lista

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Lista

Mensagem  Admin em Seg Mar 09, 2009 6:04 am

Como fazer uma lista?
esta lista armazenará infinitos nomes até o usuário não querer continuar

program lista;
type
apont:^reg;
reg=record
nome: string[10];
prox:apont;
end;
var
inicio,anda,paux:apont;
opcao:char;
begin
inicio:=nil;
anda:=nil;
repeat
if inicio=nil
then begin
new(inicio);
writeln('Digite o nome');
readln(inicio^.nome);
inicio^.prox:=nil;
paux:=inicio;
end
else begin
new(anda);
writeln('Digite o nome');
readln(anda^.nome);
anda^.prox:=nil;
paux^.prox:=anda;
paux:=anda;
end;
writeln('Deseja continuar? <s/n>');
readln(opcao);
until opcao='n';
end.

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum