65 (218)

ClrScr;

foi I 0 to 15 do begin

TextColor (I);

Writeln (Tekst); end;

Readln; end.

W tym programie kolory nazywamy liczbami (ponieważ czynimy to w pętli). Gdybyśmy chcieli określić jeden, konkretny, moglibyśmy posłużyć się stałymi.

Czyż nie wygląda to pięknie?

Kolory tekstu i tła

Napisz program, który wyczyści zawartość ekranu i wyświetli nam tekst „as" we wszystkich predefiniowanych kolorach na wszystkich możliwych ttach.

Użyjemy dodatkowo procedury określającej kolor tła (TextBackground) oraz stałej Blink odpowiedzialnej za migotanie wypisywanego tekstu. Aby uzyskać efekt, należy wypisywać tekst w zagnieżdżonej potrójnej pętli. Jedna będzie odpowiedzialna za migotanie tekstu, druga za zmianę koloru tła, trzecia — znaków.

program cw4_12;

{    Program    wyświetla tekst 'as'    we    wszystkich    }

{    predefiniowanych kolorach    na    wszystkich    możliwych }

{    tłach.    }

{    Katalog    r4_03 : 4_12.pas    }

uses

Crt;

var

Tekst : String;

I, 1, B : Byte;

begin

ClrScr;

for B 0 to 1 do begin

for I 0 to 7 do begin

TextBackground(I); for 1    0 to 15 do

begin

TextColor (]+B*Blink);

_Write ('as ');

_end;

_Writeln;

_end;

end;

Readln; end.

Pętla określająca kolor tła zmienia swoją wartość jedynie w zakresie 0. .7. Dla kolejnych liczb kolory się powtarzają. Niestety efektu migotania nie zobaczymy, gdy uruchomimy program w okienku Windows, efekt powstaje dopiero przy pełnoekranowym wyświetlaniu.