Книжка Хабы (Методичка Схабы), страница 10
Описание файла
Файл "Книжка Хабы" внутри архива находится в папке "Методичка Схабы". Документ из архива "Методичка Схабы", который расположен в категории "". Всё это находится в предмете "информатика" из 2 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "книги и методические указания", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "Книжка Хабы"
Текст 10 страницы из документа "Книжка Хабы"
procedure TPixel.Draw;
begin
putpixel(x,y,color);{закрашивает пиксель с заданными координатами в цвет color}
end;
type TLine=object (TCoord)
l:integer;
constructor Init (ax,ay:integer;al:integer);
procedure Draw; virtual;
end;
constructor TLine.init;
begin
inherited init(ax,ay);
l:=al;
end;
procedure TLine.Draw;
begin
line (x,y,x+round(l/sqrt(2)),y+round(l/sqrt(2)));
end;
type TPline=object (TLine) {пересечение линий}
constructor Init(ax,ay,al:integer);
procedure Draw;virtual;
end;
constructor TPLine.Init;
begin
inherited init(ax,ay,al);
end;
procedure TPline.Draw;
begin
line (x,y,x+round(l/sqrt(2)),y+round(l/sqrt(2)));
line (x+round(l/sqrt(2)),y,x,y+round(l/sqrt(2)));
end;
var a:Tline;
b:TPLine;
c:TPixel;
gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
a.init(100,100,50);
a.Draw;
b.init(200,200,50);
b.draw;
c.init(300,300,5);
c.draw;
readln;
closegraph; end.
3. Задачи, для самостоятельного решения
Задача 1. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - горизонтальная линия - горизонтально-вертикальное перекрестье.
Задача 2. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - наклонная под углом 45 градусов линия - наклонное перекрестье.
Задача 3. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - окружность - дуга (процедура Arc).
Задача 4. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - эллипс (процедура FillEllipse) - эллиптическая дуга (процедура Ellipse).
Задача 5. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - окружность - сектор (процедура PieSlise).
Задача 6. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - сектор (процедура PieSlise) - эллиптическая дуга (процедура Ellipse).
Задача 7. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - прямоугольник (процедура Rectangle) - трехмерная полоса (процедура Bar3D).
Задача 8. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - заштрихованный эллипс (процедура FillEllipse) - заштрихованный сектор (процедура Sector).
Задача 9. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - окружность - заштрихованный сектор (процедура Sector).
Задача 10. Построить иерархию объектов. Последовательно отобразить объекты, сдвинуть, изменить размеры, спрятать:
Координаты - точка - окружность - эллиптическая дуга (процедура Ellipse).
Задача 11. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - слово. Параметры: текст, длина. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество гласных букв. Определить процент гласных букв в предложении.
Задача 12. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - слово. Параметры: текст, длина. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество согласных букв. Определить процент гласных букв в предложении.
Задача 13. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - слово. Параметры: текст, длина. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество слов, содержащих наибольшее количество гласных букв. Определить процент таких слов в предложении.
Задача 14. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - слово. Параметры: текст, длина. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество слов, содержащих наибольшее количество согласных букв. Определить процент таких слов в предложении.
Задача 15. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - слово. Параметры: текст, длина. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество слов наибольшей длины. Определить процент таких слов в предложении.
Задача 16. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - слово. Параметры: текст, длина. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество слов наименьшей дины. Определить процент таких слов в предложении.
Задача 17. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - предложение. Параметры: массив слов (n<10) и их количество. Методы: конструктор и процедура, определяющая количество слов, длиннее 5 букв. Определить процент слов длиннее 5 букв в заданном тексте.
Задача 18. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - предложение. Параметры: массив слов (n<10) и их количество. Методы: конструктор и процедура, определяющая количество слов, начинающихся с согласных букв. Определить отношение количества слов, начинающихся с согласных букв в заданном тексте, к количеству слов, начинающихся с гласных букв.
Задача 19. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - предложение. Параметры: массив слов (n<10) и их количество. Методы: конструктор и процедура, определяющая количество слов, начинающихся с гласных букв. Определить отношение количества слов, начинающихся с гласных букв в заданном тексте, к количеству слов, начинающихся с согласных букв.
Задача 20. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - слово. Параметры: текст, длина, количество согласных букв. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество гласных букв. Определить количество слов в предложении, в которых согласных букв больше, чем гласных.
Задача 21. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - слово. Параметры: текст, длина, количество гласных букв. Методы: конструктор, определяющий поле текста и длину, и процедура, определяющая количество согласных букв. Определить количество слов в предложении, в которых гласных букв больше, чем согласных.
Задача 22. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - предложение. Параметры: массив слов (n<10) и их количество. Методы: конструктор и процедура, определяющая количество слов 'Тверь' в предложении. Определить процент таких слов в предложении.
Задача 23. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - строительство дома. Параметры: объем работ (в денежном отношении) и процент готовности объекта. Методы: конструктор и процедура, определяющая объем невыполненных работ. Определить самое законченное строительство.
Задача 24. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - адрес. Параметры: массив адресов (n<10) и их количество. Методы: конструктор и процедура, определяющая адресатов, проживающих в каждом городе и их процентное соотношение.
Задача 25. Простые объекты.
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и содержит процедуры, работающие с указанными структурами.
Объект - фотообъектив. Параметры: массив фотообъектив (n<10) и их количество. Методы: конструктор и процедура, определяющая объективы, фокусное расстояние которых - 100 и 120 мм, диаметр равен 80 мм, а материал - LiF и их процентное соотношение.
Лабораторная работа №8
Статические объекты
Цель работы – овладение практическими приемами и навыками разработки программ по работе в графическом режиме. Закрепление основных функций и процедур, применяемых в эьлм режиме. Уяснить различия между текстовым и графическим режимами.
-
Теоретическая часть
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 раза).