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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: Google [Bot]


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

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