- •Лабораторная работа №1
- •Лабораторная работа № 2
- •Контрольные вопросы.
- •Лабораторная работа № 3
- •If Логическое выражение then Оператор1 else Оператор2;
- •If Логическое выражение then Оператор1;
- •1) Оператор с предусловием While. While (Условие) do Оператор;
- •2) Оператор с постусловием Repeat.
- •Некоторые «горячие» клавиши среды Turbo Pascal.
- •Лабораторная работа № 5
- •1 Домашнее задание
- •Функция CloseGraph
- •Процедура SetTextStyle
- •Процедура ОutТехt
- •394026 Воронеж, Московский просп., 14
Процедура 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
ГОУВПО «Воронежский государственный технический университет»