Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

problem z turbo pascal textcolor

24 Jan 2006 14:39 8686 7
  • Level 10  
    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ę
  • Level 17  
    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).
  • Level 10  
    a w które miejsce to wpisać ,bo nie wiem?
  • User removed account  
  • Level 10  
    wpisuje przed tekstem i mi pokazuje błąd i kursor mruga na textcolor.
  • Level 29  
    dopisz na początku programu, pod linijką PROGRAM nazwa_programu:

    Uses CRT;
  • Level 42  
    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.
  • Level 13  
    Ź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 :D