• Viernes 29 de Marzo de 2024, 10:52

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - calamarderio

Páginas: [1]
1
Pascal / Esta Bien=?
« 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=?

2
Pascal / Juego El Burro
« en: Jueves 5 de Julio de 2007, 20:12 »
Bueno necesito hacer un procedimiento que barajee las cartas de el juegpo pòpilar del burro jej
las cartas se almacenan en una matriz de cadenas donde las filas son losN jugadores 10 maximo y en las columnas almacenamos los palos de la baraja española (oros,bastos,.)
bueno el procedimiento barajar se simula cambiando las cartas de columnas es decir cambiarse las cartas entre los jugadores;
Ej: J1  as de oros               RANDOM=1;  j1 sota de copas  
       J2   tres de bastos                               j2:as de oros                
     J3    sota de copas                                j3 tres de bastos
   y luego se deberian agrupar contiguamente las k fuesen iguales ...
bueno yo he intentado codificar el problema de la siguiente manera sin buen resultado
GRACIAS
la carta del ultimo jugador la almazeno en una variable auxiliar de tipo String y mas tarde desde la posicion anterior a esta ultima carta hasta la carta del primer jugador las desplazo una posicion hacia abajo,con lo que la posicion de arriba la tendriamos libre y pondriamos nuestra variable auxiliar.
este procedimiento lo repeteriamos tantas veces como el numero random;
pues a ver si me podeis exar una manilla si se os ocurre otra cosa por k esto no se si no lo codifico bien o la cago en algun sitio GRACIAS

Páginas: [1]