🚀 go-pugleaf

Saludos listeros,
Luego de realizar un programita a modo de ejemplo en pascal con
freepascal y compilarlo con la opcion -g  al depurarlo con el DDD solo
me permite ejecutarlo mediante run pero no me permite realizar next o
step o sea no se introduce en funciones y procedimientos solo ejecuta el
programa,el programita es el siguiente pero no creo que sea la causa del
problema,�no?.

program pilas;

{ En este programa utlizaremos solo UNA pila como estructura. }

const

{ Declaracion de la constante maxpila o sea cantidad maxima de elementos    }
{ que puede almacenar la pila.                                              }

maxpila=5;

type

{ Especificacion del tipo de dato pila como registro,formado por los campos }
{ elem (arreglo de enteros),y,cima(tipo de dato enumerado).                 }

pila=record

elem:array[1..maxpila] of integer;
cima:0..maxpila

end; {Fin pila}

var

p:pila;
x:integer;


procedure pcrear(var p:pila);

begin

 { Al crear la pila lo que hacemos es asignar a la variable cima de la pila }
 { el valor cero. }

     p.cima:=0;
end;

function pllena (p:pila):boolean;

begin

     { La funcion pllena es verdadera si p.cima es igual a maxpila.}

     pllena:=p.cima=maxpila

end;

procedure pponer (var p:pila;x:integer);

begin

      p.cima:=p.cima+1;

      p.elem[p.cima]:=x

end;


begin
     pcrear(p);

     writeln ('Ingrese un valor entero a la pila');
     readln (x);

     while not pllena (p) do
          begin
	       pponer (p,x);
	       writeln ('Ingrese un valor entero a la pila');
	       readln  (x)
	  end;

	       if pllena (p) then

		  writeln ('No hay mas espacio en la pila');
end.


-- 
Juan Ortiz
Powered by Debian GNU/Linux Sid