Задача 20. Простые объекты.

Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.

Объект - слово. Параметры: текст, длина, количество согласных букв. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество гласных букв. Определить количество слов в предложении, в которых согласных букв больше, чем гласных.

Задача 21. Простые объекты.

Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.

Объект - слово. Параметры: текст, длина, количество гласных букв. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество согласных букв. Определить количество слов в предложении, в которых гласных букв больше, чем согласных.

Задача 22. Простые объекты.

Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.

Объект - предложение. Параметры: массив слов (n<10) и их количество. Методы: конструктор и процедура, определяющая количество слов 'Тверь' в предложении. Определить процент таких слов в предложении.

Задача 23. Простые объекты.

Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.

Объект - строительство дома. Параметры: объем работ (в денежном отношении) и процент готовности объекта. Методы: конструктор и процедура, определяющая объем невыполненных работ. Определить самое законченное строительство.

Задача 24. Простые объекты.

Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.

Объект - адрес. Параметры: массив адресов (n<10) и их количество. Методы: конструктор и процедура, определяющая адресатов, проживающих в каждом городе и их процентное соотношение.

Задача 25. Простые объекты.

Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.

Объект - фотообъектив. Параметры: массив фотообъектив (n<10) и их количество. Методы: конструктор и процедура, определяющая объективы, фокусное расстояние которых - 100 и 120 мм, диаметр равен 80 мм, а материал - LiF и их процентное соотношение.

Лабораторная работа №8 Статические объекты

Цель работы – овладение практическими приемами и навыками разработки программ по работе в графическом режиме. Закрепление основных функций и процедур, применяемых в эьлм режиме. Уяснить различия между текстовым и графическим режимами.

1. Теоретическая часть

1.1.Вывод точек и линий

Для высвечивания точки используется процедура PutPixel(x,y:integer; Pixel:word);

x,y - координаты высвечиваемой точки;

Pixel - цвет высвечиваемой точки.

В Турбо-Паскале существует три процедуры построения отрезка прямой.

Процедура LineTo(x,y:integer); рисует отрезок прямой из текущей точки в заданную.

x,y - координаты заданной точки.

Процедура LineRel(Dx,Dy:integer); рисует отрезок прямой из текущей точки в точку, отстоящую на расстояние (Dx,Dy) от текущей.

Dx,Dy - задаваемые расстояния (вдоль оси X и оси Y соответственно) от текущей точки до заданной.

Процедура Line(x1,y1,x2,y2:integer); рисует отрезок прямой, соединяющий точку (x1,y1) с точкой (x2,y2).

x1,y1 - координаты первой точки;

x2,y2 - координаты второй точки.

Образец линии устанавливается процедурой

SetLineStyle(LineStyle:word;Pattern:word;Thickness:word);

Параметр LineStyle задает тип линии. Он может принимать одно из следующих значений, задаваемых константами:

SolidLn=0 - сплошная;

DottedLn=1 - точечная;

CenterLn=2 - штрих пунктирная;

DashedLn=3 - пунктирная;

UserBitLn=4 - тип линии определяется пользователем.

Параметр Pattern определяет тип линии, задаваемый пользователем. Этот параметр игнорируется, если LineStyle не равен UserBitLn. При задании типа линии пользователем используется 16 -битовый шаблон, определяемый параметром Pattern:

биты с нулевыми значениями не вызывают изменения отображения в данной точке, а биты со значениями 1 отображают точку.

Параметр Tickness определяет толщину линии, он может принимать два значения NormWidth=1 и TickWidth=3. В первом случае рисование производится линиями обычной толщины, во втором случае - утолщенными (в 3 раза).

При инициализации графического режима по умолчанию устанавливается сплошной тип линии обычной толщины.

Процедура DrawPoly(NumPoints:word; var PolyPoints); выводит ломаную линию в соответствии с текущим цветом и текущим образцом линии.

NumPoints - число вершин ломаной;

PolyPoints - массив координат ломаной, элементами массива являются записи типа PointType.

type PointType=record

x,y:integer; {координаты вершин ломаной}

end;

Число элементов массива должно быть не меньше NumPoints. Ломаную можно построить также, последовательно рисуя отрезки - звенья ломаной.