Окружность.. - Помощь студентам

surovii · 21.03.2009, 15:23

как определить пересекает ли окружность ось Y?

OCTAGRAM · 21.03.2009, 15:34

Код:

if (x - R <= 0) and (x + R >= 0) then {...}

surovii · 21.03.2009, 17:41

спасибо
а как понять вот это условие:дано множество колец, центры которыхвыше оси абсцисс, найти кольцо с наименьшим отношениемплощади к ширине кольца?

Jean-Esther · 21.03.2009, 20:51

Это условие означает то, что среди набора колец, однозначно заданных каким либо образом (предполагаю, координатами центра и радиусом), необходимо найти такое кольцо, для которого отношением площади к ширине (полагаю, к диаметру) наименшее.
for i:=1 to n do if min>(pi*r*r/(2*r)) then begin min:=(pi*r/2); p:=i end; write(p);

Sazary · 21.03.2009, 20:58

Цитата:

Сообщение от Jean-Esther

необходимо найти такое кольцо, для которого отношением площади к ширине (полагаю, к диаметру) наименшее.

А раз это отношение прямопропорционально радиусу (pi*r*r/(2*r) = pi*r/2), то задача сводится к нахождению окружности с минимальным радиусом. )

--------
Вижу условие так:
Даны кольца. То есть кольцо задано координатами центра и двумя радиусами. И разность между этими радиусами и есть ширина. А площадь кольца - разность площади внешнего и внутреннего круга.

И выглядеть будет как-то так:

Код:

type kolco = record
x,y : real;
R1,R2 : real;
end;
............
mas : array[1..n] of kolco;
............
for i:=1 to n do
 begin
 tmp := (pi*mas[i].R2*mas[i].R2-pi*mas[i].R1*mas[i].R1)/(mas[i].R2-mas[i].R1);
 if min>tmp then 
  begin min := tmp; p := i; end;
 end;

surovii · 21.03.2009, 22:19

спасибо.. выручили

surovii · 21.03.2009, 23:20

а ещё хотел спросить правильное ли у меня сформулировано условие:
Дано множество окружностей.Вывести номера тех окружностей, пересекающих ось ординат, диаметр которых больше D.
моё условие:
if (x.r>abs(x.y)) or (x.r=x.y) and (x.r*2>D) then nomer:=nomer+1 else;

Jean-Esther · 21.03.2009, 23:55

по-моему, x.r=-x.y тоже подходит.

Код:

if (x.r>=abs(x.x)) and (x.r*2>D) then {вывод номера}

surovii · 22.03.2009, 00:02

r=y когда х=0 и тогда одна точка пересечения с осью.. разве нет?

capta1n · 22.03.2009, 00:12

1 точка пересечения с OY: r=|x|
2 точки пересечения с OY: |x|<r
ни одной точки пересечения с OY: |x|>r

x - абсцисса центра окружности, r - ее радиус

21.03.2009, 15:23	#1
surovii Пользователь Регистрация: 10.03.2009 Сообщений: 31	Окружность.. как определить пересекает ли окружность ось Y?

21.03.2009, 15:34	#2
OCTAGRAM Oldschool geek Форумчанин Регистрация: 09.03.2009 Сообщений: 611	Код: `if (x - R <= 0) and (x + R >= 0) then {...}` If you want to get to the top, you have to start at the bottom http://pascal.net.ru/

21.03.2009, 20:51	#4
Jean-Esther Пользователь Регистрация: 15.01.2009 Сообщений: 69	Это условие означает то, что среди набора колец, однозначно заданных каким либо образом (предполагаю, координатами центра и радиусом), необходимо найти такое кольцо, для которого отношением площади к ширине (полагаю, к диаметру) наименшее. for i:=1 to n do if min>(pirr/(2r)) then begin min:=(pir/2); p:=i end; write(p); Silence is of great value...

21.03.2009, 23:55	#8
Jean-Esther Пользователь Регистрация: 15.01.2009 Сообщений: 69	по-моему, x.r=-x.y тоже подходит. Код: `if (x.r>=abs(x.x)) and (x.r2>D) then {вывод номера}` Silence is of great value... Последний раз редактировалось Jean-Esther; 22.03.2009 в 00:21. Причина: стыд...*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Окружность и точки. Дельфи	Rancid	Помощь студентам	6	20.11.2010 20:08
вписать в треугольник окружность	stimswall	Помощь студентам	3	21.03.2009 03:15
простые числа.окружность.	Verochka	Помощь студентам	15	31.12.2008 08:22
Вписанная в выпуклый n-угольник окружность	Nixond	Паскаль, Turbo Pascal, PascalABC.NET	10	15.10.2008 13:28
нарисовать окружность состоящую из 36 разноцветных квадратов	Invisible Hunter	Паскаль, Turbo Pascal, PascalABC.NET	2	29.05.2008 18:03

21.03.2009, 17:41	#3
surovii Пользователь Регистрация: 10.03.2009 Сообщений: 31	спасибо а как понять вот это условие:дано множество колец, центры которыхвыше оси абсцисс, найти кольцо с наименьшим отношениемплощади к ширине кольца?

21.03.2009, 22:19	#6
surovii Пользователь Регистрация: 10.03.2009 Сообщений: 31	спасибо.. выручили

21.03.2009, 23:20	#7
surovii Пользователь Регистрация: 10.03.2009 Сообщений: 31	а ещё хотел спросить правильное ли у меня сформулировано условие: Дано множество окружностей.Вывести номера тех окружностей, пересекающих ось ординат, диаметр которых больше D. моё условие: if (x.r>abs(x.y)) or (x.r=x.y) and (x.r*2>D) then nomer:=nomer+1 else;

22.03.2009, 00:02	#9
surovii Пользователь Регистрация: 10.03.2009 Сообщений: 31	r=y когда х=0 и тогда одна точка пересечения с осью.. разве нет?

22.03.2009, 00:12	#10
capta1n Форумчанин Регистрация: 06.12.2008 Сообщений: 613	1 точка пересечения с OY: r=\|x\| 2 точки пересечения с OY: \|x\|<r ни одной точки пересечения с OY: \|x\|>r x - абсцисса центра окружности, r - ее радиус