Составьте программу, которая выполняет чертёж - PascalABC.NET
Формулировка задачи:
Составьте программу, которая выполняет чертёж одной из деталей и высчитывает ещё площадь. Масштаб: 1 клетка - 20 пикселей.
Решение задачи: «Составьте программу, которая выполняет чертёж»
textual
Листинг программы
Uses GraphABC; Const n = 20; w = 16; h = 10; Begin Window.Width := w * n; Window.Height := h * n; Brush.Color := clTransparent; Pen.Color := clSilver; For var i := 1 to Pred(w) do Line(i * n, 0, i * n, Window.Height); For var i := 1 to Pred(h) do Line(0, i * n, Window.Width, i * n); Pen.Width := 2; Pen.Color := clGray; Pen.Style := psDot; Line(0, 5 * n, Window.Width, 5 * n); Line(4 * n, n, 4 * n, 9 * n); Line(8 * n, n, 8 * n, 9 * n); Line(12 * n, n, 12 * n, 9 * n); Rectangle(n, 2 * n, 15 * n, 8 * n); Pen.Width := 3; Pen.Color := ClBlack; Pen.Style := psSolid; Arc(4 * n, 5 * n, 3 * n, 90, 270); Arc(12 * n, 5 * n, 3 * n, -90, 90); Line(4 * n, 2 * n, 12 * n, 2 * n); Line(4 * n, 8 * n, 12 * n, 8 * n); Circle(4 * n, 5 * n, n); Circle(12 * n, 5 * n, n); End.
Объяснение кода листинга программы
- Объявлены константы n, w, h, которые задают размеры окна и линий.
- Задаются размеры окна и устанавливается цвет заливки и обводки.
- Задаются линии, которые разделяют окно на сетку.
- Устанавливаются параметры линии для выделения отдельных ячеек.
- Рисуются линии для выделения отдельных ячеек.
- Устанавливаются параметры линии для выделения границ ячеек.
- Рисуются границы ячеек.
- Рисуется прямоугольник в середине окна.
- Устанавливаются параметры линии для выделения контуров ячеек.
- Рисуются контуры ячеек.
- Рисуются дуги для выделения углов ячеек.
- Рисуется линия для выделения середины ячеек.
- Рисуются окружности для выделения отдельных ячеек.
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д