Сабаќ жоспары «Бекітемін»
жүктеу/скачать 0.68 Mb.
|
- Бұл бет үшін навигация:
- Компьютермен жұмыс №1.
| Нүкте салу операторы. Экранның кез келген жеріне нүкте салуға болады.
PutPixel процедурасы экранға нүктені көрсетілген координатасымен және түсімен шығарады. Форматы: PutPixel (х,у,С); мұндағы х,у - нүктенің координатасы, С – түсі. GetPixel функциясы - координатасы көрсетілген экаранның графикалық нүктесінің түсін анықтайды. Форматы:GetPixel (х,у,С); мұндағы х,у - нүктенің координатасы, С – түсі. Line процедурасы бастапқы және соңғы нүктелерінің көрсетілген координатасы бойынша кесінді салу. Компьютермен жұмыс №1. Экранда бұрыш жасаған екі түзу сызық, шеңбер центрінде орналасқан нүкте салу программасын құру керек. program syret; uses Graph Crt; var graphdriver, graphmode: integer; begin clrscr; initgraph (graphdriver,graphmode,’d:\bp\bgi’); setColor(3)’line(250,50,475,200);line(200,50,25,300); setcolor(8);circle(250,200,100);putpixel(250,200,5); readln; closegraph; №2. Әр түрлі түспен берілген геометриялық фигуралардың астына аттарын жазатын программа құру керек. program syrettext; uses Graph, Crt; var GraphDriver: integer; GraphMode:Integer; Begin ClrScr; GraphDriver:=0; InitGraph(GraphDriver,GraphMode,’d:\bp\bgi’); SetBkColor(15);SetColor(10); rectangle (60, 40, 100, 80);SetFillStyle(1,3);FloodFill(300,70,10); SetColor (0); ;SetTextStyle (5,0,3); OutTextXY(60,65’RectanglE’); setcolor(11);circle(200,65,20);setfillstyle(2,4); setcolor(1);settextstyle(4,0,4);outtextxy (180,80’ circle’); ellipse(300,80,0,360,50,30); settextstyle(5,0,5); outtextxy(250,90,’ ellipse’) setcolor(5); line (360,65,450,65);settextstyle (6,0,6); outtextxy(360,80,’ line’); setcolor(4)arc(500,70,260,,90,20); settextstyle (6,0,6); outtextxy (500,90,’arc’); readln; closegraph end. жүктеу/скачать 0.68 Mb. Достарыңызбен бөлісу:
|