Составьте программу, которая выполняет чертёж - 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.

Объяснение кода листинга программы

  1. Объявлены константы n, w, h, которые задают размеры окна и линий.
  2. Задаются размеры окна и устанавливается цвет заливки и обводки.
  3. Задаются линии, которые разделяют окно на сетку.
  4. Устанавливаются параметры линии для выделения отдельных ячеек.
  5. Рисуются линии для выделения отдельных ячеек.
  6. Устанавливаются параметры линии для выделения границ ячеек.
  7. Рисуются границы ячеек.
  8. Рисуется прямоугольник в середине окна.
  9. Устанавливаются параметры линии для выделения контуров ячеек.
  10. Рисуются контуры ячеек.
  11. Рисуются дуги для выделения углов ячеек.
  12. Рисуется линия для выделения середины ячеек.
  13. Рисуются окружности для выделения отдельных ячеек.
  14. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.429 из 5
Похожие ответы