Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2009, 17:45   #1
StakanpORTvejna
Пользователь
 
Регистрация: 31.08.2007
Сообщений: 37
По умолчанию Взаимное расположение окружностей изобразить

Код:
x1:=StrToFloat(Edit1.Text);
x2:=StrToFloat(Edit4.Text);
y1:=StrToFloat(Edit2.Text);
y2:=StrToFloat(Edit5.Text);
r1:=StrToFloat(Edit3.Text);
r2:=StrToFloat(Edit6.Text);

dlina:=sqrt(sqr(abs(x2-x1))+sqr(abs(y2-y1)));
if (dlina=(r1+r2)) then  label8.caption:='Окружности имеют одну общую точку.'
else if (dlina<(r1-r2)) then  label8.caption:='Одна окружность лежит внутри другой.'
else if (dlina=r1-r2) then  label8.caption:='Одна окружность касается другой изнутри'
else if (dlina>r1-r2) and (dlina <r1+r2) then label8.caption:='Окружности пересекаются.'
else if dlina >r1+r2 then    label8.caption:='Одна окружность лежит вне другой. ' ;
вот этот участок определяет как окружности расположены,а как на чарте нарисовать расположение окружностей?(
StakanpORTvejna вне форума Ответить с цитированием
Старый 20.05.2009, 17:17   #2
StakanpORTvejna
Пользователь
 
Регистрация: 31.08.2007
Сообщений: 37
По умолчанию

как вообще окружность то нарисовать?(что-то не понимаю как изобразить окружности в системе координат..если просто рисовать через форм.канвас то бред получается
StakanpORTvejna вне форума Ответить с цитированием
Старый 21.05.2009, 08:46   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

на Дельфи?
нарисовать прямо на форме?
x1,y1 - координаты центра первой окружности,
а r1 - её радиус?

типа так:
Код:
  
  Canvas.Brush.Style := bsClear;
  x1:=70; y1:= 70; r1 := 70;
  x2:=90; y2:= 150; r2 := 50;

  Form1.Canvas.Pen.Color := clBlue;
  Form1.Canvas.Ellipse((x1-r1), (y1-r1), (x1+r1), (y1+r1));
  Form1.Canvas.Pen.Color := clRed;
  Form1.Canvas.Ellipse((x2-r2), (y2-r2), (x2+r2), (y2+r2));

Последний раз редактировалось Serge_Bliznykov; 21.05.2009 в 08:51.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 21.05.2009, 13:57   #4
StakanpORTvejna
Пользователь
 
Регистрация: 31.08.2007
Сообщений: 37
По умолчанию

на дельфи.
а как по введённым данным построить и на каком компоненте удобней?тоесть введён например центр 1;1 и радиус 4..и как это строить?
StakanpORTvejna вне форума Ответить с цитированием
Старый 21.05.2009, 17:21   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

А скажите честно, Вы в моём предыдущем сообщении код видите?! он у Вас две окружности на форме нарисовал!?
В этом коде x1 и y1 задают центр окружности.. r1 - её радиус...
я не пойму, в чём вопрос?! o_O ;(
Serge_Bliznykov вне форума Ответить с цитированием
Старый 21.05.2009, 18:26   #6
StakanpORTvejna
Пользователь
 
Регистрация: 31.08.2007
Сообщений: 37
По умолчанию

а,ну всё понял)а как на компоненте tchart нарисовать?(
StakanpORTvejna вне форума Ответить с цитированием
Старый 21.05.2009, 21:35   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
как на компоненте tchart нарисовать?(
ага. Теперь я понял, в чём проблема... Сорри, c TChart ничего не подскажу... ;(

p.s. (и я вообще считал, что TChart — это компонент, который строит диаграммы! (наглядное изображение к.-либо отношений данных) )
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сопряжение окружностей GibiW Мультимедиа в Delphi 5 06.04.2009 23:18
Как изобразить вращение прямых в псевдографике? Иллидан Паскаль, Turbo Pascal, PascalABC.NET 4 20.10.2008 16:23
Как изобразить в алгоритме!!?? Шурик Общие вопросы Delphi 0 23.10.2007 00:10
Добавление окружностей ivp88 Помощь студентам 3 14.02.2007 16:31