Нужна по pascalabc нарисовать эллипс(вертикальный - вопрос №8599509 от fvrvdv 31.12.2022 20:53

Question

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

fvrvdv · Answer

После 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);