Уроки информатики - Графические возможности языка Pascal

Графические возможности языка 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