Foros del Web » Programación para mayores de 30 ;) » Programación General »

Pascal a Java - Duda de variables y tipos de datos

Estas en el tema de Pascal a Java - Duda de variables y tipos de datos en el foro de Programación General en Foros del Web. Tengo el siguiente codigo y necesito pasarlo a Java: Código: UNIT TDA_cola; INTERFACE const nulo = nil; type tinfo = char; tPos = ^tNodo; tNodo ...
  #1 (permalink)  
Antiguo 28/10/2012, 19:09
 
Fecha de Ingreso: octubre-2012
Mensajes: 1
Antigüedad: 11 años, 5 meses
Puntos: 0
Pascal a Java - Duda de variables y tipos de datos

Tengo el siguiente codigo y necesito pasarlo a Java:

Código:
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.
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.

Espero me puedan ayudar.

Etiquetas: java, pascal, variables, tipo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:38.