Ответы на вопрос:
uses graph; {подключен модуль graph}var x,y,h: integer; procedure grinit; {процедура инициализации режима графики}var graphdriver: integer; {для графического адаптера} graphmode : integer; {для графического режима} errorcode : integer; {для кода ошибки}begin graphdriver : =detect; {режим автоопределения} initgraph(graphdriver ,graphmode,''); {инициализация} errorcode : =graphresult; {результат инициализации} if errorcode < > grok then {если не успешно,} begin writeln('ошибка графики: ',grapherrormsg(errorcode )); writeln('программа остановлена.'); halt(1) end {if}end; begin grinit; {вызов инициализации} x: =getmaxx div 2; y: =getmaxy div 2; h: = 30; {кол-во шагов до финиша} while x+y> 0 do begin cleardevice; circle(x, y, 10); delay(100); x: = x + getmaxx div h; y: = y - getmaxy div h; end; readln; {пауза до нажатия } closegraph; {закрытие графического режима}end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
jelenazeile04.10.2020 13:34
-
eva30109.11.2022 09:53
-
kcybulina21.12.2021 10:51
-
limswildep09q0c02.04.2022 13:55
-
кракодиллох210.01.2021 19:00
-
Fgreep20.09.2020 21:12
-
Anastasia1666611.11.2022 03:02
-
Варя1милаха18.07.2021 13:16
-
Galor06.06.2023 07:33
-
az096784806.05.2022 12:43
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.