бомба для графики в паскаль

  • Published on
    22-May-2015

  • View
    5.297

  • Download
    0

Embed Size (px)

Transcript

  • 1. . 237-257-378

2. GraphABC. uses GraphABC; . 3. PasalABC ( ) 640 400 . 400 640 . 4. SetWindowWidth(w) ; SetWindowHeight(h) - ; . 5. ClearWindow; - . ClearWindow(color); - . program clear; uses GraphABC; begin ClearWindow; ClearWindow (clMoneyGreen); end. . 6. 1. 2. 3. 4. 5. 6. 7. . 7. SetPixel(x,y,color) - (x,y) color program tochka; uses GraphABC; begin SetPixel(300,200,clred); end. . 8. LineTo(x,y) - (x,y); (x,y). Program liniay; uses GraphABC; begin LineTo(300,200); end. x,y . 9. Line(x1,y1,x2,y2) - (x1,y1) (x2,y2). Program liniay; uses GraphABC; begin line(100,50,500,250); end. x1,y1 x2,y2 . 10. clBlack clPurple clWhite clMaroon - clRed clNavy - clGreen clBrown clBlue clSkyBlue clYellow clCream clAqua clOlive clFuchsia clTeal - clGray - clLime - clMoneyGreen clLtGray - clDkGray - clMedGray clSilver Random(16777215) . 11. SetPenColor(color) - , color. Program liniay; uses GraphABC; begin setpencolor(clred); line(30,30,400,350); end. . 12. SetPenStyle(< 1 6>); - , . program prim; uses GraphABC; begin Setpencolor(clred); SetPenStyle(1); {1 - } Line(10,100,350,100); SetPenStyle(2); {2 - } Line(10,125,350,125); SetPenStyle(3); {3 - - } Line(10,150,350,150); end. . 13. SetPenWidth(n) - () , n . Program liniay; uses GraphABC; begin setpenwidth(20); setpencolor(clred); line(30,30,400,350); end. . 14. Line(x1,y1,x2,y2); LineTo(x,y); Program treugolnik; uses GraphABC; begin setpenwidth(20); setpencolor(clred); line(300,100,500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen); end. . 15. Rectangle(x1,y1,x2,y2) - , (x1,y1) (x2,y2). Program pryamougolnik; uses GraphABC; begin Rectangle(50,50,200,200); end. x1,y1 x2,y2 . 16. FloodFill(x,y,color) - color, (x,y). Program pryamougolnik; uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end. x1,y1 x2,y2 . 17. SetBrushColor(color) . , . Program zalivka_kist; uses GraphABC; Begin SetBrushColor(clGreen); Rectangle(50,50,300,300); end. . 18. SetBrushStyle( 0 7 ) - , . Program p12_zalivka; uses GraphABC; Begin SetBrushColor(clAqua); SetBrushStyle(1); Rectangle(10,10,100,100); SetBrushColor(clRed); SetBrushStyle(2); Rectangle(110,10,200,100); SetBrushColor(clBlue); SetBrushStyle(3); Rectangle(210,10,300,100); SetBrushColor(clGreen); SetBrushStyle(4); Rectangle(10,110,100,210); SetBrushColor(clYellow); end. . 19. SetBrushPicture(fname) - , fname, . uses GraphABC; begin SetBrushPicture('brush4.b mp');Ellipse(0,0,640,400); end. . 20. SetPenWidth(w); SetPenColor(color); Program pryamougolnik; uses GraphABC; begin SetPenColor(clred); SetPenWidth(20); Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end. . 21. Circle(x,y,r) - (x,y) r. Program circle; uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end. x1,y1 r . 22. Ellipse(x1,y1,x2,y2) - , . Program oval; uses GraphABC; begin Ellipse(50,50,200,350); FloodFill(50+100,50+100,clred); Ellipse(250,150,550,300); FloodFill(250+100,150+100,clBlue); end. . 23. Arc(x,y,r,a1,a2) - (x,y) r, , a1 a2 OX (a1 a2 , ). Program duga; uses GraphABC; Begin SetPenWidth(10); Arc(300,250,150,45,135); end. . 24. Pie(x,y,r,a1,a2) - , ( , Arc). Program sector; uses GraphABC; begin Pie(300,200,100,0,90); FloodFill(300+10,200-10,clAqua); end. . 25. TextOut(x,y,); - (x,y) ( (x,y) , ). Program text; uses GraphABC; begin TextOut(100,30,''); Rectangle(50,50,200,200); FloodFill(55,55,clBlue); end. . 26. SetFontName(name) . SetFontColor(color) - . SetFontSize(sz) - . SetFontStyle(fs) - . . 27. , MS Sans Serif. Times, Arial Courier New. . : SetFontName(Times); . 28. : fsNormal ; fsBold ; fsItalic ; fsBoldItalic ; fsUnderline ; fsBoldUnderline ; fsItalicUnderline ; fsBoldItalicUnderline . . 29. Program text; uses GraphABC; Begin SetFontName(Arial); SetFontSize(20); SetFontColor(clRed); TextOut(10,10,'); SetFontStyle(fsItalic); SetFontColor(clBlue); TextOut(10,50,'); SetFontStyle(fsBold); SetFontColor(Random(16777215)); TextOut(10,90,'); SetFontStyle(fsUnderline); SetFontColor(Random(16777215)); TextOut(10,130,'); SetFontStyle(fsBoldItalicUnderline); SetFontColor(Random(16777215)); TextOut(10,170,, , '); end. . 30. RGB(r,g,b) r, g b 0 255. , , , r, g b (0 , 255 ). RGB(255,255,255) . RGB(0,0,0) . . 31. Program color; uses GraphABC; begin Clearwindow(rgb(200,150,250)); TextOut(93,30,' '); Rectangle(50,50,200,200); FloodFill(55,55,clRed); TextOut(275,30,' '); Ellipse(250,50,350,200); FloodFill(250+50,50+50,clYellow); end. . 32. Gotoxy(x,y) Write(), Crt. Program text2; uses Crt,GraphABC; begin clrscr; hidecursor; { } gotoXY(12,3); write('); Rectangle(50,50,200,200); FloodFill(55,55,clYellow); end. . 33. LoadPicture(fname) n:=LoadPicture(fname) fname n; , . .bmp, .jpg .gif. . 34. DrawPicture(n,x,y); n (x,y) . uses GraphABC; var pic: integer; begin pic:=LoadPicture('demo.bmp'); DrawPicture(pic,10,10); DestroyPicture(pic); end. . 35. SavePicture(n, fname) - n fname. .bmp, .jpg .gif. . 36. 1. , .. / ... 3- . .: . , 2006. 440 . 2. , .. / .., .., .. ; . ... .: . , 2006. 820 . 3. , .. : / .., ... .: ; ; , 2002. 432 . 4. , .. : . . . / .., ... 3- ., . .: , 2012. 400 . 5. , .. Turbo Pascal: / ... .: , 2007. 367 . .