Регистрация
qwert050749
Есть ответ 👍

Program krug; uses graphabc; var x,y,dx,dy,r: integer; begin x: =50; y: =50; dx: =1; dy: =1; r: =50; repeat ellipse(x,y,x+r,y+r); x: =x+dx; clearwindow; if x> 400 then begin dx: =0; y: =y+dy; end; if y> 400 then begin dy: =0; dx: =-1; x: =x+dy; end; if x< 50 then begin dx: =0; dy: =-1; y: =y+dy; end; if y< 50 then break; setbrushcolor(clblack); ellipse(x,y,x+r,y+r); until x< 49; end. перепишите мне вот эту программу чтобы круг после завершения пошёл ещё направо и без мерцаний. нужно

184
309
Посмотреть ответы 1

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

алина3539
алина3539
4,5(91 оценок)

Эстетика Синего.

Популярно: Другие предметы