→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Доделать программу: эллипс задается коэффициентами общего.. 
Автор Сообщение
Начинающий

Регистрация: 21.12.2011
Сообщения: 1

Репутация: 0 [ ? ]
Сообщение Доделать программу: эллипс задается коэффициентами общего..
Помогите пожайлуста доделать программу: эллипс задается коэффициентами общего уравнения , изобразить его на координатной плоскости! Мне нужно чтобы эллипс мог находиться не только в середине координатной системы но и имел центр либо на оси ОУ либо на оси ОХ(то есть сдвигался по оси)!! Вот что у меня есть:
uses graph,crt;
var gd,gm,i,l,a,b,x1,y1,x0,y0,x,y:integer;
s:string; t:real;

begin
writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё¬ вл Ў®«ми®© Ё ¬ «®© ®бЁ н««ЁЇб ');
write('a=');
readln(a);
write('b=');
readln(b);
if a>b then
writeln('Љ®®а¤Ё¬ вл д®Єгб (-',sqrt(a*a-b*b):2:2,'; 0) (',sqrt(a*a-b*b):2:2,'; 0)');
readln;

gd:=detect;
initgraph(gd,gm,'');
setbkcolor(0);
setcolor(15);
line(0,240,640,240); {osi kordinat}
line(320,0,320,480);

l:=0; {Razbienie osi Ox}
for i:=-8 to 8 do
begin
line(l,240-3,l,240+3); {provodim delenie}

if i<>0 then
begin
str(i*40,s); {operator perevoda iz zelogo v clovo}
if i>0 then outtextxy(l-3,240+10,s) {pichet na ekrane 4islo}
else outtextxy(l-10,240+10,s);
end;
l:=l+40;
end;

l:=480; {Razbienie osi Oy}
for i:=-6 to 6 do
begin
line(320-3,l,320+3,l);

if i<>0 then
begin
str(i*40,s); {operator perevoda iz zelogo v clovo}
if i>0 then outtextxy(320-30,l-3,s) {pichet na ekrane 4islo}
else outtextxy(320-33,l-3,s);
end;
l:=l-40;
end;

x0:=320;
y0:=240;
setcolor(4);
moveto(x0+a,y0);
while t<=2*pi do
begin
x:=round(a*cos(t));
y:=round(b*sin(t));
lineto(x0+x,y0-y);
t:=t+0.001;
end;
readkey;
closegraph;
end.


21.12.2011 19:14
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»