Pascal/Turbo Pascal - ¿como muevo aleatoriamenteun caracter en unamatri

 
Vista:

¿como muevo aleatoriamenteun caracter en unamatri

Publicado por Christian Chacana G. (5 intervenciones) el 12/06/2002 19:26:31
Necesito saber como almaceno un caracter en una matriz o arreglo bidimensional y hacer que se mueva aleatoriamente mediante random, dentro de una matriz.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¿como muevo aleatoriamenteun caracter en unamat

Publicado por Randall (37 intervenciones) el 12/06/2002 23:16:45
para letras del alfabeto llenaria un array con las 28 letras y luego le asignaria a la matriz el contenido de una posicion aleatoria
Ej:

matriz [1,2]:= array [random(28)];

saludos.

Randall
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿como muevo aleatoriamenteun caracter en unamat

Publicado por Diego Romero (786 intervenciones) el 13/06/2002 03:40:47
{ 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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar