Добавить движение колёс машины - Turbo Pascal
Формулировка задачи:
Сделал машинку, добавил движение вправо. Нужно добавить движение колёс, либо что бы на вправо заезжала и слева выезжала. Не могу разобраться как что то одно из этого сделать.
Решение задачи: «Добавить движение колёс машины»
textual
Листинг программы
.... SetBkColor(Black); {fon} SetColor(15); {cvet mashinka} u := -600; while not keypressed do begin {do kyda edet} line(102 + u, 199, 201 + u, 194); {bagashnik} arc(98 + u, 215, 90, 270, 7); {zadnyaya fara} arc(158 + u, 220, 160, 260, 60); {zadniy bamper} line(202 + u, 193, 250 + u, 150); {zadnee steklo} line(210 + u, 195, 253 + u, 155); {bokovoe steklo} line(253 + u, 155, 352 + u, 155); line(352 + u, 155, 440 + u, 195); line(210 + u, 195, 440 + u, 195); line(315 + u, 155, 315 + u, 195); line(250 + u, 150, 350 + u, 150); {krisha} line(350 + u, 150, 450 + u, 196); {lobovoe steklo} line(450 + u, 196, 558 + u, 210); {kapot} line(150 + u, 195, 139 + u, 165); {spoiler} line(128 + u, 197, 117 + u, 165); line(98 + u, 165, 93 + u, 155); line(158 + u, 165, 153 + u, 155); line(98 + u, 165, 117 + u, 165); line(140 + u, 165, 158 + u, 165); line(93 + u, 155, 153 + u, 155); arc(550 + u, 266, 365, 80, 57); {peredniy bamper} line(607 + u, 280, 570 + u, 280); line(607 + u, 280, 607 + u, 260); line(570 + u, 280, 549 + u, 280); {dno} line(471 + u, 280, 225 + u, 280); circle(510 + u, 280, 38); {perednee koleso} circle(510 + u, 280, 23); circle(187 + u, 280, 38); {zadnee koleso} circle(187 + u, 280, 23); line(315 + u, 195, 315 + u, 260); {dveri} line(310 + u, 260, 240 + u, 260); line(240 + u, 260, 210 + u, 195); line(310 + u, 260, 440 + u, 260); line(440 + u, 260, 440 + u, 195); line(0, 350, 1000, 350); {doroga} delay(200); {men`she mercaet} u := u + 10; {skorost` dvizheniya} if u >= 550 then u := -600; ClearViewPort; end; ...
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д