RE:¿como muevo aleatoriamenteun caracter en unamat
{ Espero que esto sea lo que buscas, lo tenia hecho para otra cosa, ojalá te sirva }
uses crt;
type
Tmatriz=Array[1..24,1..80] of char;
var
Matriz:Tmatriz;
Tecla:char;
I,J:Integer;
procedure InicializarMatriz(var A:Tmatriz);
var
I,J:Integer;
begin
for i:=1 to 24 do
for j:=1 to 80 do
A[i,j]:=#32;
end;
procedure MostrarMatriz(A:Tmatriz);
var
I,J:Integer;
begin
for i:=1 to 24 do
for j:=1 to 80 do
begin
gotoxy(j,i);
Write(A[i,j]);
end;
end;
function SiguientePos(Limite:Integer):Integer;
begin
SiguientePos:=Random(Limite)+1;
end;
procedure MoverCar(var A:Tmatriz; var I,J:Integer);
begin
A[I,J]:=#32;
I:=SiguientePos(24);
J:=SiguientePos(80);
A[I,J]:=#65;
end;
begin
Randomize;
InicializarMatriz(Matriz);
I:=SiguientePos(24);
J:=SiguientePos(80);
repeat
MoverCar(Matriz,I,J);
MostrarMatriz(Matriz);
Tecla:=Readkey;
until Tecla=#27;
end.