Código:
He leido un poco sobre Pascal y su estructura, ya mas o menos como funciona. Pero al momento de pasarlo a Java no hallo muy bien como usar las variables del principio (tCola, tinfo, tPos, ^tNodo, record.... ) y la constante.UNIT TDA_cola; INTERFACE const nulo = nil; type tinfo = char; tPos = ^tNodo; tNodo = record Info: tinfo; sig: tPos ; end; tCola = record Ini, Fin: tPos; end; procedure Cola_Vacia (var Cola: tCola); function Es_cola_vacia (Cola: tCola): boolean; procedure Meter_Cola (x:tinfo; var Cola: tCola ); procedure Sacar_Cola (var x: tinfo; var Cola: tCola); IMPLEMENTATION Procedure Cola_Vacía (var Cola: tCola); begin with Cola do begin Ini:=nulo; Fin:=nulo; end end; function Es_cola_vacia (Cola: tCola): boolean; begin Es_cola_vacia:= Cola.Ini = nulo; end; procedure Crear_nodo (x: tinfo; var nuevo: tPos ); {Precond: se supone memoria suficiente para crear la variable} begin new(nuevo); nuevo ^.info:=x; nuevo ^.sig:=nulo; end; procedure Meter_Cola (x:tinfo; var Cola: tCola ); var nuevo: tPos ; begin Crear_nodo (x, nuevo); with Cola do begin if Es_vacia(Cola) then Ini:= nuevo else Fin^.sig:= nuevo; Fin:= nuevo; end end; procedure Sacar_Cola (var x:tInfo; var Cola: tCola ); var auxt: tPos begin with Cola do begin x:= Ini^.info; aux:= Ini; Ini:=Ini^.sig; If Ini:=nulo then Fin:=nulo; {si la cola se queda vacia la inicializo} dispose(aux); end end; end.
Espero me puedan ayudar.