Вопрос по информатике:
Нужна помощь по 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.
Помогите исправить ошибку
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.03.2017 15:04
- Информатика
- remove_red_eye 3186
- thumb_up 40
Ответы и объяснения 1
Строки 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);
- 28.03.2017 02:04
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.