Регистрация
sapunovegor22
17.07.2021 08:39
Информатика
Есть ответ 👍

Нарисуйте рисунок машинки с анимацией в qbasic

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

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

vipnikita20199
vipnikita20199
4,8(48 оценок)
12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 screen 12 for x=0 to 640 step 5 cls circle (x,240), 25 circle (x+100,240), 25 line (x+30,+70,240) line (x-50,-30,240) line (x+150,+130,240) line (x+150,+150,190) line (x-50,-50,190) line (x-50,-10,190) line (x+110,+150,190) circle (x+50,190),60 ,, 0 , 3.14 circle (x,240),30 ,, 0 , 3.14 circle (x+100,240),30 ,, 0 , 3.14   next x
Ydalxa534
Ydalxa534
4,5(35 оценок)
Var a.x: integer; write(введите ваше число); readln(x) if(x> 0) then begin a: =x+5; writeln('увеличенное число =',а ); end else writeln('число x =',x) end.

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