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.)