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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

- 31 -
SetGraphMode
MFlDgD\eb\DHllbi]jZnbq_kdh]hj_`bfZ
procedure SetGraphMode(Mode: Integer);
SetLineStyle
MklZgZ\eb\Z_lklbevebgbb
procedure SetLineStyle(LineSlyle: Word; Pattern:
Word; Thickness: Word);
SetPalette
MklZgZ\eb\Z_lh^bgp\_liZeblju
procedure SetPalette(ColorNum: Word; Color:
ShortInt);
SetRG Palette
MklZgZ\eb\Z_liZeblj m^ey VGA
procedure SetRGBPalette(ColorNum, RedValue,
GreenValue, BlueValue: Integer);
SetTextJustify
MklZgZ\eb\Z_lklbev\ujZ\gb\Zgbyl_dklZ
procedure SetTextJustify(Horiz, Vert: Word);
SetTextStyle
MklZgZ\eb\Z_lklbev\u\h^Zl_dklZ
procedure SelTextStyle(Font, Direction: Word;
CharSize: Word);
SetUserCharSize
MklZgZ\eb\Z_l\ukhlmbrbjbgmkbf\heh\
procedure SetUserCharSize(MultX, DivX, MultY, DivY:
Word);
SetViewPort
MklZgZ\eb\Z_ljZaf_juhdgZ
procedure SetViewPort(x1, y1, x2, y2: Integer;
Clip: Boolean);
SetVisualPage
MklZgZ\eb\Z_liZjZf_lju\b^bfhckljZgbpu
procedure SetVisualPage(Page: Word);
SetWriteMode
AZ^Zgb_kihkh[Zjbkh\Zgbyebgbb
procedure SetWriteMode(WriteMode: Integer);
TextHeight
<ha\jZsZ_l\ukhlmkljhdb\ibdk_e yo
function TextHeight(TextString: string): Word;
TextWidth
<ha\jZsZ_lrbjbgmkljhdb\ibdk_eyo
function TextWidth(TextString: siring): Word;
Fh^mev GRAPHlj_[m_lmklZgh\e_gby]jZnbq_kdh]hj_`bfZ>eylh]hqlh[u
wlhklZeh\hafh`gufg_h[oh^bfhijh^_eZlvke_^mx sb_^_ckl\ by
<h-i_j\uo\ijh]jZff_^he`gZ[ulvkkuedZgZfh^mev
USES GRAPH;
<h-\lhjuojZ[hlmfh^meygm`ghbgbpbbjh\ZlvdhfZg^hc
INITGRAPH(DRIVER, MODE, ’C:\BP\BGI’);
]^_ DRIVER - iZjZf_lj mklZgh\db lbiZ ]jZnbq_kdh]h ^jZc\_jZ \b^_hZ^Zil_jZ
MODE - aZ^Zgb_ j_`bfZ _]h jZ[hlu 'C:\BP\BGI' -kljhdZ mdZau\ZxsZy gZ imlv d
^bj_dlhjbb ]^_ jZkiheh`_gu ]jZnbq_kdb_ ^jZc\_ju *.BGI. ?keb \ lhc `_
^bj_dlhjbb ]^_ gZoh^blky \ZrZ ijh]jZffZ jZkiheZ]Z_lky b lj_[m_fuc ^jZc\_j
.BGI, lhwlZkljhdZ^he`gZ[ulvimklZ
INITGRAPH(DRIVER, MODE, ’’); 
                                         - 31 -

SetGraphMode          MFlDgD\eb\DHllbi]jZnbq_kdh]hj_`bfZ
                      procedure SetGraphMode(Mode: Integer);
                      MklZgZ\eb\Z_lklbevebgbb
SetLineStyle          procedure SetLineStyle(LineSlyle: Word; Pattern:
                      Word; Thickness: Word);
                      MklZgZ\eb\Z_lh^bgp\_liZeblju
SetPalette            procedure SetPalette(ColorNum: Word; Color:
                      ShortInt);
                      MklZgZ\eb\Z_liZebljm^ey VGA
SetRGeylh]hqlh[u
wlhklZeh\hafh`gufg_h[oh^bfhijh^_eZlvke_^mxsb_^_ckl\by

Страницы