Эллипс на Паскале
Решим задачу построить графика эллипса с большой и малой полуосями, равными соответственно r1 и r2, расположенными параллельно осям х=r1cost y=r2sint t[0;2Pi]. Для решения воспользуемся языком Pascal
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.
------------------------------
Многие фанаты кино всегда ищут саундтреки к фильмам, которые произвели на них впечатление.
Такая услуга, какудаление высолов [...]
