Предмет: Информатика,
автор: aedic
Составить программу для вывода в рабочее поле следующего графического изображения. Верхний левый угол
квадрата имеет координаты (0, 0), сторона квадрата – 200 пикселей. Количество линий и окружностей должно точно
соответствовать изображению на рисунке.
Приложения:

Ответы
Автор ответа:
0
Ответ:
Подключаем библиотеку...
- uses graphABC;
Объявляем константы... x - сторона квадрата, c - кол. линий.
- const x = 200; c = 10;
Объявляем начало работы программы:
- begin
Рисуем прямоугольник с противоположными вершинами (0;0) и (200;200):
- rectangle(0, 0, x, x);
Создаём цикл от 0 до с-1 (но по сути он пробегает с раз; с-1 для того чтобы потом -1 не лепить со скобками):
- for var i := 0 to c - 1 do
Рисуем линию от точки (i * x div c; x - 1) до (x -1; i * x div c):
- line(i * x div c, x - 1, x - 1, i * x div c);
...("x - 1" из-за того, что pen.width = 1)
Объявляем конец работы программы:
- end.
Приложения:

Похожие вопросы
Предмет: Английский язык,
автор: 11vlad3100
Предмет: Английский язык,
автор: anastasiyachaban
Предмет: Химия,
автор: Limone
Предмет: Алгебра,
автор: fghb123
Предмет: Математика,
автор: ProstoRina17