Turbo Pascal [KOLORY]


(Meteo17) #1

Witam jak napisac program że np

Wybierz jakiego kolory ma być tekst

textcolor(red);

wrirte('ten tekst zostanie napisany na czerwono');


dostepne kolory:

00h black (czarny),

01h blue (niebieski),

02h green (zielony),

03h cyan (turkus),

04h red (czerwony),

05h magenta (karmazynowy),

06h brown (brązowy),

07h lightgray (jasnoszary),

08h darkgray (ciemnoszary),

09h lightblue (jasnoniebieski),

0ah lightgreen (jasnozielony),

0bh lightcyan (jasny turkus),

0ch lightred (jasnoczerwony),

0dh lightmagenta (jasnokarmazynowy),

0eh yellow (żółty),

0fh white (biały - standartowy).

Tu są kolory chodzi mi o to że mam jakiś tekst i wybrac na jaki kolor ma się zmienić, jak coś takiego zrobić?


(Mycek6) #2

JAK JUŻ

muszisz do każdego z kolorów, nadpisąć cyferkę albo literkę np:


(Meteo17) #3

Chodzi mi o to że jak mam tekst napisany jakiś

writeln('Ala ma kota')

I że moge obok tego wybrać numer kolory na jaki ma być ten tekst.

‘1’ black (czarny)

‘2’ blue (niebieski)

‘3’ green (zielony)

‘4’ cyan (turkus)

‘5’ red (czerwony) 

‘6’ magenta (karmazynowy) 

‘7’ brown (brązowy) 

‘8’ lightgray (jasnoszary) 

‘9’ darkgray (ciemnoszary) 

‘10’ lightblue (jasnoniebieski) 

‘11’ lightgreen (jasnozielony) 

‘12’ lightcyan (jasny turkus)

‘13’ lightred (jasnoczerwony) 

‘14’ lightmagenta (jasnokarmazynowy)

‘15’ yellow (żółty)

‘16’ white (biały - standartowy)

Tu mam kolory ale jak daler zadeklarować zmienne nie wiem.

program kolorki;

usec crt;





begin;

clrscr;

writeln('Ala ma kota');


readln;

end.

nie wiem pomożesz mi jak to zroibnć czy dać read(cyfra koloru) czy jakoś w textcolor?


(Mycek6) #4

Zmień cyferki na literki.

Żeby ci literki działały.

I powinno hulać.


(buker) #5

może coś takiego


(Meteo17) #6

dziękuje o właśnie o to mi choidziło a słuchaj masz moze jakąś stronke swoją czy coś gdzie znajde łatwe proste programy w pascalu bym mógł się pouczyć jakieś proste. Będę wdzięczny szukałem w sieci ale są skomplikowane takie


(Mycek6) #7

Tu masz trochę o PASCALU :

Tu masz kurs TURBO PASCALA :

A tu kilka stron z programami :


(Sumikd) #8

jeśli dobrze zrozumiałem to to wystarczy


(Ryan) #9

buker: sugeruję zmienić tab[a] na tab[((a - 1) mod 16) + 1] - uniknie się problemów z indeksowaniem.