Напишите, , программу по которой в pascal будет выводиться анимация перекрестка, по которому проезжают две машины, одна из которых останавливается на светофоре, и когда загорается зеленый свет, она проезжает дальше.

114

140

Посмотреть ответы 2

Ответы на вопрос:

ba150704

Информатика

4,8(37 оценок)

Код pascalabc 3.0 uses graphabc, crt; var x,y,t,v1,v2: integer; c: word; begin write('введите время работы светофора: '); readln(t); write('введите скорость зелёной машины: '); readln(v1); write('введите скорость красной машины: '); readln(v2); lockdrawing; repeat clearwindow; case (c div t) mod 3 of 0: setbrushcolor(clgreen); 1: setbrushcolor(clyellow); 2: setbrushcolor(clred); end; circle(-30+(windowwidth div +(windowheight div 2),10); case (c div t) mod 3 of 2: setbrushcolor(clgreen); 1: setbrushcolor(clyellow); 0: setbrushcolor(clred); end; circle(-40+(windowwidth div 2),30+(windowheight div 2),10); if c< 65535 then c: =c+1 else c: =0; setbrushcolor(clmedgray); fillrect(0,20+(windowheight div 2),windowwidth,-20+(windowheight div 2)); fillrect(20+(windowwidth div 2),0,-20+(windowwidth div 2),windowheight); setbrushcolor(clgreen); fillrect(-13+(windowwidth div +y,13+(windowwidth div 2),y); if ((x+v1< =(windowwidth div 2)-20)or(x-40> =(windowwidth div 2)+20)) then x: =x+v1 else begin if ((y-40> =20+(windowheight div 2))or(y< =(windowheight div 2)-20)) then begin if ((c div t) mod 3 = 2)or(x> (windowwidth div 2)-20) then x: =x+v1 end end; if x> =windowwidth+40 then x: =0; setbrushcolor(clred); fillrect(-40+x,13+(windowheight div 2),x,-13+(windowheight div 2)); if (y+v2< =(windowheight div 2)-20)or(y-40> =(windowheight div 2)+20) then y: =y+v2 else begin if (x-40> =20+(windowwidth div 2))or(x< =(windowwidth div 2)-20) then begin if ((c div t) mod 3 = 0)or(y> (windowheight div 2)-20) then y: =y+v2 end end; if y> =windowheight+40 then y: =0; redraw until false; end.

alsav241357

Информатика

4,7(14 оценок)

(not v) and ((not n and d) or n)

если записывать логики

-v*(n+(-nd)) = -v*+n)(n+d)) = -v*(n+d)

запишем выражение

not v and (n or d)

c++

! v & & (n||d)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.