Предпросмотр материала:
Графика в Pascal
Для того, чтобы использовать его графические средства нужно подключить графический модуль.
uses GraphABC функция подключения графического модуля записывается перед объявлением переменных
uses GraphABC;
var v,k: integer;
begin
Отрезок рисуется процедурой Line. Мы знаем, что отрезок прямой можно построить, если известно положение его двух крайних точек. Они-то и задаются в обращении к процедуре. Первая пара параметров - координаты одной точки (любой из двух), вторая пара - другой.
Line(100,50,250,150);
Окружность можно построить, если известно положение центра и радиус. Окружность рисуется процедурой Circle, первые два параметра которой - координаты центра, третий - радиус.
Circle(200,100,50);
Rectangle(150,150,50,200);
Прямоугольник рисуется процедурой Rectangle
где в параметрах указывают
Координаты правый верхний и левый нижний углы
SetWindowPos(x,y); // Устанавливает позицию графического окна.
SetWindowWidth (500); //Устанавливает ширину графического окна
SetWindowHeight(100); //Устанавливает высоту графического окна.
Для закрашивании фигур используют цветовые константы
const h= clRed; d = clGreen;
В программе используют процедуру SetBrushColor(h ); ее записывают перед фигурой которую надо закрасить
USES GraphABC;
const h= clRed;
d=clGreen;
var l,t,s: integer;
BEGIN
SetWindowWidth(500); //Устанавливает высоту графического окна
SetWindowHeight(500); //Устанавливает ширину графического окна.
SetWindowPos(0,0); // Устанавливает позицию графического окна.
SetBrushColor(h );
Rectangle(150,150,50,200); //правый верхний и левый нижний углы}
SetBrushColor(d );
Circle(200,100,50);{окружность}
Line(100,50,250,150);{отрезок прямой}
ReadLn;
END.
Составить программу рисующую красный квадрат в центре формы и две горизонтальные прямые, внутри квадрата зеленая окружность.
8
ClearWindow; - очищает графическое окно белым цветом.
ClearWindow(color); - очищает графическое окно указанным цветом.
Очистка графического окна
uses GraphABC;
begin
ClearWindow;
ClearWindow(clMoneyGreen);
end.
Цвет зеленых денег
9
Цвет линии
SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.
Program liniay;
uses GraphABC;
begin
setpencolor(clred);
line(30,30,400,350);
end.
10
Толщина линии
SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям.
Program liniay;
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);
line(30,30,400,350);
end.
Для того, чтобы использовать его графические средства нужно подключить графический модуль.
uses GraphABC функция подключения графического модуля записывается перед объявлением переменных.
Отрезокрисуется процедурой Line. Мы знаем, что отрезок прямой можно построить, если известно положение его двух крайних точек. Они-то и задаются в обращении к процедуре. Первая пара параметров - координаты одной точки (любой из двух), вторая пара - другой.
Окружностьможно построить, если известно положение центра и радиус. Окружность рисуется процедурой Circle, первые два параметра которой - координаты центра, третий - радиус.
Прямоугольник рисуется процедурой Rectangle
где в параметрах указывают
Координаты правый верхний и левый нижний углы.
Для закрашивании фигур используют цветовые константы
const h= clRed;d=clGreen;
Профессия: Политолог
Профессия: Преподаватель информационных технологий
Профессия: Учитель математики и информатики
Профессия: Учитель информатики
В каталоге 7 450 курсов по разным направлениям