- •Московский государственный технический университет
- •Содержание.
- •Предисловие
- •Лабораторная работа №1 Процедурные типы
- •1. Теоретические сведения
- •Var X: real; I: integer;
- •X, y : byte;
- •VarFunc : FuncType;
- •I : integer;
- •2.Задачи для самостоятельного решения
- •Лабораторная работа №2 Модули
- •Теоретическая часть
- •Структура модулей
- •Связь модулей друг с другом
- •ISwap(a,b);
- •Var I, y :integer;
- •2.2. Практическая часть
- •Interface
- •Implementation
- •I: Integer;
- •3. Задачи, для самостоятельного решения
- •Лабораторная работа №3 Меню
- •1. Теоретическая часть
- •Var X,y,I: byte;
- •XUpLeft;
- •Var npos,I: integer;
- •Case npos of
- •Лабораторная работа №4.
- •2.Задачи, для самостоятельного решения:
- •Лабораторная работа № 5 Указатели. Связанные списки
- •1. Теоретические сведения
- •1.1. Указатели
- •1.2. Связные списки записей
- •1.3. Управление связанным списком записей (на примере)
- •1.3.1. Построение списка
- •Var ListOfChecks, CurrentCheck: pCheck;
- •1.3.2. Перемещение по списку
- •Var p: Pint;
- •2. Демонстрационные примеры
- •X1,y1,x2,y2: word;
- •Var npos,I,n,j :integer;
- •3: Begin
- •Interface
- •Задачи 1..4. Создать типизированный файл записей, содержащих сведения о багаже пассажира. Структура записи имеет следующий вид:
- •Var rec, beg, endd, current: pnt;
- •Задача 5. Создать типизированный файл записей, содержащих сведения об автомобиле. Структура записи имеет следующий вид:
- •Var rec, beg, endd, current : pnt;
- •Задача 22. Создать типизированный файл записей, содержащих сведения о книгах. Структура записи имеет следующий вид:
- •1.2.Объект и инкапсуляция
- •1.3. Иерархия объектов и наследование
- •Visible: Boolean;
- •Init(x1,y1);
- •Interface
- •Interface
- •X,y : Integer;
- •Visible : Boolean;
- •Implementation
- •Var Temp : Word;
- •Var Temp : Word;
- •Var gm,gd:Integer;
- •Xp:Point;
- •Xs:Square;
- •Xps:PaintSquare;
- •InitGraph(Gd,Gm,'');
- •2. Демонстрационные примеры
- •X,y:integer;
- •Inherited init(ax,ay);
- •Задача 12. Простые объекты.
- •Задача 14. Простые объекты.
- •Задача 15. Простые объекты.
- •Задача 20. Простые объекты.
- •Задача 21. Простые объекты.
- •Задача 22. Простые объекты.
- •Задача 23. Простые объекты.
- •Задача 25. Простые объекты.
- •Лабораторная работа №8 Статические объекты
- •Теоретическая часть
- •1.1.Вывод точек и линий
- •1.2.Вывод многоугольников
- •Виды закраски определяется константами.
- •1.3.Вывод дуг, окружностей, эллипсов
- •1.4.Вывод текста
- •Демонстрационные примеры
- •Лабораторная работа №9
- •2. Задачи, для самостоятельного решения
- •Лабораторная работа №10
- •1.2. Перенос изображения
- •1.3. Масштабирование изображения
- •1.4. Масштабирование рисунка
- •1.5. Поворот изображения
- •1.5.1.Поворот точки
- •1.5.2. Поворот рисунка
- •1.6. Композиция преобразований
- •2. Демонстрационные примеры
- •X,y:integer;
- •1: CloseGraph;
- •3.Задачи, для самостоятельного решения
- •Лабораторная работа №12 Рубежный контроль №2
- •Задачи, для самостоятельного решения
Демонстрационные примеры
Пример 8.1. Нарисовать разными цветами десять концентрических окружностей с общим центром посередине экрана, то есть в точке с графическими координатами (320,240), и описать вокруг них красный прямоугольник.
Program Circle10;
Uses Ctr,Graph;
Var driver, mode, r: integer;
Begin
Clrscr;
Driver := detect;
Initgraph (driver, mode, ‘’);
r := 10; {радиус первой окружности в 10 пикселей}
While r <=100 do
Begin
SetColor (r div 10);
Circle(320,240,r);
R := r +10;
End;
SetColor (red);
RectAngle (220,140,420,340);
Readln;
End.
Пример 8.2. Нарисовать эмблему. В верхней части графического экрана на черном фоне нарисовать голубой квадрат, а в нем – черный вписанный круг, закрашенный желтым цветом. В центре эмблемы черными буквами написать слово «Львов».
Program Emblema;
Uses Crt, Graph;
Var driver, mode, i, x1,y1: integer;
Begin
ClrScr;
Driver := detect;
Initgraph (driver, mode, ‘’);
SetbkColor(0);
SetColor(3);
RectAngle(100,0,300,200);
SetFillStyle(1,3);
FloodFill(200,100,3);
SetColor (14);
Circle(200,100,100);
SetFillStyle(1,14);
FloodFill(200,100,14);
SetColor(0);
Circle(200,100,100);
SetTextStyle(0,0,3);
OutTextxyXY(135,100,’Львов’);
Readln;
end.
3. Задачи, для самостоятельного решения
Задача 1. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: дерево (ствол, ветки), солнце, звезду;
Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 2. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: автомобиль (колеса, корпус), Российский флаг;
Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 3. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: дом (корпус, крыша, окно, дымоход).
Сделать надпись на корпусе дома. Объект разместить в графическом окне втрое меньше рабочего экрана монитора..
Задача 4. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: абстрактные фигуры, в стиле модерн.
Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 5. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: дерево (ствол, ветки) и автомобиль (колеса, корпус);
Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 6. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: дом (корпус, крыша, окно) и луну;
Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 7. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: дерево (ствол, ветки), машина (колеса, корпус), дом (корпус, крыша, окно).
Задача 8. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: треугольник вписанный в окружность радиуса R, вершиной расположенный вниз. Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 9. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: прямоугольник вписанный в квадрат со стороной А.
Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 10. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: круг описывающий квадрат, со стороной А. Круг опирается на меньший круг. Объект разместить в графическом окне втрое меньше рабочего экрана монитора.
Задача 11. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: эллипс вписанный в прямоугольник.
Сделать надпись в эллипсе «Объект». Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 12. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: круг вписанный в равнобедренный треугольник.
Сделать надпись в круге «Солнце». Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 13. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: три круга с центрами, размещенными в вершинах треугольника.
Сделать надпись в круге «Окружности». Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 14. Нарисовать разными цветами десять концентрических окружностей с общим центром в точке экрана с координатами (160,120), и примкнуть к внешней окружности красный прямоугольник, с нижней стороны.
Задача 15. Нарисовать эмблему. В верхней части графического экрана на синем фоне нарисовать черный квадрат, а в нем – черный вписанный круг, закрашенный красным цветом. В центре эмблемы черными буквами написать слово « С Новым годом!».
Задача 16. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: эллипс вписанный в прямоугольник.
Сделать надпись в эллипсе «Объект». Объект разместить в графическом окне в двойной рамочке по контуру экрана монитора.
Задача 17. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: абстрактные фигуры, в стиле модерн (круги, треугольники, ромбы, квадраты накладываемые друг на друга).
Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 18. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: дом (корпус, крыша, окно, дымоход, дорожка к дому).
Сделать табличку с надписью на доме. Объект разместить в графическом окне втрое меньше рабочего экрана монитора.
Задача 19. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: автомобиль (колеса, корпус), Российский флаг.
Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 20. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: три окружности с центрами, в вершинах равностороннего треугольника.
В центре экрана сделать надписи «Окружности». Объект разместить в графическом окне рабочего экрана монитора.
Задача 21. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: круг вписанный в равнобедренный треугольник.
Сделать надпись в круге « Луна ». Объект разместить в графическом окне вдвое меньше рабочего экрана монитора.
Задача 22. Нарисовать эмблему. В верхней части графического экрана на белом фоне нарисовать синий квадрат, а в нем – белый вписанный круг, закрашенный черным цветом. В центре эмблемы черными буквами написать слово « МГТУ ».
Задача 23. Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: равносторонний треугольник вписанный в квадрат со стороной А. Объект разместить в графическом окне в центре рабочего экрана монитора.
Задача 24. Нарисовать разными цветами пять концентрических окружностей с общим центром в точке с графическими координатами (400, 240), и вписать в четвертую окружность белый треугольник.