Как нарисовать машину в программе паскаль

Новые вопросы по информатике

Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536

Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat

Сколько кб информации содержит сообщение объемом 2^20 бит?

Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его

Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.

Главная » Информатика » Помогите нарисовать машину в паскале из разных фигур Так что бы изменять координаты и она двигалась

Источник: urokam.net

Как нарисовать машину в программе паскаль

«. В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал. »

Рисуем в среде программирования Pascal

(c) Юрий Клинских aka «Хой»

Регистрация: 01.12.2010
Сообщений: 5

Спасибо)) но машина у меня есть)) у меня с мигалкой проблема, не знаю как сделать чтобы мигалка мигала.

Made In USSR!
Регистрация: 01.09.2010
Сообщений: 3,657

крась ее то в синий то в черный)

«. В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал. »
(c) Юрий Клинских aka «Хой»

Источник: www.programmersforum.ru

Нарисовать картинку машины через процедуры подпрограммы в Pascal

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.

Илона Подорожкина Отвечено 23 сентября 2019

• ‘ data-html=»true»> Поделиться
• Комментариев (0)

Источник: matfaq.ru