Процедура SetTextStyle

Устанавливает текущий шрифт, тип и коэффициент размера символа.

Описание: SetTextStyle(шрифт: word; направление: word; разм_символа: CharSizeType)

Примечания: Процедура влияет на весь текстовый вывод, выполняемый процедурами OutText и OutTextXY. Можно использовать один шрифт с двоичным образом 8х8 и несколько "штриховых" шрифтов. Поддерживается нормальное (слева направо) расположение шрифта и вертикальное (развернутое на 90 градусов относительно нормального расположения), при котором текст начинается с нижней границы экрана и продолжается вверх. Размер каждого символа может увеличиваться на коэффициент, задаваемый параметром "разм_символа". Значение размера символа, равное единице, приводит к выводу двоичного образа шрифта 8х8 в прямоугольную область экрана, содержащую 8х8 элементов изображения, параметр "разм_символа", равный 2 приведет к выводу на экран двоичного образа шрифта 8х8 в прямоугольную область элементов изображения размером 16х16 и т. д. (вплоть до десятикратного увеличения нормального размера). Для определения действительных размеров шрифта всегда

38

используйте процедуры TextHeight и TextWidth.

Процедура ОutТехt

Пересылает строку на устройство вывода в то место, в котором находится текущий указатель.

Описание: ОutТехt(строка : string)

Примечания: Параметр "строка" выводится в месте расположения текущего указателя. При этом используются текущие параметры выравнивания. Если строка слишком длинная и не умещается на экране или в текущей области просмотра, то она усекается. Если активен шрифт, используемый по умолчанию (шрифт с побитовым отображением), а строка слишком велика и не умещается на экране, то она не выводится.

В данной процедуре используется шрифт, установленный процедурой SetTextStyle.

Процедура OutTextXY

Пересылает строку на устройство вывода.

Описание: OutTextXY(Х,Y : integer; текст_строка : string)

Примечания: Строка, заданная параметром "текст_строка", выводится в точке (Х,У). Если строка слишком длинная и выходит за пределы экрана или текущей области просмотра, то она усекается.

Процедура OutText используется для вывода текста в месте расположения текущего указателя, процедура OutTextXY используется для вывода текста в любом заданном месте экрана.

Процедура Circle

Описание: Circle(X,Y:Integer;радиус:Word).

Примечание: Процедура вычерчивает окружность текущим цветом. Точка (X,Y) – центр окружности.

2 Лабораторные задания

39

2.1 Изучить основные цвета и стили линий.

Program Gr;

Uses crt, Graph;

Var

//Переменные для графического драйвера

grDriver:Integer; //Графический драйвер

grMode:Integer; //Режим графического драйвера

i,j:Integer;

st:String;

Begin

grDriver:=Detect;

InitGraph(grDriver,grMode,''); //Инициализация модуля Graph

OutTextXY(90,340,'SetColor()'); //Вывод текста

For i:=1 to 16 do

Begin

SetColor(i); //Цвет лини

Line(i*20,1,i*20,300); //Вывод линии

str(i,st);

OutTextXY(i*20,360,st);

End;

ReadKey;

ClearDevice; //Очистка эрана

SetColor(15);

OutTextXY(90,340,'SetLineStyle(i,1,1)');

For i:=1 to 16 do

Begin

SetLineStyle(i,1,1);

40

//Изменение стиля линии

Line(i*20,1,i*20,300);

str(i,st);

OutTextXY(i*20,360,st);

End;

ReadKey;

ClearDevice;

SetColor(15);

OutTextXY(90,340,'SetLineStyle(1,1,i)'); //Изменение ширины линии

For i:=1 to 16 do

Begin

SetLineStyle(1,1,i);

24

Line(i*20,1,i*20,300);

str(i,st);

OutTextXY(i*20,360,st);

End;

ReadKey;

CloseGraph; //Выход из графического режима

End.

2.2. Подключить модуль Graph с использованием процедуры Line нарисовать таблицу 5х5. Причем горизонтальные строки должны быть белого цвета, вертикальные синего.

Заполнить двумерный массив случайными целочисленными числами результат вывести в нарисованную таблицу.

2.3. Используя процедуру Circle, выведите 16 окружностей с центром в точке (300,240) с разными цветами и увеличивающимся радиусом на 10.

41

Задания:

1. Написать проверку количества элементов в строках массива, полученного при чтении файла.

2. Написать процедуру генератора случайных чисел, создать GroupBox с двумя редакторами TEdit для ввода размера массива и кнопки BitBtn для записи чисел в массив. Сделать его доступным при выборе соответствующего переключателя.

3. Написать процедуры для вывода в файл результатов работы программы, записать задание на обработку массива и исходных данных.

4. Обработать ситуации открывания несуществующего файла и перезаписи существующего.

Список литературы

1. Информатика: Базовый курс: Учеб. пособие для втузов / Под ред. С.В. Симоновича. - СПб. : Питер, 2003. - 640с.

2. Фаронов, Валерий Васильевич. Турбо Паскаль 7.0 : Начальный курс: Учебное пособие / В.В.Фаронов. - 7-е изд.,перераб. - М. : Нолидж, 2002. - 576с.

42

МЕТОДИЧЕСКИЕ УКАЗАНИЯ

к выполнению лабораторных работ №1-5

для студентов специальности 200800 «Проектирование

и технология РЭС» очной и заочной формы обучения

Составители

Новикова Ирина Анатольевна

Хорошилов Валерий Николаевич

Подписано к изданию 18.01.2008

Уч. -изд. л. "С" 2,5

ГОУВПО «Воронежский государственный технический университет»