Uses graph;
var t:real
x,y:integer;
const r1=50;
r2=100;
begin
t:=0;
initgrapth({сам графику инициализируй});
x:=0;
y:=0;
repeat
t:=t+pi/500; {число можно и поменьше поставить если линия прерывается}
x:=round(r1*cos(t));
y:=round(r2*sin(t));
putpixel(320+x,240+y,15)
unril t>=2*pi;
readln;
closegraph;
end.
Построение графика - эллипс (Pascal)
Построить график. Эллипс с большой и малой полуосями, равными соответственно r1 и r2, расположенными параллельно осям х=r1cost y=r2sint t[0;2Pi]. Напишите пожалуйста программу полностью!!!! :roll:
1) все вопросы решите за меня постите в разделе Студентам
2) тема топика должна отржать суть вопроса, в следущий
раз без предупреждения удалю ветку
Цитата:
Originally posted by Lidun
Построить график. Эллипс с большой и малой полуосями, равными соответственно r1 и r2, расположенными параллельно осям х=r1cost y=r2sint t[0;2Pi]. Напишите пожалуйста программу полностью!!!! :roll:
Построить график. Эллипс с большой и малой полуосями, равными соответственно r1 и r2, расположенными параллельно осям х=r1cost y=r2sint t[0;2Pi]. Напишите пожалуйста программу полностью!!!! :roll:
Так у тебя же всё написано по сути =)
Эхх, не судьба мне сегодня выспаться
Щас напишу, но проверять на ошибки не буду, спать охота.
Код: