Урок Тема: Графиката в Turbo Pascal.
цветен код
Черно Черно 0
Blue - синьо 1
Зелено зелено 2
Циан-3 тюркоаз
Червено-червени 4
Magenta-Magenta 5
Brown-кафяв 6
LightGray-светлосив 7
DarkGray-тъмно сиво 8
LightBlue- светло синьо 9
LightGreen-ярко зелено 10
LightCyan-ярък тюркоаз 11
LightRed-ярко червено 12
LightMagenta-ярко малиново 13
Жълто-Жълт 14
Бяла-Бяла 15
Пример 1:
Програма, която показва "звездно небе".
използва Graph;
Var аз, Господи, Gm: Integer;
ЗАПОЧНЕТЕ
Gd: = VGA; Gm: = VGAHi; InitGraph (Б-г, управител, ".. \ BGI ');
Ако GraphResult = гроквам
след това да започне
За I: = 0-1000 направи
PutPixel (случаен (640), произволен (480), произволен (15) 1);
ReadLn
край
END.
Ø кръг (X, Y, R); - изграждане на окръжност с център X, Y и радиус R.
Изходна линия (x1, y1, x2, y2); - за изграждане на отсечка от точката с координати x1, y1 до точката с х2 координати, y2.
Ø правоъгълник (x1, y1, x2, y2); - изграждане на правоъгълник с горния ляв ъгъл, при координати x1, y1 и в долния десен ъгъл на x2 координатите, y2 (страни, успоредни на ръба на екрана)
Пример 2:
Програма, която показва различни празни форми (кръгове).
използва Graph;
конст CenterX = 320; CenterY = 240;
Var аз, Господи, Gm: Integer;
ЗАПОЧНЕТЕ
Gd: = VGA; Gm: = VGAHi;
InitGraph (Б-г, управител, ".. \ BGI ');
Ако GraphResult = гроквам след това
Защото: = 0-23 правя
Кръг (CenterX, CenterY, I * 10);
END.
Редица графични съчетания изгражда пълни форми - форми на затворен контур автоматично се запълват веднага след като строителството на:
Ø SetFillStyle (Р, N); - процедура украшение инсталация F = 0,1. 12 с броя и цвета
За N попълване форми.
Р о = 0 - напълване на твърда цвета на фона,
Р о = 1 - цялостно запълване с цвят брой N на,
о Р = 2..11 - стандартен набор от BGI орнаменти,
О П = 12 - украшение и цвят дефинирани от потребителя.
Ø Бар (x1, y1, x2, y2); - изграждане на правоъгълник напълнена с определената
горния ляв координати (x1, Y1) и долния десен (x2, y2) ъгли.
Ø Bar3d (х1, у1, Х2, Y2, д, т); - да се изгради една кутия, пълна с предната
лице. координати ъгъл (X1, Y1), (Х2, Y2), на дълбочина дни. Булева променлива т показва изход тип горна повърхност. В т = TopOn Supremum показано, (истина) т = TopOff (фалшива) - не.
Ø FillEllipse (X, Y, Rx, Ry); - изграждане на пълна елипса с център (X, Y)
и радиуси (semiaxes) Rx - хоризонтално, Ry - вертикално.
Ø сектор (х, у, А1, А2, Rx, Ry); - изграждане на пълен сектор елипса. А1 и А2 са началната и крайната ъгли (в) градуса спрямо обратна на часовниковата стрелка посока спрямо оста X.
Ø PieSlice (х, у, А1, А2, R); - да се изгради сектор попълнено кръг центрирано в точката
(Х, у) и радиус R.
Ø FillPoly (М, М); - попълнете произволна равнина фигура с границата е описано
масив от точки, N - броят на точките на границата.
3. Практика.
Равен влак, който е изобразен на плъзгача (7).
Програма paravozzz;
използва CRT, графика;
процедура paravoz;
започвам
setfillstyle (1,4);
bar3d (100,280,280,380,25, вярно);
setfillstyle (1,5);
bar3d (280,180,400,380,25, вярно);
setcolor (1);
setfillstyle (един, жълто);
bar3d (300,200,380,260,0, фалшива);
setfillstyle (1,12);
bar3d (120,300,260,360,0, фалшива);
правоъгълник (300,285,380,370);
приключи;
процедура Koleso;
започвам
х: = 160;
защото: = 1 до 3 направи
започвам
setfillstyle (1,1);
fillellipse (х, 380,40,40);
setfillstyle (1,3);
fillellipse (х, 380,30,30);
х: = х + 100;
приключи;
приключи;
Var GD, г, I, X, Y: цяло число;
започвам
GD: = откриване;
initgraph (GD, г, '');
ако graphresult<>гроквам след спиране (1);
paravoz;
Koleso;
readln; край.
Урок Тема: Графиката в Turbo Pascal.
цветен код
Черно Черно 0
Blue - синьо 1
Зелено зелено 2
Циан-3 тюркоаз
Червено-червени 4
Magenta-Magenta 5
Brown-кафяв 6
LightGray-светлосив 7
DarkGray-тъмно сиво 8
LightBlue- светло синьо 9
LightGreen-ярко зелено 10
LightCyan-ярък тюркоаз 11
LightRed-ярко червено 12
LightMagenta-ярко малиново 13
Жълто-Жълт 14
Бяла-Бяла 15
Пример 1:
Програма, която показва "звездно небе".
използва Graph;
Var аз, Господи, Gm: Integer;
ЗАПОЧНЕТЕ
Gd: = VGA; Gm: = VGAHi; InitGraph (Б-г, управител, ".. \ BGI ');
Ако GraphResult = гроквам
след това да започне
За I: = 0-1000 направи
PutPixel (случаен (640), произволен (480), произволен (15) 1);
ReadLn
край
END.
кръг (X, Y, R); - изграждане на окръжност с център X, Y и радиус R.
линия (x1, y1, x2, y2); - за изграждане на отсечка от точката с координати x1, y1 до точката с х2 координати, y2.
правоъгълник (x1, y1, x2, y2); - изграждане на правоъгълник с горния ляв ъгъл, при координати x1, y1 и в долния десен ъгъл на x2 координатите, y2 (страни, успоредни на ръба на екрана)
Пример 2:
Програма, която показва различни празни форми (кръгове).
използва Graph;
конст CenterX = 320; CenterY = 240;
Var аз, Господи, Gm: Integer;
ЗАПОЧНЕТЕ
Gd: = VGA; Gm: = VGAHi;
InitGraph (Б-г, управител, ".. \ BGI ');
Ако GraphResult = гроквам след това
Защото: = 0-23 правя
Кръг (CenterX, CenterY, I * 10);
END.
Редица графични съчетания изгражда пълни форми - форми на затворен контур автоматично се запълват веднага след като строителството на:
SetFillStyle (Р, N); - процедура украшение инсталация F = 0,1. 12 с броя и цвета
За N попълване форми.
Р о = 0 - напълване на твърда цвета на фона,
Р о = 1 - цялостно запълване с цвят брой N на,
о Р = 2..11 - стандартен набор от BGI орнаменти,
О П = 12 - украшение и цвят дефинирани от потребителя.
Бар (x1, y1, x2, y2); - изграждане на правоъгълник напълнена с определената
горния ляв координати (x1, Y1) и долния десен (x2, y2) ъгли.
Bar3d (х1, у1, Х2, Y2, д, т); - да се изгради една кутия, пълна с предната
лице. координати ъгъл (X1, Y1), (Х2, Y2), на дълбочина дни. Булева променлива т показва изход тип горна повърхност. В т = TopOn Supremum показано, (истина) т = TopOff (фалшива) - не.
FillEllipse (X, Y, Rx, Ry); - изграждане на пълна елипса с център (X, Y)
и радиуси (semiaxes) Rx - хоризонтално, Ry - вертикално.
сектор (х, у, А1, А2, Rx, Ry); - изграждане на пълен сектор елипса. А1 и А2 са началната и крайната ъгли (в) градуса спрямо обратна на часовниковата стрелка посока спрямо оста X.
PieSlice (х, у, А1, А2, R); - да се изгради сектор попълнено кръг центрирано в точката
(Х, у) и радиус R.
FillPoly (М, М); - попълнете произволна равнина фигура с границата е описано
масив от точки, N - броят на точките на границата.
3.Prakticheskoezadanie.
Равен влак, който е изобразен на плъзгача (7).
Програма paravozzz;
използва CRT, графика;
процедура paravoz;
започвам
setfillstyle (1,4);
bar3d (100,280,280,380,25, вярно);
setfillstyle (1,5);
bar3d (280,180,400,380,25, вярно);
setcolor (1);
setfillstyle (един, жълто);
bar3d (300,200,380,260,0, фалшива);
setfillstyle (1,12);
bar3d (120,300,260,360,0, фалшива);
правоъгълник (300,285,380,370);
приключи;
процедура Koleso;
започвам
х: = 160;
защото: = 1 до 3 направи
започвам
setfillstyle (1,1);
fillellipse (х, 380,40,40);
setfillstyle (1,3);
fillellipse (х, 380,30,30);
х: = х + 100;
приключи;
приключи;
Var GD, г, I, X, Y: цяло число;
започвам
GD: = откриване;
initgraph (GD, г, '');
ако graphresultgrok след спиране (1);
paravoz;
Koleso;
readln; край.
Свързани статии