Езикът за програмиране Turbo Pascal ви позволява да рисувате графично различни форми на екрана. Всеки графичен обект може да бъде конструиран с помощта на точки, линии, дъги. Паскал използва режим на растерна графика с разделителна способност на екрана 640 x 480. Чертежът се състои в задаване на координатите на началната и крайната точка на обекта, които да се показват на графичните процедури. Цветът на обекта, дебелината на линиите, както и техният стил също са зададени като параметри на графичните процедури. За да рисувате с помощта на софтуер, трябва да свържете графичния модул Pascal.
Необходимо
Turbo Pascal среда за програмиране
Инструкции
Етап 1
Демонтирайте посочения обект за рисуване на съставните му елементи. Изберете отделни линии, дъги, кръгове, правоъгълници и точки. Това са формите, които могат да бъдат изчертани с помощта на процедурите Turbo Pascal.
Стъпка 2
В самото начало на програмния код свържете графичния модул. За да направите това, напишете ред като този: използва графика. След това създайте целочислени променливи за инициализиране на графичен режим: var gdet, gm: integer.
Стъпка 3
В тялото на програмата, след ключовата дума start, инициализирайте променливите, като присвоите на една от тях нулева стойност, а на втората стойността на откриване. След това посочете началото на графичния режим на рисуване, въведете ред от формуляра: initgraph (gdet, gm, ''). Изчистете дисплейното устройство: cleardevice.
Стъпка 4
Задайте цвета на фона за рисуване и цвета на линията на обектите, които ще се рисуват. За това използвайте процедурите SetBkColor (бяло) и SetColor (8). Цветът, който трябва да се зададе, е посочен в скоби. Като цяло Паскал използва 16 цвята и всеки от тях е посочен или от число, или от дума от специална цветова таблица.
Стъпка 5
Представете си екранна решетка с оста x отляво надясно и оста y отгоре надолу. В началото на тази координатна система, т.е. в горния ляв ъгъл на екрана, се намира координатата (0, 0). Изчислете координатите на желаната позиция на първия графичен обект. Посочете всички координати за изчертаване на фигури в тази конкретна система.
Стъпка 6
Начертайте линия, като използвате процедурната линия (x, y, x1, y1), където координатите x, y са началната точка на линията, а x1, y1 е нейният край. Променете дебелината или типа на линията, ако е необходимо. За целта използвайте процедурата SetLineStyle (0, 0, NormWidth). Първият параметър на процедурата може да промени линията, като я направи тире или пунктирана линия - променете това число на 1 или 2. Третият параметър задава дебелината на линиите. По подразбиране параметърът NormWidth винаги е зададен - тънки линии, за дебели линии задайте ThickWidth. Промененият тип линия ще бъде изтеглен след извикване на тази процедура.
Стъпка 7
Поставете точка на екрана с помощта на процедурата PutPixel (x, y, цвят), тук x и y са също координатите на точката, а цветът е нейният цвят. Преди да нарисувате затворена форма, можете да зададете запълването. За да направите това, извикайте процедурата SetFillStyle (EmptyFill, 0), където първият параметър определя твърдото запълване на фигурата, а вторият определя цвета на запълването.
Стъпка 8
Изчертава се правоъгълна форма с помощта на процедурата Rectangle (x, y, x2, y2) - координатите задават горния ляв и долния десен ъгъл на фигурата. За да нарисувате кръг, напишете линията Circle (x, y, R), където x, y, R са координатите на центъра и радиуса на кръга, също в пиксели. Елипсата е по-трудна за рисуване, много повече параметри се използват за това: Елипса (x, y, BegA, EndA, RX, RY). Тук x, y е същият център на елипсата, а BegA и EndA показват ъгъла, под който да започне и завърши елиптичната дъга. Променливите RX, RY задават радиуса на елипсата по оси x и y, съответно.
Стъпка 9
Ако имате дадена форма, която е най-лесно да се направи в отделни сегменти, използвайте процедурите MoveTo и LineTo за това. Първо преместете текущия курсор до желаната точка: MoveTo (x, y). След това нарисувайте линия от него до следващата точка LineTo (x1, y1) и отново нарисувайте права линия LineTo (x2, y2) и така, докато не получите оригиналната форма.
Стъпка 10
В края на рисуването в програмния код затворете графичния режим с реда: closegraph. Завършете тялото на програмата, както обикновено, с думата край. Сега кодът може да бъде компилиран и изпълнен за изпълнение.
