Pascal/Turbo Pascal - Programa que imprima 40 colores de fondo de pantalla y color de texto

Programa que imprima 40 colores de fondo de pantalla y color de texto

Publicado por deivid (9 intervenciones) el 19/04/2015 21:25:55

necesito ayuda con este programa
el programa tiene que imprimir 40 colores de fondo de pantalla y color de texto, por cada vuelta debe mostrar distintos colores

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Programa que imprima 40 colores de fondo de pantalla y color de texto

Publicado por David (224 intervenciones) el 19/04/2015 22:58:12

Te propongo la siguiente solución:

Uses CRT;

var

  i :integer;

Begin

 for i:=1 to 40 do

  begin

  Textcolor(random(40));

  textbackground(random(40));

  clrscr;

  writeln('Pulsa una tecla para continuar');

  readkey;

  end;

end.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Programa que imprima 40 colores de fondo de pantalla y color de texto

Publicado por ramon (2158 intervenciones) el 20/04/2015 00:26:23

Solamente aclarar que solo dispones de 0 a 15 colores para textcolor y 0 a 7 para textbackground en modo texto no
tiene mas.

Valora esta respuesta

Comentar

Programa que imprima 40 colores de fondo de pantalla y color de texto

Publicado por David (224 intervenciones) el 20/04/2015 12:48:02

Cierto, se me pasó ese detalle. En modo texto sólo tienes 16 colores.

Valora esta respuesta

Comentar

encontrar el mayor, el menor y el mediano de una lista

IF THE ELSE