Напишите код для программы pascal abc (машинку какую-нибудь) только не сильно длинный код
Ответы на вопрос:
uses
graphabc;
begin
setwindowwidth(800); //ширина окна
setwindowheight(600); //высота окна
setpenwidth(3);
roundrect(200, 300, 600, 350, 20, 20); //кузов машины
floodfill(400, 320, clnavy);
circle(290, 350, 30); //переднее колесо
floodfill(300, 360, clblack);
circle(510, 350, 30); //заднее колесо
floodfill(520, 360, clblack);
begin
setpenwidth(3);
line(300, 300, 340, 250);
line(340, 250, 470, 250);
line(470, 250, 510, 300);
line(405, 250, 405, 350);
line(510, 300, 510, 320);
line(300, 300, 300, 320);
line(380, 310, 390, 310);
line(480, 310, 490, 310);
line(300, 300, 510, 300);
end;
begin
setpencolor(clgray); //цвет кисти
setpenwidth(15); //размер кисти
circle(510, 350, 10); //заднее колесо
circle(290, 350, 10); //переднее колесо
end;
begin
setpenwidth(3);
setpencolor(clyellow);
circle(100, 100, 30);
floodfill(110, 110, clyellow);
line(140, 120, 200, 150);
line(130, 135, 150, 160);
line(120, 140, 140, 190);
line(105, 145, 110, 170);
line(95, 145, 90, 190);
end;
begin
setpenwidth(20);
setpencolor(clgreen);
line(0, 385, 800, 385);
setpenwidth(3);
setpencolor(clolive);
rectangle(0, 385, 800, 600);
floodfill(110, 390, clolive);
end;
end.
0
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Kuro11123.10.2021 04:35
-
panaitov022115.05.2020 19:47
-
стев09.06.2022 17:19
-
Reshebnikov22.04.2020 10:26
-
А1А2А3А29.01.2020 12:46
-
Руся2003129.02.2020 09:43
-
dol271116.10.2020 13:27
-
Dia300801.06.2023 16:49
-
tylkerwest02.05.2021 21:00
-
ruuuuuyslan26.07.2020 14:37
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.