Парфений
4 год назад
Нужна помощь по pascalABCЗадание нарисовать эллипс(вертикальный и горизонтальный) внутри кругаМоя проблема в том, что вместо эллипса рисуется линия. Вот код:program ellipse;uses GraphABC;var xc,yc,x,y,r: integer;beginBrush.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.Пожалуйста посчитайте исправить ошибку
ОТВЕТЫ
Лука
Oct 24, 2020
После 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);
Строки 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);
211
Смежные вопросы: