Использование графических возможностей среды программирования для построения геометрических фигур (1 часть)

11 класс

Использование

графических возможностей

среды программирования

для построения

геометрических фигур

Смелова В.Н.

Компьютерная система автоматизированного проектирования (САПР)

Графические примитивы PascalABC

• Точка
• Отрезок
• Прямоугольник
• Окружность
• Эллипс
• Сектор
• Дуга.

Рисование осуществляется в графическом окне PascalABC ● SetWindowCaption (' График функции '); ● SetwindowSize (X,Y);  ( размеры графического окна )

Система координат в PascalABC

Демонстрация подключения модуля GraphABC

Program   имя ; //Команда необязательная

Uses GraphABC;   {подключение модуля GraphAbc}

Var

{раздел описания переменных}

Begin

SetWindowSize( 640 , 480 );  

{устанавливает размеры графического окна}

SetWindowCaption(‘ Имя окна ’); //Команда необязательная

… {команды}

End.

Библиотека стандартных графических процедур хранится в модуле GraphABC

• Line(X1,Y1,X2,Y2); отрезок от точки (Х1,У1) до точки (Х2,У2)

• Circle(X, Y, R);  окружность с центром (Х,У) и радиусом R

• Rectangle(X1, Y1, X2, Y2);     прямоугольник, заданный координатами противоположных вершин (X1,Y1) и (X2,Y2)

Библиотека стандартных графических процедур хранится в модуле GraphABC

• Ellipse(X1,Y1,X2,Y2);       эллипс, ограниченный прямоугольником, заданным координатами противоположных вершин (X1,Y1) и (X2,Y2)

• Arc(X,Y,R,A1,A2); дуга окружности с центром в точке (Х,У) и радиусом R , заключенной между двумя лучами, образующими углы A1 и A2 с осью OX ( A1 и A2 –задаются в градусах и отсчитываются против часовой стрелки)

• Полный список команд библиотеки стандартных графических процедур хранится в модуле GraphABC ( Приложение 3 вашего учебника ). Совмещать работу с текстом и графикой в одном окне можно, подключив модули CRT и GraphABC одновременно.

Пример:

Составить программу, которая выполняет чертеж детали (1 клетка равна 50 пикселей).

uses GraphABC;

var x,y: integer;

begin

SetWindowCaption('Деталька');

SetWindowSize(800,800);

SetPenWidth(3); //толщина пера

Circle(250,250,100);

Arc(250,250,200,0,180);

Line(50,250,50,650);

Line(50,650,450,650);

Line(450,650,450,250);

end.

Составьте программу на PascalABC

Домашнее задание: §7 (п.7.1.)

Спасибо

за

внимание!