Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
devyticlassnicadf17
17.06.2020 04:20 •
Информатика
Abc pascal нарисовать квадрат в котором будет двигаться по диагонали круг
Показать ответ
Ответ:
Annuta88
15.09.2020 23:34
Uses graphABC;
Var
x,y,i:integer;
begin
x:=100;
y:=100;
rectangle(x,y,x+100,y+100);
for i:=1 to 100 do
begin
rectangle(x,y,x+100,y+100);
setpencolor(clwhite);
circle(x+i-1,y+i-1,11);
setpencolor(clblack);
circle(x+i,y+i,10);
sleep(100);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MariaSet010203
21.02.2020 04:41
Зробити електронну таблицю, в якій виконано завдання. Бурова вишка знаходиться за 9 км від шосе. З неї потрібно направити гінця в місто, що розташоване за 15 км далі по шосе. Велосипедист...
aminoshkina
21.06.2021 20:47
Зробити електронну таблицю, в якій виконано завдання. Для виготовлення однієї книжкової полички потрібно 5 дошок довжиною 70 см та 3 дошки довжиною 80 см.У цех постачаються дошки...
aminyl
19.04.2021 21:17
Зробити електронну таблицю, в якій виконано завдання. Якого розміру має бути відкритий бак у формі прямокутного паралелепіпеда з об’ємом 13,5 м3, щоб на його виготовлення йшло якомога...
ViktorVivat
22.03.2022 05:41
последние отдаю. Нужно написать программу в Паскале: Упорядочить элементы каждой строки заданной матрицы А(5, 4), расположив их в матрице В(5, 4) по убыванию. Полученную матрицу напечатать...
Hrachuk
04.03.2022 10:35
Нужно написать программу на paskal abc одномерного массива данных на 100 единиц, и создать алгоритм поиска максимального и минимального значения и поменять их местами....
mussay86
04.03.2022 10:35
Pascal: двухмерный массив. в метании молота состязается n спортсменов. каждый из них сделал m бросков. победителем считается тот спортсмен, у которого сумма результатов по всем броскам...
PetrovnaSasha
29.01.2021 03:08
Рассмотрите таблицу в которой указаны расстояния между посёлками Семёново, Петровское, Ершово, Пруды и Выселки Определите все пути от Семёново до ВыселокНайдите самый короткий из...
angelicafifa
21.01.2022 15:10
Грузовик и мотоциклист встретились в определенный момент времени и продолжили движение дальше в противоположном направлении. Составьте код программы, в котором вычисляется расстояние...
Зефирка170504
24.03.2021 03:11
20 , через участок тиберия его сосед луций прогоняет скот, ссылаясь на якобы закрепленное за ним право прогона. какой из исков может применить тиберий для защиты своего права: 1 виндикационный...
рузмохинур
24.03.2021 03:11
125 в 6 степени разделить на 25 в 8 степени.много ,проверить себя хочу....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
x,y,i:integer;
begin
x:=100;
y:=100;
rectangle(x,y,x+100,y+100);
for i:=1 to 100 do
begin
rectangle(x,y,x+100,y+100);
setpencolor(clwhite);
circle(x+i-1,y+i-1,11);
setpencolor(clblack);
circle(x+i,y+i,10);
sleep(100);
end;
end.