Pascal/Turbo Pascal - esta bien??

 
Vista:

esta bien??

Publicado por caro (3 intervenciones) el 06/06/2008 16:04:44
Necesito saber si esta solcuion esta bien o mal..

program ejemplo;
uses Colas, Crt; {Suponer que se dispone de una unit que maneja una cola de enteros}
var colaN:tipo_cola;
elem:integer;
begin
writeln ('Ingrese un elemento: ');
readln(elem);
while elem <> 0 do
begin
q_push(colaN,elem);
writeln ('Ingrese un elemento: ');
readln(elem);
end;
writeln('Los elementos de la cola son: ');
q_pop(colaN,elem);
while not q_empty(colaN) do
begin
q_pop(colaN,elem);
writeln (elem);
end;
readkey;
end.



grax!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder