Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Natasha1678
14.06.2021 03:05 •
Информатика
Pascal ! напишите полный сценарий движения квадрата из точки (100; 100) в точку (150; 150).
Показать ответ
Ответ:
Rollov35
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 оценок)
Ответ:
ярослав6рюховецкий
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 оценок)
Популярные вопросы: Информатика
Mist3YT
28.02.2022 10:23
Обчислити значення функції F (х) на відрізку [а,b] з кроком h...
SkyZee
13.05.2020 08:30
Алгоритм вычисления значения функцииF(n), где n-натуральное число, задан следующими соотношениями: F(n)=2 при n≤0; F(n)=F(n-2)+F(n-1)+F(n div2) при n 0. Требуется выяснить,чему...
Madi12kz
01.02.2021 19:20
решить задачу c++ Вы создаете программу для автобусной службы. Автобус может перевозить 50 пассажиров за один раз. Вам дано количество пассажиров, ожидающих на автобусной...
filltema
23.07.2021 05:58
Какая характеристика определяет количество битов, выделяемых для записи каждого результата измерений исходного звукового сигнала...
10584869678
01.08.2022 04:42
Составить алгоритм и программу вывода на экран таблицы значений y: y=sin3x для всех значений x от 1 до 2 с интервалом 0,3....
teymurnadjafov
26.05.2020 06:44
Білу және түсіну 1. Сценарий дегеніміз не?2. Сыныптағы бір іс-шараның сценарийін жасаңдар. Сценарий дайындаудың қандай ерекшеліктері бар?3. Анимацияның сценарийі мен...
Паша2204
04.07.2020 16:16
Как можно сделать ? надо записать пять произведений, значение каждого из которых равно 0, а один из множителей не равен 0...
McMamon
04.07.2020 16:16
Составить предложения из слов первое предл. : жёсткие,и,ветры,колючие,в,голых,макушках,гуляли,деревьев. 2 предложение : с,еловых,падали,на,снеговые,лап,землю,шапки....
elf35
04.07.2020 16:16
Обмен веществ это пройесс а. поступления веществ в организм б. удаление из организма непереваренных остатков в. удаление жидких продуктов г. потребление, пещеварение,...
Onishykmaksim
04.07.2020 16:16
Этот материк находится только в двух полушариях 1) австралия 2) антарктида 3) африка 4) южная америка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.