Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nastriopha1
04.08.2021 07:12 •
Информатика
Pascal ! напишите полный сценарий движения квадрата из точки (100; 100) в точку (150; 150).
Показать ответ
Ответ:
SAMAWHICE
28.09.2020 18:04
//Pascal ABC.NET 3.1 сборка 1219
uses
GraphABC;
Var
i:integer;
begin
for i:=100 to 150 do
begin
clearwindow;
rectangle(i,i,i-30,i-30);
sleep(100);
end;
end.
0,0
(0 оценок)
Ответ:
dashahomjak1
28.09.2020 18:04
//PascalABC.NET 3.1 сборка 1239
uses
GraphABC;
const
side = 15;
var
i: integer;
begin
Window.Init(0, 0, 200, 200, clLightBlue);
Window.CenterOnScreen();
SetBrushColor(clBlue);
for i := 100 to 150 do
begin
ClearWindow(clLightBlue);
Rectangle(i - side, i - side, i + side, i + side);
Sleep(50);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dana0550
04.07.2020 02:42
Чему равна сумма чисел 57 в 8 системы счета и 46в 16...
bektemirova1
25.10.2022 22:24
Для кодирования одного символа в таблице UNICODE надо...
Персик1лайм
20.03.2023 11:19
Нужно решить с пояснением а?...
Макс777333
09.05.2021 08:42
Рассказ о строительстве санк-петербурга от лица петра первого...
Nastya521478
09.05.2021 08:42
Даны высказывания а=идет дождь,б=прогулка отменяется,с= вымок,д=я останусь дома. запишите следующее сложное высказывание на языке логики: f=я не вымокну,если на улице нет...
Aysyiu
14.06.2021 16:11
Дайте развёрнутую характеристику растровых и векторных изображений,указав в ней следующее: а)из каких элементов строится изображение; б)какая информация об изображении сохраняется...
Lenna231
25.08.2020 16:39
Менеджеру по продажам приказали разбить все отремонтированные машины на 2 группы. но, к сожалению, не сказали какие из машин были отремонтированы и сколько в какой группе...
cooldasha11042
11.02.2022 21:08
Что будет результатом работы макроса для документа exel? sublowercase() activecell.value=lcase(activecell.value) endsub а) все буквы текста выбранной ячейки преобразуются...
Yulia475414
11.02.2022 21:08
Формы записи целых отрицательных и положительных чисел.примеры. информатика найти эту тему.мне просто она нужна.с примерами...
ldontknow1
15.09.2021 13:31
Умышленно совершаемое физическим лицом незаконное присвоение или использование чужого произведения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses
GraphABC;
Var
i:integer;
begin
for i:=100 to 150 do
begin
clearwindow;
rectangle(i,i,i-30,i-30);
sleep(100);
end;
end.
uses
GraphABC;
const
side = 15;
var
i: integer;
begin
Window.Init(0, 0, 200, 200, clLightBlue);
Window.CenterOnScreen();
SetBrushColor(clBlue);
for i := 100 to 150 do
begin
ClearWindow(clLightBlue);
Rectangle(i - side, i - side, i + side, i + side);
Sleep(50);
end;
end.