Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
fabao1966

fila dinamica,ajuda

Recommended Posts

Oi pessoal, estou com um programa em fila dinamica rodando legal, porém queria incluir mais uma variavel do tipo string e nãp consigo, gostaria de uma ajuda, por favor me ajudem com essa missão impossivel segue o codigo:

program fila;

uses crt;

type

apontador = ^celula;

celula = record

item:integer;

prox:apontador;

end;

tipofila=record

frente:apontador;

tras:apontador;

end;

procedure iniciafila(var fila:tipofila);

var

aux:apontador;

begin

new (aux);

fila.frente:=aux;

fila.tras:=fila.frente;

fila.tras^.prox :=nil;

end;

function vazia(fila:tipofila):boolean;

begin

vazia:=fila.frente = fila.tras;

end;

procedure inserir(x:integer;var fila:tipofila);

var aux:apontador;

begin

new (aux);

fila.tras^.prox:=aux;

aux^.prox := nil;

aux^.item :=x;

fila.tras := aux;

end;

procedure imprimir(fila:tipofila);

var aux:apontador;

begin

aux := fila.frente^.prox;

while ( aux <> nil ) do begin

writeln(aux^.item);

aux:=aux^.prox;

end;

end;

procedure retirar(var x:integer; var fila:tipofila);

var

aux:apontador;

begin

aux:=fila.frente^.prox;

x:=aux^.item;

fila.frente^.prox := aux^.prox;

if (fila.frente^.prox = nil ) then fila.tras := fila.frente;

dispose(aux);

end;

procedure media(l:tipofila; var media:real);

var

aux:apontador;

b:integer;

begin

aux:=l.frente;

media:=0;

b:=0;

while aux^.prox <> nil do begin

aux:=aux^.prox;

media:=media+aux^.item;

b:=b+1;

end;

media:=media/b;

end;

procedure quantidade(l:tipofila; var qtde:integer);

var

aux:apontador;

b:integer;

begin

aux:=l.frente;

while aux^.prox <> nil do begin

aux:=aux^.prox;

qtde:=qtde+1;

end;

end;

////////////////////// { Programa principal }

var

elem:integer;

f:tipofila;

qtde:integer;

opc:CHAR;

n:integer;

soma:integer;

m:real;

begin

iniciafila(f);

repeat

writeln('[1]..INSERIR [2]..EXCLUIR [3]..LISTAR [4]..MEDIA [5]..TAMANHO [6]..SAIR');

opc:= READKEY;

case opc of

'1' :begin

writeln('Entre com o elemento a ser inserido');

readln(elem);

inserir(elem,f);

delay(2000);

clrscr;

end;

'2' :begin

if vazia(f) then writeln('A fila est vazia, impossivel retirar elemento !')

else begin

retirar(elem,f);

writeln('O elemento', elem , 'foi removido da fila');

delay(2000);

clrscr;

end;

end;

'3':begin

writeln('Elementos do fila');

imprimir(f);

delay(2000);

clrscr;

end;

'4' :begin

media(f,m);

writeln('A media ‚ ',m:3:2);

delay(2000);

clrscr;

end;

'5' :begin

quantidade(f,qtde);

writeln('A quantidade de elementos ‚:', qtde );

delay(2000);

clrscr;

end;

'6': begin

writeln('Saindo do programa, obrigado');

delay(2000);

end;

end;

until opc>='6';

end.

me ajudem

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

Entre para seguir isso  





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

×