Модульное программирование в Турбо Паскале. Бакланов М.В - 25 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

- 25 -
TextBackGround(Color: byte);
fh`gh mklZgZ\eb\Zlv jZaebqgu_ p\_lZ wdjZgZ beb l_dklh\h]h hdgZ >himklbfu_
agZq_gbyi_j_f_gghc Colordhe_[exlk yhl 0q_jgucp\_l^h 7[_eucp\_l
>eymklZgh\e_gbyp\ _lh\kbf\heh\kem`blijhp_^mjZ
TextColor (Color: byte);
]^_ agZq_gb_ p\_lZ baf_gy_lky hl 0 ^h 15, Z f_jpZgb_ kbf\heh\ mklZgZ\eb\Z_lky
agZq_gb_f 128.
< fh^me_ CRT fh`gh mklZgZ\ eb\Zlv p\_lZ nhgZ b p\_lZ kbf\heh\ b k
ihfhsvxfg_fhgbq_kdbodhgkl Zgl
LZ[ebpZ2DhgklZglup\_lZfh^meyCRT
GZbf_gh\Zgb_
dhgklZglu
AgZq_gb_
dhgklZglu
P\_l/ nmgdpby
BLACK
0 Q_jguc
BLUE
1 L_fgh-kbgbc
GREEN
2 L_fgh-a_e_guc
CYAN
3 ;bjxah\uc
RED
4 DjZkguc
MAGENTA
5 Nbhe_lh\uc
BROWN
6 Dhjbqg_\uc
LIGHTGRAY
7 K\_leh-k_juc
DARKGRAY
8 L_fgh-k_juc
LIGHTBLUE
9 =hem[hc
LIGHTGREEN
10 KZeZlh\uc
LIGHTCYAN
11 K\_leh-[bjxah\uc
LIGHTRED
12 Jhah\uc
LIGHTMAGENTA
13 FZebgh\uc
YELLOW
14 @_eluc
WHITE
15 ;_euc
BLINK
128 F_jpZgb_kbf\heZ
Ijhp_^mjZ TextBackGround mklZgZ\eb\Z_l p\_l Z ClrScr hqbsZ_l wdjZg beb
l_dklh\h_ hdgh b aZdjZrb\Z_l _]h lj_[m _fuf p\_lhf Dmjkhj ijb wlhf
i_j_f_sZ_lky\e_\uc\_jogbcm]heIhmfheqZgbxp\_lwdjZgZq_jguc
GZijbf_j ^ey lh]h qlh[u ihke_^h\Zl_evgh aZdjZrb\Zlv wdjZg \h \k_ p\_lZ
iZebljugm`ghhj]Zgbah\Zlvke_^mxsbcpbde
FOR i:= 15 DO
BEGIN
TEXTBACKGROUND(I); CLRSCR
END;
?keb \u ohlbl_ mklZgh\blv l_dklh\h_ hdgh b aZdjZrb\Zlv _]h \ jZaebqgu_
                                          - 25 -
            TextBackGround(Color: byte);
fh`gh mklZgZ\eb\Zlv jZaebqgu_ p\_lZ wdjZgZ beb l_dklh\h]h hdgZ >himklbfu_
agZq_gbyi_j_f_gghc Colordhe_[exlkyhl 0 q_jgucp\_l ^h 7 [_eucp\_l 
     >eymklZgh\e_gbyp\_lh\kbf\heh\kem`blijhp_^mjZ
            TextColor (Color: byte);
]^_ agZq_gb_ p\_lZ baf_gy_lky hl 0 ^h 15, Z f_jpZgb_ kbf\heh\ mklZgZ\eb\Z_lky
agZq_gb_f 128.
       < fh^me_ CRT fh`gh mklZgZ\eb\Zlv p\_lZ nhgZ b p\_lZ kbf\heh\ b k
ihfhsvxfg_fhgbq_kdbodhgklZgl

      LZ[ebpZ2DhgklZglup\_lZfh^meyCRT
        GZbf_gh\Zgb_         AgZq_gb_
                                             P\_l/ nmgdpby
         dhgklZglu          dhgklZglu
     BLACK                       0       Q_jguc
     BLUE                        1       L_fgh-kbgbc
     GREEN                       2       L_fgh-a_e_guc
     CYAN                        3       ;bjxah\uc
     RED                         4       DjZkguc
     MAGENTA                     5       Nbhe_lh\uc
     BROWN                       6       Dhjbqg_\uc
     LIGHTGRAY                   7       K\_leh-k_juc
     DARKGRAY                    8       L_fgh-k_juc
     LIGHTBLUE                   9       =hem[hc
     LIGHTGREEN                 10       KZeZlh\uc
     LIGHTCYAN                  11       K\_leh-[bjxah\uc
     LIGHTRED                   12       Jhah\uc
     LIGHTMAGENTA               13       FZebgh\uc
     YELLOW                     14       @_eluc
     WHITE                      15       ;_euc
     BLINK                     128       F_jpZgb_kbf\heZ

      Ijhp_^mjZ TextBackGround mklZgZ\eb\Z_l p\_l Z ClrScr hqbsZ_l wdjZg beb
l_dklh\h_ hdgh b aZdjZrb\Z_l _]h lj_[m_fuf p\_lhf Dmjkhj ijb wlhf
i_j_f_sZ_lky\e_\uc\_jogbcm]heIhmfheqZgbxp\_lwdjZgZq_jguc
      GZijbf_j ^ey lh]h qlh[u ihke_^h\Zl_evgh aZdjZrb\Zlv wdjZg \h \k_ p\_lZ
iZebljugm`ghhj]Zgbah\Zlvke_^mxsbcpbde
           FOR i:=H LH 15 DO
            BEGIN
              TEXTBACKGROUND(I);       CLRSCR
            END;
      ?keb \u ohlbl_ mklZgh\blv l_dklh\h_ hdgh b aZdjZrb\Zlv _]h \ jZaebqgu_

Страницы