Pascal/Turbo Pascal - Protector de Pantalla - Actividad con Arreglos (Pascal)

 
Vista:

Protector de Pantalla - Actividad con Arreglos (Pascal)

Publicado por Julian Salvucci (3 intervenciones) el 15/07/2017 02:06:40
Muy buenas, necesito ayuda en esta actividad para mi universidad:

La actividad consiste en hacer un protector de pantalla a base de arreglos uni y bidimensionales.

"Se pretende que en la pantalla, una vez que el programa comience a ejecutarse, sobre un fondo oscuro se
"iluminen" puntos en colores. Se puede trabajar con un arreglo uni ó bidimensional, de forma tal que el
programa rescate las coordenadas (fila y columna) y pueda colocar en la pantalla el punto a iluminar.
El proceso debe ser iterativo hasta que el usuario presiona una tecla cualquiera.
Pueden eligir el motivo del protector (usando la tabla de código ASCII)."

No se me ocurre bien como hacerlo, si me podrían ayudar les agradecería muchísimo,
Saludos
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

Protector de Pantalla - Actividad con Arreglos (Pascal)

Publicado por David (224 intervenciones) el 15/07/2017 13:34:21
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses CRT;
 
var
  panta:array[1..80,1..24] of char;
  i,j:integer;
 
begin
  CLRSCR;
  repeat
    textcolor(random(15));
    I:=RANDOM(80)+1;
    J:=RANDOM(24)+1;
    panta[i,j]:='*';
  gotoxy(i,j);
    write(panta[i,j]);
  until keypressed;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Ramiro

Protector de Pantalla - Actividad con Arreglos (Pascal)

Publicado por Ramiro (1 intervención) el 25/07/2017 04:06:12
Que modificación se haría para que, tarde un segundo en cambiar de color y posición ? . Y se le podria agregar , que cuando se mueva el mouse el protector salga tambien ?
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