Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
umrina985
08.01.2023 16:05 •
Информатика
Может кто знает как рисовать флаг швейцарии или дании в delphi
Показать ответ
Ответ:
ColyaBRO
08.07.2020 07:22
Дания:) Написать в OnPaint
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
Canvas.FillRect(Rect(10, round(2 * 200 / 2) - 25, 3 * 200 + 10, round(2 * 200 / 2) + 25));
0,0
(0 оценок)
Популярные вопросы: Информатика
Ol3ksa
22.09.2021 21:04
Сочинение робототехника и техническое творчество в образовательном дошкольной организации...
eliza1404
04.06.2022 16:00
Чему равно выражения (15 div 7) mod 2...
Сметана011
22.12.2021 20:57
Напиши программу Угадай число с использованием только конструкции if-else...
dashamaer1
08.06.2020 11:30
Для следующих значений исходных данных x=1 a=1,12 w=29. Составить программу, которая вычисляетy = 4а^2 + [b^3 + x(a^4 +x)] и c=2(a+x+3/2b)-sin x^4+2x^2...
GolduckChannel
05.11.2020 08:30
Написать программу обмена переменных x и y , без использования дополнительных велечин , ( это надо делать в pascal)...
alesyamorozova
18.11.2022 03:20
Подскажите это нормально у других комп при включении долго включается,например там загрузка виндовс ,а у меня я жму на кнопку включения и сразу же черный экран 5секундная...
вёдра
28.03.2020 23:56
Объясните смысл утверждения: количество информации содержащейся в газете состпвляет 240000 трит...
polinaguskova
19.10.2022 02:54
Заполните таблицу в тетради. Напишите функции кнопок гиперссылок....
sallga
18.07.2022 12:10
Требуется написать программу, которая вводит с клавиатуры координаты точки на плоскости (х, у — действительные числа) и определяет принадлежность точки за штрихованной...
20yanushkevich04
12.11.2020 20:32
Влавке водяной крысы 6 ящиков с желудями. ящики весят 11,10,9,8,7 и 6 кг. два диких кабана преобрели 5 ящиков, причем обоим достался одинаковый вес желудей. какого...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
Canvas.FillRect(Rect(10, round(2 * 200 / 2) - 25, 3 * 200 + 10, round(2 * 200 / 2) + 25));