Создание графических объектов с помощью псевдографики
Пермский государственный технический университет
Кафедра: Информационных технологий и автоматизированных систем
Лабораторная работа по теме:
«Создание графических объектов с помощью псевдографики»
По дисциплине «Информатика»
Пермь 2010
Цели и задачи работы
1.Изучить основы работы на языке высокого уровня Turbo Pascal.
.Разработать программу, которая бы нарисовала инициалы студента, причем одну из букв раскрасить.
Оборудование и программное обеспечение
§Персональный компьютер
§Манипуляторы клавиатура и мышь
§Программы Turbo Pascal
Ход работы
Операторы, необходимы для работы в графической среде Turbo Pascal
·Uses graph - использование графического режима
·В разделе переменных описываем gd (графический драйвер), gm (графический режим), error (сообщение об ошибке)
·Запуск графического режима осуществляется следующим образом:
Initgraph (gd,gm,'');:=detect;:=graphresult;error <>0 then('Обнаружена ошибка ');;;
·Moveto (X,Y) - установить курсор в точку с координатами X,Y
·Setcolor (цвет) - последующий текст и линии будит рисоваться заданным цветом
·OuttextXY (X,Y) - написать текст в точке с координатами X,Y
·setlinestyle (3,0,1) - установка пунктирной линии
·setlinestyle (0,0,1) - установка обычной линии
·Line (X1,Y1,X2,Y2) - провести линию из точки X1,Y1 в точку X2,Y2
·setfillstyle (solidfill,red) - установка параметров завливки, solidfill - залить всю ограниченную область заданным цветом
·floodfill (X,Y,getmaxcolor) - X,Y координаты точки принадлежащей ограниченной области
·Closegraph - закрытие графического режима
Текст программы
Program Iniciali;graph;error,gd,gm,m,n:integer;,y,z,x1,x2,y1,y2,a:real;:=100;:=100;:=detect;:=30;:=100;(gd,gm,'');:=GraphResult;error <> 0 then('AaAAA PANEKA!');;;((getmaxx div 2),0);((getmaxx div 2),(getmaxy div 2));(0,round ((getmaxy div 2)+sin(pi/6)/cos(pi/6)*(getmaxx div 2)));((getmaxx div 2),(getmaxy div 2));((getmaxx),round((getmaxy div 2)+sin(pi/12)/cos(pi/12)*(getmaxx)));(m,n);:=z*cos(pi/6);:=z*sin(pi/6);:=m+round(x);:=n-round(y);(m,n);:=n+25;(m,n);(m,n);:=75;:=-z*cos(pi/6);:=-z*sin(pi/6);:=m+round(x);:=n-round(y);(m,n);:=n+200;(m,n);(m,n);:=25;:=-z*cos(pi/6);:=-z*sin(pi/6);:=m+round(x);:=n-round(y);(m,n);:=n-225;(m,n);:=25;:=-z*cos(pi/6);:=z*sin(pi/6);:=m+round(x);:=n-round(y);(m,n);:=n+225;(m,n);(m,n);:=25;:=z*cos(pi/6);:=-z*sin(pi/6);:=m+round(x);:=n-round(y);(m,n);:=n-225;(m,n);:=25;:=-z*cos(pi/6);:=z*sin(pi/6);:=m+round(x);:=n-round(y);(m,n);(m,n);:=100;:=z*cos(pi/6);:=-z*sin(pi/-6);:=m+round(x);:=n-round(y);(m,n);(m,n);:=25;:=z*cos(pi/6);:=-z*sin(pi/6);:=m+round(x);:=n-round(y);(m,n);;(m,n);:=m+100;(m,n);:=n-200;(m,n);:=-z*cos(pi/6);:=z*sin(pi/6);:=m+round(x);:=n-round(y);(m,n);;;
end.
Вывод
turbo pascal программа графический
В ходе данной лабораторной работы я научился работать с графической средой Turbo Pascal.