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

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

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

Przed tekstem, ktory ma byc wyswietrlony na dany kolor

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

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

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

REKLAMA

Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Jak użyć textcolor w Turbo Pascal do zmiany koloru odpowiedzi?

Krupek455 24 Sty 2006 14:39 8881 7

REKLAMA

Zgłoś naruszenie prawa

| Nowy temat

#1 2213808 24 Sty 2006 14:39

Krupek455 Krupek455

Poziom 10

Posty: 49

Ocena: 6
Autor tematu

Post #1
2213808 24 Sty 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
Arrow MultiSolution Day Warsaw 2026 – bezpłatna konferencja elektroniki i automatyki już 16 czerwca [sponsorowany]

REKLAMA
#2 2214232 24 Sty 2006 16:46

spros spros

Poziom 17

Posty: 186

Pomógł: 16

Ocena: 26
Pomocny post? (0)

Post #2
2214232 24 Sty 2006 16:46

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).
REKLAMA
#3 2214748 24 Sty 2006 18:57

Krupek455 Krupek455

Poziom 10

Posty: 49

Ocena: 6
Autor tematu Pomocny post? (0)

Post #3
2214748 24 Sty 2006 18:57

a w które miejsce to wpisać ,bo nie wiem?
REKLAMA
#4 2215534 24 Sty 2006 22:05

Konto nie istnieje Konto nie istnieje

Konto nie istnieje

Post #4
2215534 24 Sty 2006 22:05

Przed tekstem, ktory ma byc wyswietrlony na dany kolor
#5 2220602 26 Sty 2006 10:35

Krupek455 Krupek455

Poziom 10

Posty: 49

Ocena: 6
Autor tematu Pomocny post? (0)

Post #5
2220602 26 Sty 2006 10:35

wpisuje przed tekstem i mi pokazuje błąd i kursor mruga na textcolor.
REKLAMA
#6 2220774 26 Sty 2006 11:40

lelekx lelekx

Poziom 30

Posty: 1220

Pomógł: 158

Ocena: 90
Pomocny post? (0)

Post #6
2220774 26 Sty 2006 11:40

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

Uses CRT;
#7 2222645 26 Sty 2006 19:23

elektryk elektryk

Poziom 42

Posty: 11029

Pomógł: 439

Ocena: 240
Pomocny post? (0)

Post #7
2222645 26 Sty 2006 19:23

Krupek455 napisał:
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.

#8 2223540 26 Sty 2006 22:29

Jaro15l_90r Jaro15l_90r

Poziom 13

Posty: 84

Pomógł: 4

Post #8

2223540 26 Sty 2006 22:29

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

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

Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

| Nowy temat

Zgłoś naruszenie prawa

Podsumowanie tematu

✨ Dyskusja dotyczy użycia funkcji TextColor w Turbo Pascalu do zmiany koloru tekstu wyświetlanego w programie, np. na niebieski dla poprawnych odpowiedzi i czerwony dla błędnych. Aby użyć TextColor, należy dołączyć moduł CRT w sekcji uses programu. Funkcję TextColor(color) wywołuje się bezpośrednio przed poleceniem wyświetlającym tekst (np. Write lub Writeln), aby zmienić kolor tekstu. Dostępne kolory to m.in. blue, red, black, green, cyan, magenta, brown, lightgray, darkgray, lightblue, lightgreen, lightcyan, lightred, lightmagenta, yellow, white. Po zakończeniu programu warto przywrócić domyślny kolor tekstu i tła, aby nie wpływać na dalsze komunikaty w środowisku DOS. Przykładowy kod pokazuje użycie TextColor(red) przed Writeln, a następnie przywrócenie koloru czarnego i tła białego. Problem z błędem i migającym kursorem przy wywołaniu TextColor wynikał z braku dołączenia modułu CRT.
Wygenerowane przez model językowy.

REKLAMA