Turbo Pascal [KOLORY]

[Mati17 (Meteo17)]

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]

wrirte(‘ten tekst zostanie napisany na czerwono’);

JAK JUŻ

writeln(‘ten tekst zostanie napisany na czerwono’);

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

‘b’ :writeln(’ ten tekst zostanie napisany na czarno (black); ‘bl’ :writeln(’ ten tekst zostanie napisany na niebiesko (blue);

[Mati17 (Meteo17)]

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]

Zmień cyferki na literki.

var znak:char;

Żeby ci literki działały.

textcolor(literka koloru);

I powinno hulać.

[buker]

program kolor; uses crt; var a:byte; tab: array[1…16] of byte; begin tab[1]:=black; tab[2]:=blue; tab[3]:=green; tab[4]:=cyan; tab[5]:=red; tab[6]:=magenta; tab[7]:=brown; tab[8]:=lightgray; tab[9]:=darkgray; tab[10]:=lightblue; tab[11]:=lightgreen; tab[12]:=lightcyan; tab[13]:=lightred; tab[14]:=lightmagenta; tab[15]:=yellow; tab[16]:=white; writeln(‘podaj numer koloru’); readln(a); textcolor(tab[a]); writeln(‘twoj kolor tekstu’); readkey; end.

może coś takiego

[Mati17 (Meteo17)]

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]

Tu masz trochę o PASCALU :

http://pl.wikipedia.org/wiki/Pascal_(język_programowania)

Tu masz kurs TURBO PASCALA :

http://turbopascal.skryptoteka.pl/8.html

A tu kilka stron z programami :

http://odpowiedz.pl/47864/47864/Przydat … scala.html http://forum.pclab.pl/t205243.html http://forum.pclab.pl/index.php?showtopic=120443

[sumik (Sumikd)]

jeśli dobrze zrozumiałem to to wystarczy

program kolory; uses crt; var k:byte; begin clrscr; writeln(‘wybierz kolor’); writeln(‘1 black (czarny)’); writeln(‘2 blue (niebieski)’); readln(k); case k of 1 : textcolor(black); 2 : textcolor(blue); // i tak dalej end; writeln(‘to jest tekst’); repeat until keypressed end.

[Ryan]

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