По информатике! тема: анимация в pascalabc. программу я уже написала, только нужно её исправить и доработать. вот сама программа и мне нужно, чтобы дорога сверху машины была белого цвета и сама машина двигалась, не оставляя за собой "следа": program trafficlight; uses graphabc; procedure b(x: integer); begin setbrushcolor(clgreen); rectangle(750-x,440,450-x,510); line(450-x,440,530-x,380); line(530-x,380,530-x,440); line(530-x,380,750-x,380); floodfill(500-x,410,clgreen); floodfill(640-x,410,clgreen); line(750-x,380,750-x,440); line(640-x,380,640-x,440); setbrushcolor(clblack); circle(540-x,525,30); circle(670-x,525,30); end; begin setwindowsize(800,600); line(0,300,800,300); setbrushcolor(clblack); rectangle(0,0,150,300); setbrushcolor(clblue); rectangle(10,20,60,70); setbrushcolor(clyellow); rectangle(80,20,130,70); setbrushcolor(clblue); rectangle(10,90,60,140); rectangle(80,90,130,140); setbrushcolor(clyellow); rectangle(10,160,60,210); setbrushcolor(clblue); rectangle(80,160,130,210); rectangle(10,230,60,280); rectangle(80,230,130,280); setbrushcolor(clblack); rectangle(160,50,310,300); setbrushcolor(clblue); rectangle(170,70,220,120); rectangle(240,70,290,120); rectangle(170,140,220,190); rectangle(240,140,290,190); rectangle(170,210,220,260); rectangle(240,210,290,260); setbrushcolor(clblack); rectangle(320,40,620,300); setbrushcolor(clblue); rectangle(340,60,390,110); rectangle(340,130,390,180); rectangle(340,200,390,250); rectangle(410,60,460,110); setbrushcolor(clyellow); rectangle(410,130,460,180); rectangle(410,200,460,250); setbrushcolor(clblue); rectangle(480,60,530,110); rectangle(480,130,530,180); rectangle(480,200,530,250); rectangle(550,60,600,110); setbrushcolor(clyellow); rectangle(550,130,600,180); setbrushcolor(clblue); rectangle(550,200,600,250); setbrushcolor(clblack); rectangle(630,30,790,300); setbrushcolor(clblue); rectangle(650,50,700,100); rectangle(650,120,700,170); rectangle(650,190,700,240); rectangle(720,50,770,100); setbrushcolor(clyellow); rectangle(720,120,770,170); setbrushcolor(clblue); rectangle(720,190,770,240); setbrushcolor(clred); rectangle(0,460,800,470); setbrushcolor(clbrown); rectangle(0,300,800,310); setbrushcolor(clblack); rectangle(60,470,80,590); rectangle(40,320,100,470); setbrushcolor(clred); circle(70,350,20); setbrushcolor(clgray); circle(70,395,20); circle(70,440,20); begin for var i: =10 to 270 do begin b(i); sleep(1); end; end; end. знаю, что работа нелёгкая. поэтому максимальное количество .
192
380
Ответы на вопрос:
Программа: var x,z,d: real; begin write('x = '); readln(x); z: =3+x*x-3*x*x*x; writeln('z = ',z); d: =x*(sin(x)+cos(x*x)+abs(x)); writeln('d = ',d); end. пример: x = 3 z = -69 d = 6.68996923852557
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
trybak0307.10.2022 00:31
-
Filippoa120308.04.2021 14:04
-
помощьнужнв14.02.2021 00:36
-
ViKtOrIaSmIrNoVa200701.10.2022 20:26
-
zoriy2214.06.2021 11:50
-
ПолЕчка1111705.02.2023 10:24
-
alesh12345627.03.2021 08:11
-
Влад0909002.06.2021 07:59
-
jiminiry0216.10.2022 20:48
-
AndreevaAS214.08.2021 04:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.