Составить программу, которая рисует на экране эллипс указанного размера и осуществляет его движение до нажатия клавиши - Turbo Pascal
Формулировка задачи:
Помогите написать программу - Составить программу , которая рисует на экране в правом нижнем углу желтый элипс предположительного размера и медленно осуществляет движение вверх по диагонали до нажатия клавиши. Цвет фона- голубой. Заранее большое спасибо.
Решение задачи: «Составить программу, которая рисует на экране эллипс указанного размера и осуществляет его движение до нажатия клавиши»
textual
Листинг программы
uses crt,graph; var x,y:integer; begin initgraph(x,y,''); setbkcolor(11); x:=getmaxX-15; y:=getmaxY-10; repeat setcolor(14); ellipse(x,y,0,360,15,10); delay(500); setcolor(11); ellipse(x,y,0,360,15,10); x:=x-4; y:=y-3; until keypressed or(y<10); readln end.
Объяснение кода листинга программы
- В начале кода подключаются необходимые библиотеки crt и graph.
- Переменные x и y инициализируются значением 0.
- Функция initgraph() вызывается с аргументами x, y и пустой строкой, что позволяет задать размер окна графика.
- С помощью функции setbkcolor(11) устанавливается цвет фона графика.
- Задаются начальные координаты для эллипса: x = getmaxX — 15, y = getmaxY — 10.
- Запускается цикл repeat, который будет выполняться до тех пор, пока не будет нажата клавиша или y < 10.
- Внутри цикла устанавливается цвет фона с помощью функции setcolor(14), что соответствует цвету 14 в стандартной палитре цветов Turbo Pascal.
- Вызывается функция ellipse(x, y, 0, 360, 15, 10), которая рисует эллипс с указанными параметрами. Здесь 0 - это тип фигуры (в данном случае эллипс), 360 - это угол эллипса, 15 - это высота эллипса, а 10 - это ширина эллипса.
- После рисунка эллипса с помощью функции delay(500) задерживается выполнение программы на 500 миллисекунд.
- Устанавливается цвет фона с помощью функции setcolor(11), что возвращает исходный цвет.
- Координаты для следующего движения эллипса вычисляются как x = x — 4, y = y — 3.
- Цикл повторяется, пока не будет нажата клавиша или y < 10.
- В конце программы с помощью функции readln() происходит чтение ввода с консоли.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д