Обучающая программа "Графика" программированию в графическом режиме на языке turbo-pascal 7.x
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
sp;
4 SetBKColor(1);
SetColor(14);
Arc(X,Y;0,360,Radius);
Arc(X,Y+d;0,360,Radius);
*
02НАПИШИТЕ ПРОГРАММУ ФОРМИРОВАНИЯ НА ЧЕРНОМ ЭКРАНЕ КРАСНОЙ ЦИФРЫ 5 С КРИВОЛИНЕЙНОЙ НИЖНЕЙ И ПРЯМОЛИНЕЙНОЙ ВЕРХНЕЙ ЧАСТЯМИ.
1 SetColor(4);
GoToXY(X,Y);
Arc(X+d,Y+d,0,180,K+d);
Arc(X,Y+d,0,90,d);
Arc(X+d,Y+d+k,0,180,k);
2 SetColor(4);
Line(X,Y,X+d,Y);
Line(X,Y,X,Y+d);
Arc(X+k,Y+k,0,90,k);
Arc(X+k,Y+k,270,360,k);
3 SetColor(4);
Line(X,Y,X+d,Y);
Line(X,Y,X,Y+d);
Arc(X+k,Y+k,0,180,k);
4 SetColor(4);
Line(X,Y,X-d,Y);
Line(X-d,Y,X-d,Y+d);
Circle(X-d,Y+d+k,k);
*
03НАПИШИТЕ ПРОГРАММУ , ОБЕСПЕЧИВАЮЩУЮ ФОРМИРОВАНИЕ НА ЧЕРНОМ ЭКРАНЕ ЭЛЛИПСА СО СЛУЧАЙНЫМ ЦВЕТОМ ЗАКРАСКИ.
1 Randomize;
SetFillStyle(0,15);
Ellipse(X,Y,0,359,a,b);
FloodFill(X,Y,Random(14);
2 SetFillStyle(0,15);
Ellipse(X,Y,0,359);
FloodFill(X,Y,Random(14);
3 SetFillStyle(0,15);
Randomize(15);
Ellipse(X,Y,0,359,a,b);
FloodFill(X,Y,Random);
4 SetFillStyle(0,15);
Randomize;
Ellipse(X,Y,a,b);
FloodFill(X,Y);
*
04КАК ПРАВИЛЬНО ЗАДАТЬ УГЛОВЫЕ ПАРАМЕТРЫ ПРОЦЕДУРЫ Arc?
1 В радианах. Их значения не должны превышать 2пи.
2 В радианах. Их значения не должны превышать пи.
3 В градусах. Их значения не должны превышать 360 градусов.
4 В градусах. Их значения не должны превышать 180 градусов.
*
05В КАКОМ МОДУЛЕ ОПИСАНА ПРОЦЕДУРА RANDOMIZE?
1 Graph.
2 Crt .
3 Dos.
4 System.
*
06С ПОМОЩЬЮ КАКОЙ ПРОЦЕДУРЫ МОЖНО НАРИСОВАТЬ НА ЭКРАНЕ ТОЧКУ
ОПРЕДЕЛЕННОГО ЦВЕТА?
1 PutPixel.
2 KeyPressed.
3 GetPixel.
4 Delay.
*
0
ФОРМИРОВАНИЕ ГРАФИЧЕСКИХ ТЕКСТОВ
В данном разделе мы рассмотрим возможность графического изобра-
жения текстовых символов, управление типом шрифта, направлением
вывода, размерами и пропорциями символов, пространственной привязкой
текстовых строк к положению курсора и другими возможностями формиро-
вания графических текстов.
* procedure SetTextStyle(Font,Direction:word;
* CharSize:CharSizeType);
Устанавливает стиль стандартного шрифта Font(один растровый -
DefaultFont(0), и четыре штриховых - TriplexFont(1),SmallFont(2),
SanSerifFont(3), GothicFont(4)), направление текстовой строки
Direction (HorizDir(0) - слева направо, VertDir(1) - снизу вверх),
размер символов CharSize (коэффициент увеличения от 1 до 10).
В случае растрового шрифта каждый текстовый символ формируется
на основе матрицы 8*8 элементов разложения. Штриховые шрифты опреде-
ляются серией векторов. Обычно штриховые шрифты хранятся в отдельных
файлах на системном диске и при обращении к процедуре загружаются в
динамически определяемую память компьютера автоматически.
"По умолчанию", т.е. без обращения к данной процедуре
автоматически устанавливается растровый шрифт, горизонтальный вывод
и единичный размер символов.
На следующем экране Вы можете наблюдать примеры стандартных
шрифтов. После названия каждого из них через запятую указан коэффи-
циент увеличения.
#
1 ФОРМИРОВАНИЕ ГРАФИЧЕСКИХ ТЕКСТОВ
#
ФОРМИРОВАНИЕ ГРАФИЧЕСКИХ ТЕКСТОВ
* procedure SetUserCharSize(MultX,DivX,MultY,DivY:word);
Используется после установки штрихового шрифта с целью измене-
ния пропорций символов. Отношение MultX/DivX -коэффициент масштаби-
рования обычной ширины используемого архивного штрихового шрифта.
2MultY/DivY - коэффициент масштабирования высоты шрифта.
#
ФОРМИРОВАНИЕ ГРАФИЧЕСКИХ ТЕКСТОВ
* function TextHeight(TextString:strig):word;
Возвращает высоту заданной текстовой строки TextString в элемен-
тах изображения(пикселах) с учетом всех установок, выполненных ранее
процедурами SetTextStyle и SetUserCharSize .
* function TextWidth(TextString:string):word;
Возвращает ширину заданной текстовой строки TextString при тех
же условиях, что и функция TextHeight.
* procedure SetTextJustify(Horiz,Vert:word);
Обеспечивает привязку выводимого графического текста к теку-
щему положению курсора. Параметры процедуры описаны в модуле Graph
как константы и могут принимать следующие значения:
Horiz: LeftText =0 - левым краем строки к курсору
CenterText=1 - симметрично к курсору
RightText =2 - правым краем строки к курсору
Vert: BottomText =0 - строка над курсором
CenterText =1 - симметрично к курсору
TopText =2 - строка под курсором
По "умолчанию" устанавливается параметр привязки выводимого
графического текста соответствующий обращению SetTextJustify(0,2);.
#
ФОРМИРОВАНИЕ ГРАФИЧЕСКИХ ТЕКСТОВ
* procedure OutText(TextString:string);
Выводит на экран последовательность символов, начиная с текущей
позиции, которая меняется только если текст выводится горизонтально
с левым выравниванием. Если текст не помещается в графическое окно,
он либо вообще не высвечивается ("грубый" шрифт, принятый по умолча-
нию), либо высвечивается частично("гладкий" шрифт).Текущий цвет
текста задается процедурой SetColor . параметры шрифта - процедурами
SetTextStyle SetTextJustify.Коэффициенты увеличения ширины и высоты
штриховых шрифтов можно задать процедурой SetUserCharSize. Ширину и
высоту строки определяют с помощью функций TextWidth TextHeight.