Написать программу, которая вычерчивает окружность зеленой линией в центре экрана - Turbo Pascal
Формулировка задачи:
1. Написать программу, которая вычерчивает окружность зеленой линией в центре экрана
Решение задачи: «Написать программу, которая вычерчивает окружность зеленой линией в центре экрана»
textual
Листинг программы
SetColor(Green); Circle(GetMaxX div 2,GetMaxY div 2, Radius);
Объяснение кода листинга программы
SetColor(Green);- устанавливает цвет текста и фона на зеленыйCircle(GetMaxX div 2,GetMaxY div 2, Radius);- рисует окружность на экране, используя координаты центра и радиусGetMaxX;- получает максимальное значение XGetMaxY;- получает максимальное значение YRadius;- получает значение радиуса окружности