Algoritmia - Que tipo de lenguaje es?

   
Vista:

Que tipo de lenguaje es?

Publicado por Natali (1 intervención) el 15/11/2013 04:15:55
hola necesitaria saber que tipo de lenguaje esta este codigo, ya que tengo que pasarlo a C y no tengo la menor idea!, desde ya muchas gracias.


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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
{mode objfpc}{H+}
	uses
	{IFDEF UNIX}{IFDEF UseCThreads}
cthreads
	{ENDIF}{ENDIF}
	Classes
	{ you can add units after this };
	{R *.res}
 
 
type
	Cadena=string[30];
Ldoble=^Nodo; {Lista doble para los alumnos}
Nodo=record
	nombre:Cadena;
sig:Ldoble;
ant:Ldoble;
end;
 
Lsimple=^nodo2; {Lista simple para los equipos}
nodo2=Record
	chico:Cadena;
sig:Lsimple;
end;
 
Var
	x:integer;
num:integer;
ldc:Ldoble;
le1:Lsimple;
le2:Lsimple;
Procedure AgregarNodo(nom:Cadena; var ldc:Ldoble);
var
	nue:Ldoble;
begin
	new(nue);
nue^.nombre:=nom;
if (ldc=nil) then
	begin
	ldc:=nue;
nue^.sig:=nue;
nue^.ant:=nue;
end
else
	begin
	ldc^.ant^.sig:=nue;
nue^.ant:=ldc^.ant;
nue^.sig:=ldc;
ldc^.ant:=nue;
end;
end;
Procedure CrearListaDobleCircular(var ldc:Ldoble);
var
	nom:Cadena;
begin
	writeln('Ingrese el primer participante.');
readln(nom);
While (nom<>'xxx') do
	begin
	AgregarNodo(nom,ldc);
writeln('Ingrese otro participante, para dejar de ingresar introduzca xxx.');
readln(nom);
end;
end;
procedure QuitarAlumno (var ldc:Ldoble);
Var
	Eliminado:Ldoble;
Begin
	Eliminado:=ldc;
if (ldc^.sig=ldc) then begin
	dispose(ldc);
ldc:=nil;
end
else begin
	ldc^.ant^.sig:=ldc^.sig;
ldc^.sig^.ant:=ldc^.ant;
ldc:=ldc^.sig;
dispose (Eliminado);
end;
end;
procedure Crearequipo (var le:Lsimple; nom:Cadena);
var
	nue:Lsimple;
begin
	new (nue);
nue^.chico:=nom;
nue^.sig:=nil;
if (le=nil) then
	begin
	le:=nue;
end
else
	begin
	nue^.sig:=le;
le:=nue;
end;
end;
Procedure DarEquipo (ldc:Ldoble;var le1,le2:Lsimple);
var
	i,num:integer;
Begin
	While (ldc<>nil) do begin
	For i:=1 to (random(6)+1)do
	begin
	ldc:=ldc^.sig;
end;
Crearequipo (le1, ldc^.nombre);
QuitarAlumno (ldc);
If (ldc<>nil) then begin
	For i:=1 to (random(6)+1) do
	ldc:= ldc^.ant;
Crearequipo (le2,ldc^.nombre);
QuitarAlumno (ldc);
End;
End;
end;
Begin
	ldc:=nil;
le1:=nil;
le2:=nil;
CrearListaDobleCircular (ldc);
DarEquipo (ldc,le1,le2);
{Esto es para probar que imprime y si funciona nada mas}
while (le1<>nil) do
	begin
	writeln (le1^.chico,' estos son del equipo 1');
le1:=le1^.sig;
end;
while (le2<>nil) do
	begin writeln (le2^.chico,' estos son del equipo 2');
le2:=le2^.sig;
end;
writeln('ingrese un numero para dar por finalizado el programa');
readln(x);
{Hasta aca}
END.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Que tipo de lenguaje es?

Publicado por Pico (3 intervenciones) el 04/02/2014 19:19:15
Tipo pascal.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar