problem z turbo pascal textcolor

Question

problem z turbo pascal textcolor

Krupek455 24 Jan 2006 14:39 8686 7

#1 24 Jan 2006 14:39

Krupek455 Krupek455

Level 10

#1 24 Jan 2006 14:39

witam mam problem z dołożeniem koloru do testu z pytaniami tj.odpowiedz dobra np.kolor niebieski , a na odpowiedz złą np.czerwony, a nie mam pojęcia jak to zrobić.
Oto przykładowy test , prosze o podpowiedz ,gdzie i co mam wstawić w tym przykładowym teście:

program testwiedzy;
const
pyt=1;
dobrze:byte=0;
test:array[1...pyt] of record
pyt:string[100];
a,b,c:string[100];
odp:char
end=
((pyt:'1) Ile nóg ma stonoga?';
a:'250';b:'100';c:'400';
odp: 'b'));

i tak dalej

[30.03.2021, darmowy webinar] Nowoczesna diagnostyka maszyn, monitorowanie i przewidywanie awarii. Zarejestruj się

spros · Answer 1 · 2006-01-24T16:46:14+01:00

np to proste.
jak chcesz napisac cos na niebiesko to robisz:

textcolor(blue);
wrirte('ten tekst zostanie napisany na niebiesko');

a na czerwono to:

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).

Krupek455 · Answer 2 · 2006-01-24T18:57:28+01:00

#3 24 Jan 2006 18:57

Krupek455 Krupek455

Level 10

#3 24 Jan 2006 18:57

a w które miejsce to wpisać ,bo nie wiem?

User removed account · Answer 3 · 2006-01-24T22:05:36+01:00

#4 24 Jan 2006 22:05

User removed account User removed account

User removed account

#4 24 Jan 2006 22:05

Przed tekstem, ktory ma byc wyswietrlony na dany kolor

Krupek455 · Answer 4 · 2006-01-26T10:35:13+01:00

wpisuje przed tekstem i mi pokazuje błąd i kursor mruga na textcolor.

lelekx · Answer 5 · 2006-01-26T11:40:24+01:00

dopisz na początku programu, pod linijką PROGRAM nazwa_programu:

Uses CRT;

elektryk · Answer 6 · 2006-01-26T19:23:31+01:00

Krupek455 wrote:
wpisuje przed tekstem i mi pokazuje błąd i kursor mruga na textcolor.

Wrzuć cały kod programu, jeśli kursor zmienia kolor to znaczy że wyświetlasz napis przed zmianą koloru.

Jaro15l_90r · Answer 7 · 2006-01-26T22:29:52+01:00

Źródło przykładowe zmiany koloru wyświetlanego tekstu:

Code:

Program Kolory;

uses Crt;



begin

Writeln('Ten tekst powinien się wyświetlić w standardowym kolorze.');

TextColor(red); { Zmiana koloru tekstu na czerwony }

Writeln('A ten tekst powinien się wyświetlić na czerwono');

TextColor(black);TextBackGround(white); { Zmiana koloru tekstu i tła pod tekstem }

Writeln('A ten tekst powinien się wyświetlić w kolorze czarnym na białym tle.');

Readln; { Oczekiwanie na naciśnięce entera }

end.

Tylko nie zapomnij na koniec programu zmienić spowrotem na standardowy kolor tekstu i tła, bo jeżeli działasz pod DOSem, to wszystkie komunikaty i polecenia poza programem również będą wyświetlane w tym kolorze