Pascal a Java - Duda de variables y tipos de datos
Publicado por xSnei (1 intervención) el 29/10/2012 15:43:48
Tengo el siguiente codigo y necesito pasarlo a Java:
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.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
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.
Valora esta pregunta


0