jonybravo jonybravo  • 31.12.13 11:29

Pascal manual programacao Empty Pascal manual programacao 31.12.13 11:29

Eu nao to consegui faxer um exercicio vejo se conseguei pf

3.Substituir {..1..} pelas instruções necessárias para que o procedimento inserir funcione.
Essa é pergunta pf me ajudei :)

Program Fila;
Type TipoNo = Record
  nome : String [15];
  prox : ^TipoNo;
End;
var Px, Frente, cauda:^TipoNo;
Procedure inserir;
Begin
 new (Px);
 Write ('Escreva o nome a inserir na fila:');
 {..1..}
End;

Procedure Remover;
Begin
  If Frente = nil then write ('Fila vazia!')
  else begin   {..2..}
end;

Procedure Percorrer;
begin
  Px := Frente;
  IF Pt = nil then write ('Fila vazia')
  else begin   {..3..}
End;
  {..4..}
Permissões neste sub-fórum
Não podes responder a tópicos

BH Servers

Recomendamos a BH Servers com proteção DDOS gratuita em Cloud Server de alta performance. Entrega imediata.