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..}
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..}