Основные графические процедуры Паскаля

  • Published on
    07-Jan-2016

  • View
    53

  • Download
    0

DESCRIPTION

. : (. 2). . - PowerPoint PPT Presentation

Transcript

<ul><li><p> : (. 2)</p></li><li><p> : . , . , .</p></li><li><p> , . , .. . , .. .</p></li><li><p> : Turbo Pascal . GRAPH.</p></li><li><p> : CRAPH : uses graph; : var GraphDriver,GraphMode,GraphColor:integer; begin GraphDriver : =Detect; InitGraph(GraphDriver,GraphMode,); </p><p> .</p></li><li><p>CloseGraph , . . , , .</p></li><li><p> 1. . . </p><p>: , , . </p></li><li><p> . , (0,0). (639,0), Y (0,349). </p></li><li><p>PutPixel (X,Y, Color); Color X, Y.PutPixel(10,30,red) PutPixel(10,30,4), </p></li><li><p>Line (X1, Y1, X2, Y2); (X1, Y1) (X2, Y2).Line (5, 5, 100, 100);</p></li><li><p> 1. (50,80,100,100) (200,200).program z1; uses graph; var GraphDriver,GraphMode,GraphColor: integer; beginGraphDriver : =Detect; InitGraph(GraphDriver,GraphMode,); PutPixel(200,200,red); Line(50,80,100,100); Readln; CloseGraph; End. </p></li><li><p> , , . </p></li><li><p> 2. . . .: , . </p></li><li><p>black0blue1green2cyan3red4magenta5brown6-LightGray7-DarkGray8-LightBlue9-LightGreen10-LightCyan11-LightRed12-LightMagenta13yellow14white15</p></li><li><p>SetLineStyle(, , ); . : SetLineStyle(CenterLn, 2, 3); </p></li><li><p> SolidLn0NormWidth1DottedLn1 ThickWidth3CenterLn2 DashedLn3</p></li><li><p> 1 , : ) ( ). ) ( , ). ) ( , - , - )</p></li><li><p> 2 : , , . </p></li><li><p> 3. : .</p></li><li><p>Rectangle (X1, Y1, X2, Y2); , . X1, Y1 ; X2, Y2 - .Rectangle (100, 120, 200, 100);</p></li><li><p>Bar (X1, Y1, X2, Y2); , (, ).X1, Y1, X2, Y2 .</p></li><li><p>Bar3D (X1, Y1, X2, Y2, Glubina,Top); , . X1, Y1, X2, Y2 ; Glubina ( ); Top ( True , False ).</p></li><li><p> : Line; Rectangle; Bar; Bar3D.</p></li><li><p> 4. , : , , , .</p></li><li><p>Circle (X, Y, R); R (X, Y).</p></li><li><p>Arc (X,Y,U1,U2,R); . X, Y ; U1 , , ; U2 , , U1; R .</p></li><li><p>Ellipse (X, Y, U1, U2, XR, YR); . X, Y ; U1, U2 (. Arc); XR, XY .</p></li><li><p>Fill Ellipse (X, Y, U1, U2, XR, YR); , X, Y XR, YR .</p></li><li><p>Sector (X, Y, U1, U2, XR, YR); XR, YR X, Y U1 U2.</p></li><li><p> for. </p></li><li><p> , 15 : =100; : =100; R: =5; Dr: =5; For i: =1 to 15 do beginSetColor (i); Circle(x,y,r); R:=r+dr; End; </p></li><li><p> : , , . , ( ). , 10 , 20, 15. ( ). 5. : , ( ).</p></li><li><p> 1. : , , .</p></li><li><p> 2. , ( ). </p></li><li><p> 3. : , ( ).</p></li><li><p> 5: : , .</p></li><li><p>OutText(); . , . </p></li><li><p>OutTextXY(x,y,); x y. </p></li><li><p> , , . , CHR. . </p></li><li><p> SmallFont, SansSerifFont, GothicFont , . </p></li><li><p>SetTextStyle (Font; Direction,CharSize);Font- (. ); Direction- ( - 0, - 1); CharSize- .</p><p>SetTextStyle(0,1,1); - .SetTextStyle(0,0,2); - . </p></li><li><p>SetTextJustify(Horiz,Vert); </p><p>Horiz- Vert- . </p></li><li><p> LeftText CenterTextRightText012 BoottomText CenterTextTopText012 </p></li><li><p>SetTextJustify(CenterText,CenterText); </p><p>SetTextJustify(1,0); </p></li><li><p> 1. :) , , ; </p></li><li><p> 1. :) , ; </p></li><li><p> 1. :) ( , ), ( , ). </p></li><li><p> ", , " : " . ": http://festival.1september.ru/articles/313964/</p></li></ul>

Recommended

View more >