SoloCodigo
Programación General => Pascal => Mensaje iniciado por: calamarderio en Viernes 6 de Julio de 2007, 18:12
-
procedure Repartir ( ordenadas:mazito; N:integer);
type
aux=array[1..2] of string;
var
i,j,aleat:integer;
auxiliar1:aux;
aux2:string;
begin
Randomize;
for j:=1 to 4 do
for i:=1 to N do
begin
aleat:=Random(N)+1;
aux2:=ordenadas[i,j];
ordenadas[i,j]:=ordenadas[aleat,j];
ordenadas[aleat,j]:=aux2;
end;
end;
aasi estaria bien un procedimiento k me intercambiase contenido de las columnas=?
-
podrias decir bien, que haces en tu codigo, asi te podemos ayudar.-
-
Por que preguntas? No te funciona? Si funciona es porque está bien. Solo tienes que correrlo y te daras cuenta si funciona. No veo para que la pregunta.
Tampoco dijiste que es lo que quierías hacer.
Creo que no se puede usar la seccion TYPE dentro de un procedimiento.
Comenta que quieres lograr y que es lo que falla por favor. :hola: