Hola!!! muchas gracias por responder....necesito hacer un memotest de 24 o 20 pares por lo menos. Si el número es menor también puede ser. Ésto es lo que tengo hasta ahora. Si me pudiras decir como terminarlo..mandar el procedimiento te lo agradecería. Me falta la parte para que "se den vuelta" o se vean los números, letras o lo que tuvieran las tarjetas y si son iguales que desaparzcan o se queden dadas vueltas, y si no lo son que vuelvan a darse vuelta..algo asi...( con función if o algo por el estilo). (creería que eso es lo que falta :s)
Muchas gracias de nuevo...
si me pudieras contestar cuento antes....muchas gracias..
EN LAS PARTES DONDE APARECE "ÉÍÍÍÍ»" ES LA PARTE DE ARRIBA DE UN CUADRADO QUE SERÍAN LAS TARJETAS.
program memotest;
uses crt;
var
y,x:integer;
matriz: array[1..10,1..10] of integer;
max: integer;
begin
writeln('Cu ntos quiere hacer');
readln(max);
for x:=1 to max do
for y:=1 to max do
matriz[x,y]:=0;
clrscr;
for y:= 1 to max do
begin
for x:= 1 to max do
write('ÉÍÍÍÍ»');
writeln;
for x:= 1 to max do
write('º º');
writeln;
for x:= 1 to max do
write('ÈÍÍÍͼ');
writeln;
end;
//sorteo
for cont:=1 to max * max div 2 do
begin
repeat
x:=random(max)+1;
y:=random(max)+1;
until (matriz[x,y]<>0);
matriz[x,y]:=cont;
repeat
x:=random(max)+1;
y:=random(max)+1;
until (matriz[x,y]<>0);
matriz[x,y]:=cont;
end;
readkey;
end.
