Графические возможности языка Pascal
Перечень графических процедур и функций языка паскаль можно посмотреть в приложении 3 учебника (стр.148-149) и в справочнике среды программирования в разделе Стандартные модули - Модуль GraphABC.
1.1 Построение отрезка
Перепишите в тетрадь текст программы и нарисуйте чертёж. Наберите программу на компьютере и сохраните в файле с именем по образцу ФИ_Prg_1_1.pas (ФИ -фамилия и имя).
Пример 1
{
Нарисовать отрезок AB с координатами A(50, 100) и B(350, 200).
Отрезок рисовать красным цветом с толщиной линии в 3 пикселя.
Для вывода использовать окно размером 400x300 пикселей.
}
PROGRAM Prim_1_1;
USES GraphABC;
BEGIN
SetWindowSize(400, 300);
SetPenWidth(3);
SetPenColor(clRed);
Line(50, 100, 350, 200); {AB}
END.
Рисование многоугольника
uses
GraphABC;
var
P: array of point;
begin
SetWindowSize(450, 250); //Размеры окна
SetLength(P, 4); //Количество вершин ломаной
SetPenWidth(10); //Толщина линии ломаной
SetPenColor(clGreen); //Цвет ломаной
{ Задаем координаты вершин: }
p[0].X := 50; p[0].Y := 80;
p[1].X := 350; p[1].Y := 50;
p[2].X := 400; p[2].Y := 120;
p[3].X := 150; p[3].Y := 200;
DrawPolygon(P) //Рисуем ломаную
end.
1.2 Построение фигур
Задача
Постройте в тетради чертеж фигур, показанных на рисунке.
Укажите экранные координаты всех точек (как в Примере 1). Размер одной клетки - 50 пикселей.
Составьте программу построения фигур. Программу сохраните в файле с именем по образцу ФИ_Prg_1_2.pas
Рисунок 1
Рисунок 2
Рисунок 3
Рисунок 4