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

   
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

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

Publicado por David (145 intervenciones) el 19/04/2015 22:58:12
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

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

Publicado por ramon (2072 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

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

Publicado por David (145 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar