Презентация, доклад по информатике на тему Графика в PascalABC

точки, отрезки прямых, дуги, закрашенные и не закрашенные окружности, прямоугольники, а также выполнять ряд других действий, необходимо включить модуль GraphABC.

Program nazvanie; uses GraphABC; Begin … End.

ширину графического окна

SetWindowWidth(600);
SetWindowHeight(400);

400

600

указанным цветом.

ClearWindow;

ClearWindow(clSkyBlue);

Цвет экрана

LineTo(x,y); - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y). Line(x1,y1,x2,y2); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

x1,y1

x2,y2

x,y

x,y

(x2,y2).

радиусом r. Ellipse(x1,y1,x2,y2); - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2).

SetWindowHeight(400);
SetWindowWidth(600);
ClearWindow(clSkyBlue);
circle (160,200,40);
Ellipse(240,160,410,260);

(x,y);
RoundRect(x1,y1,x2,y2,w,h); - рисует прямоугольник со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

RoundRect(150,100,450,300,40,40);

и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).

Arc(300,200,180,30,150);

тот же смысл, что и в процедуре Arc).

ClearWindow(rgb(254,158,252));
SetBrushColor(rgb(105,1,103));
Pie(300,200,180,30,150);

(толщину) пера, равную n пикселям.
FloodFill(x,y,color); - заливает область одного цвета цветом color, начиная с точки (x,y). SetBrushColor(color); - устанавливает цвет кисти, заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки цвета кисти.

Работа с кистью и областью

(300,140,200,200);
FloodFill (300,170,clblue);
SetPenColor(cllime);
Line (200,200,400,200);
Line (400,200,300,260);
Line (300,260,200,200);
FloodFill (300,230,cllime);
SetPenColor(clred);
circle (160,200,40);
FloodFill (160,200,clred);
SetPenColor(clyellow);
circle (440,200,40);
FloodFill (440,200,clyellow);

за место color пишется rgb(r,g,b), где r,b,g - числа от 0 до 255

FloodFill (300,170,rgb(138,248,68));

Line (400,200,300,260);
Line (300,260,200,200);
FloodFill (300,230,cllime);
circle (160,200,40);
FloodFill (160,200,clred);
circle (440,200,40);
FloodFill (440,200,clyellow);
End.

Текст программы

верхний левый угол прямоугольника, который будет содержать текст из строки s).
SetFontName(‘name’); - устанавливает наименование шрифта. SetFontColor(color); - устанавливает цвет шрифта. SetFontSize(sz); - устанавливает размер шрифта в пунктах.

Работа с текстом

fsItalic – наклонный; fsBoldItalic – жирный наклонный; fsUnderline – подчеркнутый; fsBoldUnderline – жирный подчеркнутый; fsItalicUnderline – наклонный подчеркнутый; fsBoldItalicUnderline – жирный наклонный подчеркнутый.

Работа с текстом