RE:necesito un ejemplo de cola en pascal
solo necesito acompletar esto solo son opciones 7 y 8
program lista;
const
max=5;
var
x, indice,opc:integer;
cadena:array[1..max] of integer;
procedure despliegaCad;
begin
for x:=1 to max do
writeln('posicionï,x,'=',cadena[x]);
writeln;
readln
end;
procedure llenaCad;
begin
for x:=1 to max do
begin
write('dame el valor para la posicion ',x,':');
readln(cadena[x])
end;
writeln;
indice:=max
end;
procedure despliegapila;
begin
writeln('pila');
for x:=indice downto 1 do
write(cadena[x],'-');
readln;
end;
procedure despliegacola;
begin
writeln('colas');
for x:=1 to indice do
write(cadena[x],'-');
readln;
end;
procedure insertapila;
begin
if indice=max then
writeln(lo siento pila llena no se puede insertar..')
else
begin
inc(indice);
writeln('escribe el elemento a insertar en la pila:');
readln(cadena[indice]);
writeln('ok elemento en la posicion',indice);
end;
readln;
end;
procedure suprimepila;
begin
if indice=0 then
writeln('lo siento pila vacia no se puede eliminar...ï)
else
begin
writeln ('ok elemento' , cadena[indice],'eliminado');
cadena[indice]:=0;
dec(indice);
end;
readln;
end;
begin
repeat
writeln;
writeln;
writeln('L I S T A');
writeln;
writeln('1.- llenado de lista');
writeln('2.- despliega lista');
writeln( P I L A S');
writeln('3.- despliega pila');
writeln('4.- insertar en pilas');
writeln('5.- suprime en colas');
writeln(' C O L A S');
writeln('6.- despliega colas');
writeln('7.- inserta en colas');
writeln('8.- suprime en colas');
writeln('9.- fin..');
procedure insertacolas;
begin
if indice=max then
writeln(lo siento llena no se puede insertar..')
else
begin
inc(indice);
writeln('escribe el elemento a insertar en la cola:');
readln(cadena[indice]);
writeln('ok elemento en la posicion',indice);
end;
readln;
end;
procedure suprimecolas;
begin
if indice=0 then
writeln('lo siento vacia no se puede eliminar...ï)
else
begin
writeln ('ok elemento' , cadena[indice],'eliminado');
cadena[indice]:=0;
dec(indice);
end;
readln;
end;
writeln(opc);
case opc of
1.- llenaCad;
2.- despliegaCad;
3.- despliegapila;
4.- insertapila;
5.- suprimepila;
6.- despliegacola;
7.- insertacolas;
8.- suprimecolas;
9.- fin;
end;
until opc=9;
writeln
end.