Нужна по pascalabc нарисовать эллипс(вертикальный и горизонтальный) внутри круга моя проблема в том, что вместо эллипса рисуется линия. вот код: program ellipse; uses graphabc; var xc,yc,x,y,r: integer; begin brush.style: = bsclear; writeln('введи центр окружности'); readln(xc,yc); writeln('введи радиус окружности'); readln(r); x: = xc; y: = yc; circle(x,y,r); ellipse(x,y+r,x,y-r); ellipse(x-r,y,x+r,y); end. исправить ошибку
Строки ellipse(x,y+r,x,y-r); ellipse(x-r,y,x+r,y); замените на следующие:
ellipse(x-r,y-yc,x+r,y+yc); ellipse(x-xc,y-r,x+xc,y+r);