• Miércoles 18 de Septiembre de 2019, 05:39

Autor Tema:  Esta Bien=?  (Leído 663 veces)

calamarderio

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Esta Bien=?
« en: Viernes 6 de Julio de 2007, 18:12 »
0
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=?

sullivan_street_214

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Esta Bien=?
« Respuesta #1 en: Miércoles 11 de Julio de 2007, 05:04 »
0
podrias decir bien, que haces en tu codigo, asi te podemos ayudar.-

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Esta Bien=?
« Respuesta #2 en: Miércoles 11 de Julio de 2007, 21:32 »
0
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: