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

UptoLike

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

- 27 -
10. Ijbeh`_gb_B.
Fh^mev Graph. =jZnbdZ
;b[ebhl_dZ ]jZnbq_kdbo ih^ijh]jZff GRAPH, kh^_j`ZsZy [he__ 50
jZaghh[jZaguo ijhp_^mj b nmgdpbc jZkrbjy_l \hafh`ghklb PASCAL 7.0 ih
kha^Zgbxba h[jZ`_gbc
LZ[ebpZ3Ijhp_^mjubnmgdpbbfh^meyGRAPH
Nmgdpbybeb
ijhp_^mjZ
GZagZq_gb_
Arc
Ihkljh_gb_^m]bhdjm`ghklb
procedure Arc (X, Y: Integer; StAngle, EndAngle,
Radius: Word);
Bar
Ihkljh_gb_aZdjZr_ggh]hijyfhm]hevgbdZ
procedure Bar(xl, yl, x2, y2: Integer);
Bar3D
Ihkljh_gb_aZdjZr_ggh]hiZjZee_e_ibi_^Z
procedure Bar3D(xl, yl, x2, y2: Integer; Depth:
Word; Top: Boolean);
Circle
Ihkljh_gb_hdjm`ghklb
procedure Circle(X, Y: Integer; Radius: Word);
ClearDevice
HqbkldZwdjZgZbaZeb\dZ_]hp\_lhfnhgZ
procedure ClearDevice;
ClearViewPort
HqbkldZhdgZbaZeb\dZ_]hp\_lhf 0
procedure ClearViewPort;
CloseGraph
AZ\_jr_gb_jZ[hlu]jZnbq_kdh]hj_`bfZ
procedure CloseGraph;
DetectGraph
<ha\jZsZ_llbi^jZc\_jZbj_`bf_]hjZ[hlu
procedure DetectGraph(var GraphDriver, GraphMode:
Integer);
DrawPoly
Ihkljh_gb_fgh]hm]hevgbdZ
procedure DrawPoly(NumPoints: Word; var
PolyPoints);
Ellipse
Ihkljh_gb_weebikZ
procedure Ellipse(X, Y: Integer; StAngle, EndAngle:
Word; XRadius, YRadius: Word);
FillEllipse
Ihkljh_gb_aZdjZr_ggh]hweebikZ
procedure FillEllipse(X, Y : Integer; XRadius,
YRadius: Word);
                                       - 27 -


                            10. Ijbeh`_gb_B.
                            Fh^mev Graph. =jZnbdZ


     ;b[ebhl_dZ ]jZnbq_kdbo ih^ijh]jZff GRAPH, kh^_j`ZsZy [he__ 50
jZaghh[jZaguo ijhp_^mj b nmgdpbc jZkrbjy_l \hafh`ghklb PASCAL 7.0 ih
kha^Zgbxbah[jZ`_gbc
       LZ[ebpZ3Ijhp_^mjubnmgdpbbfh^meyGRAPH
      Nmgdpbybeb
                                                GZagZq_gb_
       ijhp_^mjZ
                     Ihkljh_gb_^m]bhdjm`ghklb
Arc                  procedure Arc (X, Y: Integer; StAngle, EndAngle,
                     Radius: Word);

Bar                  Ihkljh_gb_aZdjZr_ggh]hijyfhm]hevgbdZ
                     procedure Bar(xl, yl, x2, y2: Integer);
                     Ihkljh_gb_aZdjZr_ggh]hiZjZee_e_ibi_^Z
Bar3D                procedure Bar3D(xl, yl, x2, y2: Integer; Depth:
                     Word; Top: Boolean);

Circle               Ihkljh_gb_hdjm`ghklb
                     procedure Circle(X, Y: Integer; Radius: Word);

ClearDevice          HqbkldZwdjZgZbaZeb\dZ_]hp\_lhfnhgZ
                     procedure ClearDevice;

ClearViewPort        HqbkldZhdgZbaZeb\dZ_]hp\_lhf 0
                     procedure ClearViewPort;

CloseGraph           AZ\_jr_gb_jZ[hlu]jZnbq_kdh]hj_`bfZ
                     procedure CloseGraph;