Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
konsantin1805
24.08.2022 17:10 •
Информатика
Нарисовать картинку машины через процедуры подпрограммы в pascal
Показать ответ
Ответ:
яна1766
08.10.2020 04:12
Uses graphabc;
begin // Кузов
Rectangle(340,220, 540, 300);
// Багажник
Rectangle(140,140, 340, 300);
FloodFill(220, 220, clBrown); // Закразка кузова
FloodFill(460, 260, clGray); // Закразка багажника
// Дверь в кабину
Rectangle(220,180, 300, 260);
Circle(280, 220, 10); // Ручка двери
// Фара
Circle(140, 260, 10);
// Первое колесо
Circle(220, 340, 40);
// Второе колесо.
Circle(420, 340, 40);
// Дорога
Line(60,380, 560, 380);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
4443468234763399
06.01.2020 07:57
Які програми належать до систем програмування? Наведіть приклади...
Lara138009
16.05.2022 04:17
Известно количество жителей государства и площадь ее территории.определить плотность населения в этом государстве.написать решение в программе паскаль авс...
hhhttt1520
23.06.2021 02:00
Анимация мен кескинин кандай?...
МандаринкА487
15.03.2020 18:47
На вход программы подается количество вводимых чисел, а затем сами числа. Определить сколько вводимых чисел кратных 13. Вывести количество этих чисел. 2) На вход программы подается...
kavilochka
09.12.2021 08:48
Язык - PythonШахматная доскаДаны два числа n и m. Создайте двумерный массив размером n×m и заполните его символами 1 и 0 в шахматном порядке. В левом верхнем углу должна стоять единица.Данную...
matkazina
28.04.2023 22:36
Укажите шину отвечающую за передачу данных между устройствами а) шина данных б) шина адреса в) шина г) шина команд...
ариариииирпа
23.02.2022 15:08
Если возможно, сделайте вывод из каждой пары суждений: 1) все ученики 8 класса - отличники бехзод учится в 8 классе 2) некоторые предметы трудные ; надо уделить к ним внимание 3)...
Oladushek3000
22.03.2020 21:26
осталось 40 минут осталось 40 минут >...
Mei29
18.03.2021 05:51
когда проводил профилактику пк, вырвал кулер с процессором(амд райзен 2200г) после чего успешно его отодрал, и вставил на место, проц нагреваеться, но не появляеться изображение,...
edshabashenko
15.02.2022 13:10
Чим відрізняється лінійний фрагмент алгоритму від розгалуження...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin // Кузов
Rectangle(340,220, 540, 300);
// Багажник
Rectangle(140,140, 340, 300);
FloodFill(220, 220, clBrown); // Закразка кузова
FloodFill(460, 260, clGray); // Закразка багажника
// Дверь в кабину
Rectangle(220,180, 300, 260);
Circle(280, 220, 10); // Ручка двери
// Фара
Circle(140, 260, 10);
// Первое колесо
Circle(220, 340, 40);
// Второе колесо.
Circle(420, 340, 40);
// Дорога
Line(60,380, 560, 380);
end.