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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

- 26 -
p\_lZlhwlhfh`ghk^_eZlvh[jZlb\rbkvdijhp_^mj_ WINDOW:
WINDOW(X1, Y1, X2, Y2);
FOR I:=1 TO 15 DO
BEGIN
TEXTBACKGROUND(I); CLRSCR
END;
]^_ X1, Y1 -dhhj^bgZlu\_jog_]he_\h]hm]eZhdgZ X2, Y2 -gb`g_]hijZ\h]hKjZam
ihke_ \uah\Z ijhp_^mju
WINDOW
dmjkhj ihf_sZ_lky \ _]h e_\uc \_jogbc m]he Z
kZfhhdghaZihegy_lkyp\_lhfnhgZH[jZlbl_\gbfZgb_qlhh[jZs_gb_dijhp_^mj_
WINDOW b]ghjbjm_lky_keb dZdZy-eb[h ba dhhj^bgZl \uoh^bl aZ]jZgbpmwdjZgZ
bebgZjmrZ_lkymkeh\b_ (X2>X1) AND (Y2>Y1).
< fh^me_ CRT ^hihegbl_evgu_ \hafh`ghklb ih mijZ\e_gbx deZ\bZlmjhc
j_Zebamx lkynmgdpbyfb READKEYb KEYPRESSED.
Nmgdpby READKEY\ha\jZsZ_lagZq_gb_lbiZ CHAR,dhlhjh_ba\e_dZ_lkyba
[mn_jZdeZ\bZlmju\\b^_dh^Zkbf\heZ?keb[mn_jimkllhnmgdpby[m^_l`^Zlv
gZ`Zlby gZ ex[mx deZ\brm H[jZlbl_ \gbfZgb_ wlZ nmgdpby g_ hlh[jZ`Z_l
\\h^bfu_kbf\heugZwdjZg_
Ke_^m_l ihfgblv qlh ijb bkihevah\Zgbb READKEY \ [mn_j ihf_sZ_lky
jZkrbj_gguc dh^ l _ ^ey ex[hcZenZ\blgh-pbnjh\hcdeZ\brbhg khhl\_lkl\ m_l
dh^m\\h^bfh]hkbf\heZZijbbkihevah\ZgbbnmgdpbhgZevguodeZ\br <F1>, <F2>,
<F10> b <Ins>]_g_jbjm_lky^\mo[Zclh\Zyihke _^h\Zl_ev ghklvbabdh^ZdeZ\brb
Djhf_ lh]h nmgdpby b]ghjbjm_l gZ`Zlb_ <Shift>, <Ctrl>, <Alt>, <CapsLock>,
<NumLock>, <ScrollLock>, <F11>b<F12>,\hkijbgbfZybolhevdh\dhf[bgZpbbk
q_f-gb[m^v_s_
Nmgdpby KEYPRESSED \ha\jZsZ_l agZq_gb_ TRUE, _keb [mn_j deZ\bZlmju
g_imklb FALSE -\ijhlb\ghfkemqZ_GZijbf_j^ey\u\h^Z\k_]h[mn_jZ^h 16
kbf\heh\gZwdjZgfh`ghbkihevah\Zlvke_^mxsmxijh]jZffm
PROGRAM ONE_10;
USES CRT;
VAR RR: STRING;
BEGIN
RR:=’’;
WHILE KEYPRESSED DO RR:=RR+READKEY;
WRITE(’ : ’);
WRITELN(RR)
END. 
                                        - 26 -
p\_lZlhwlhfh`ghk^_eZlvh[jZlb\rbkvdijhp_^mj_ WINDOW:
           WINDOW(X1, Y1, X2, Y2);
           FOR I:=1 TO 15 DO
           BEGIN
             TEXTBACKGROUND(I); CLRSCR
           END;
]^_ X1, Y1 -dhhj^bgZlu\_jog_]he_\h]hm]eZhdgZ X2, Y2 -gb`g_]hijZ\h]hKjZam
ihke_ \uah\Z ijhp_^mju WINDOW dmjkhj ihf_sZ_lky \ _]h e_\uc \_jogbc m]he Z
kZfhhdghaZihegy_lkyp\_lhfnhgZH[jZlbl_\gbfZgb_qlhh[jZs_gb_dijhp_^mj_
WINDOW b]ghjbjm_lky _keb dZdZy-eb[h ba dhhj^bgZl \uoh^bl aZ]jZgbpm wdjZgZ
bebgZjmrZ_lkymkeh\b_ (X2>X1) AND (Y2>Y1).
      < fh^me_ CRT ^hihegbl_evgu_ \hafh`ghklb ih mijZ\e_gbx deZ\bZlmjhc
j_Zebamxlkynmgdpbyfb READKEYb KEYPRESSED.
      Nmgdpby READKEY\ha\jZsZ_lagZq_gb_lbiZ CHAR,dhlhjh_ba\e_dZ_lkyba
[mn_jZdeZ\bZlmju\\b^_dh^Zkbf\heZ?keb[mn_jimkllhnmgdpby[m^_l`^Zlv
gZ`Zlby gZ ex[mx deZ\brm H[jZlbl_ \gbfZgb_ wlZ nmgdpby g_ hlh[jZ`Z_l
\\h^bfu_kbf\heugZwdjZg_
      Ke_^m_l ihfgblv qlh ijb bkihevah\Zgbb READKEY \ [mn_j ihf_sZ_lky
jZkrbj_gguc dh^ l _ ^ey ex[hc ZenZ\blgh-pbnjh\hc deZ\brb hg khhl\_lkl\m_l
dh^m\\h^bfh]hkbf\heZZijbbkihevah\ZgbbnmgdpbhgZevguodeZ\br , ,
 b ]_g_jbjm_lky^\mo[Zclh\Zyihke_^h\Zl_evghklvbabdh^ZdeZ\brb
Djhf_ lh]h nmgdpby b]ghjbjm_l gZ`Zlb_ , , , ,
, , b,\hkijbgbfZybolhevdh\dhf[bgZpbbk
q_f-gb[m^v_s_
      Nmgdpby KEYPRESSED \ha\jZsZ_l agZq_gb_ TRUE, _keb [mn_j deZ\bZlmju
g_imklb FALSE -\ijhlb\ghfkemqZ_GZijbf_j^ey\u\h^Z\k_]h[mn_jZ ^h 16
kbf\heh\ gZwdjZgfh`ghbkihevah\Zlvke_^mxsmxijh]jZffm
           PROGRAM ONE_10;
           USES CRT;
           VAR RR: STRING;
           BEGIN
             RR:=’’;
             WHILE KEYPRESSED DO RR:=RR+READKEY;
             WRITE(’Kh^_j`bfh_ [mn_jZ deZ\bZlmju: ’);
             WRITELN(RR)
           END.

Страницы