Показать результат FPC - PullRequest
Новая
       55

Показать результат FPC

0 голосов
/ 04 мая 2020

Привет, я использую FP C, и когда код заканчивается без сбоев, он не показывает мне конечный результат, который мне нужен. Ниже приведен код: 

Program prueba1;
uses Estructu;
Var Pila1:Pila; Fila1,Completa:Fila;
Begin
    Inicfila(Completa, '');
    readpila(Pila1);
    readfila(Fila1);
    While (not pilavacia(Pila1) and not filavacia(Fila1)) do
    begin
        if (tope(Pila1) > primero(Fila1)) then
        begin
            agregar(Completa, desapilar(Pila1))
        end
        else
        if (tope(Pila1) < primero(Fila1)) then
            begin
                agregar(Completa, extraer(Fila1))
            end
            else 
            if (tope(Pila1) = primero(Fila1)) then
                begin
                    agregar(Completa, desapilar(Pila1));
                    agregar(Completa, extraer(Fila1))
                end
    end;
    writeln('La variable Completa esta compuesta de:');
    writefila(Completa)
End.

Кроме того, мне нужно, чтобы значения, введенные в Pila1 и Fila1, были отсортированы от минимального до максимального значения в Completa, что, как я знаю, не выполняется, но я не выполняю не знаю, как это сделать без использования Aux, которого я пытаюсь избежать.

...