Нужна по 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. исправить ошибку

taush taush    1   16.09.2019 22:50    2

Ответы
Эльмаз07 Эльмаз07  21.08.2020 09:53
После circle(x,y,r);   добавьте строки     xc:=r div 2;  yc:=xc;
Строки   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);
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика