Pascal/Turbo Pascal - URGENTEE

   
Vista:

URGENTEE

Publicado por PABLO REYNA (1 intervención) el 09/06/2008 22:50:53
Porgramadores necesito su opinion o correcion sobre este programita.

Escriba un programa que lea una sucesión de números enteros, que finaliza con 0 e imprima, para cada número, sus dígitos en orden y en orden inverso. Ejemplo: si se leen los números 253 62 0 debe imprimir
2 5 3
3 5 2
6 2
2 6

program tres;
uses colas,pilas, crt;
type
rango=0..9;
var
p:tptr_nodo_pila;
c:tipo_cola;
num,num1:integer;

procedure orden(var p:tptr_nodo_pila;var num1:integer);
var
dig:rango;
begin
writeln('ingrese un numero: ');
readln(num1);
while(num1<>0)do
dig:=num1 mod 10;
st_push(p,num1);
num1:=num1 div 10;
writeln('ingrese un numero: ');
readln(num1);
end;

procedure orden_Inverso(var c:tipo_cola; var num:integer);
begin
while(st_empty (p))and(num<>0)do
begin
st_pop(p,num);
q_push(c,num);
end;
end;

begin
st_create(p);
q_create(c);
orden(p,num);
orden_Inverso(c,num);
writeln(num1,'el numero en orden es: ');
writeln(num,'el numero en orden inverso es: ');
readkey;
end.




MUCHAS GRACIAS!!
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