Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Федеральное агентство по образованию РФ
Томский Государственный Университет Радиоэлектроники и Информатики (ТУСУР)
Кафедра КСУП
ОТЧЁТ
по Лабораторной работе №11
«Графика»
по дисциплине: «Программирование на языке высокого уровня»
Выполнил студент гр. 586-2
Лысак А.П.
Принял преподаватель кафедры КСУП
Потапова Евгения Андреевна
2007
Содержание
Введение
Цель: научиться составлять простейшие программы на языке Pascal. Изучить работу с грфикой.
Краткая теоретическая часть
Для формирования графических изображений в языке Турбо Паскаль предназначен стандартный библиотечный модуль GRAPH. В нем содержится 79 графических процедур, функций, десятки стандартных констант и типов данных. Все они составляют единый комплекс средств, позволяющих разрабатывать профессиональные программные продукты.
Для запуска графической системы необходимо сделать следующее:
Подключить модуль GRAPH – библиотеку графических процедур
Установить графический режим с помощью двух переменных
Var DriverVar, ModeVar: Integer;
Begin
DrivetVar := Detect;
InitGraph(DriverVar, ModeVar, ‘\TP\GRAPH’);
С этого момента все графические средства доступны пользователю. Прежде чем работать с графикой, необходимо установить наиболее подходящий для имеющегося монитора видеорежим. Турбо Паскаль имеет фиксированное число драйверов, каждый из которых поддерживает от одного до трех видеорежимов. Тип драйвера и режим могут быть заданы как число или как символическая константа тапа.
Когда все запланированные графические работы выполнены, необходимо выйти из графического режима. Это делается с помощью не имеющей параметров процедуры CloseGraph. В процессе выполнения эта процедура освобождает память, распределенную под драйверы графики, файлы шрифтов и промежуточные данные, и восстанавливает режим работы адаптера в то состояние, в котором он находился до выполнения инициализации системы.
Задача №1
6. Соединить конечное множество точек на плоскости замкнутой ломанной линией
без самопересечений с вершинами в этих точках. (Полный перебор не делать;
ответом будет порядок обхода точек плоскости).
Подяказка: перейти к полярным координатам и упорядочить точки по значениям
угла, а для точек с одинаковым значением угла - по расстоянию до полюса.
Описание алгоритма
Блок-схемы
Задача №2
Сортировка методом простого выбора
Описание алгоритма
Программа
Блок-схемы
Вывод
Какие бы изображения ни выводились на экран, все они построены из точки. Имя средство построения точки определенного цвета в нужном месте экрана, теоретически можно создать любое изображение, вплоть до картины.
setfillstyle(1,15);
bar(m,arr[i],m+30,450);
m:=m+40;
gA[1,i]:=A[1,i]/A[2,i];
A[3,i]:=i;
tgA[2,i]:=i;
for i:=1 to n do
setfillstyle(1,13);
bar(m,arr[i],m+30,450);
m:=m+40;
Ssort(arr);
gr(arr,1,1);
readln(n);
begin
End
Процедурa GR
for i:=1 to n do
drivervar:=detect;
initgraph(drivervar,modevar,' ');
moveto(a[1,1],a[2,1]);
setcolor(4);
lineto(a[1,i],a[2,i]);
setcolor(9);
circle(a[1,i],a[2,i],8);
End
ssort(tgA,n);
ris;
for i:=1 to n do
readln(A[1,i]);
readln(A[2,i]);
readln(n);
Begin
for i:=1 to n do
setcolor(14);
str(A[3,i],strs);
outtextxy(a[1,i]-2,a[2,i]-2,''+strs);
procedure ris;
arr[i]:=random(200)+150;
End
drivervar:=detect;
initgraph(drivervar,modevar,'');
m:=3;
procedure gr(arr:mas;i1,i2:integer);
for i:=1 to n do
(i1=i) or (i2=i)
End