Var x1,y1,x2,y2,i:integer; begin maximizewindow; line(0,300,windowwidth,300); line(300,0,300,windowheight); y2:=300; x2:=300; setpencolor(clblue); for i:=0 downto -3 do begin x1:=x2; y1:=y2; x2:=i*5 300; y2:=(-sqr(x2-300) 300); line(x1,y1,x2,y2); end; y2:=300; x2:=300; for i:=0 to 3 do begin x1:=x2; y1:=y2; x2:=i*5 300; y2:=(-sqr(x2-300) 300); line(x1,y1,x2,y2); end; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
