Libreria de pilas y colas
Publicado por Francisco Mezquiriz (5 intervenciones) el 17/09/2009 23:14:46
Buenas tardes a todos, queria consultarles si existe alguna manera ( alguna libreria ) de trabajar pilas y colas con el Turbo Pascal 7.0.
La idea seria poder compilar programas como el siguiente:
{ leer una sucesion de nombres de personas, que finaliza con la_web_del_programador, el cual debe procesarse, e imprimirlos en orden inverso }
program Ej5_13;
type str40= string [40];
pila= stack_str40;
var
nombre:str40;
p:pila;
resultado: boolean;
begin
st_create(p);
repeat
write('Ingrese un nombre: ');
read(nombre);
st_push(p,nombre);
until (nombre= 'la_web_del_programador');
end;
while (st_empty(p)=false) do
begin
st_pop(p,nombre);
write(nombre);
end;
end.
Saludos Desde Ayacucho, pcia de Bs.As.
La idea seria poder compilar programas como el siguiente:
{ leer una sucesion de nombres de personas, que finaliza con la_web_del_programador, el cual debe procesarse, e imprimirlos en orden inverso }
program Ej5_13;
type str40= string [40];
pila= stack_str40;
var
nombre:str40;
p:pila;
resultado: boolean;
begin
st_create(p);
repeat
write('Ingrese un nombre: ');
read(nombre);
st_push(p,nombre);
until (nombre= 'la_web_del_programador');
end;
while (st_empty(p)=false) do
begin
st_pop(p,nombre);
write(nombre);
end;
end.
Saludos Desde Ayacucho, pcia de Bs.As.
Valora esta pregunta


0