Mayor a menor con 1 pila y 2 filas
Publicado por KATalyzt (1 intervención) el 03/05/2020 23:45:56
Buenas, tengo que pedir al usuario que ingrese valores (Cantidad de valores y valor indeterminado) primero en una Pila y luego en una Fila y lograr ordenar todos los elementos de mayor a menor en la fila "Completa" sin hacer uso de auxiliares adicionales (Se hace uso de "estructu" estructura para poder usar los comandos de filas y pilas)
Al poner 9 5 3, 7 6 2 para la pila y la fila respectivamente, me devuelve exactamente lo mismo, nada se modifica. Como podría ser la lógica de esto? (Muy novato en programación, con suerte se lo básico, je)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses estructu;
Var P1:PILA;F1,Completa:FILA;
BEGIN
ReadPila(P1);
ReadFila(F1);
InicFila(Completa,'');
while (not PilaVacia(P1) and FilaVacia(F1)) do
Begin
If (Primero(F1)>=Tope(P1)) then
Agregar(Completa,extraer(F1))
else
Agregar(Completa,desapilar(P1));
End;
WritePila(P1);
WriteFila(F1);
WriteFila(Completa);
readln();
END.Al poner 9 5 3, 7 6 2 para la pila y la fila respectivamente, me devuelve exactamente lo mismo, nada se modifica. Como podría ser la lógica de esto? (Muy novato en programación, con suerte se lo básico, je)
Valora esta pregunta
0
