Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Задача Паскаль План

Автор: BlackMax 31.3.2006, 11:07

Задан план, в плане точки с координатами х и y. Узнайте точки которые создают треугольник с наибольшей площадью!

Автор: BlackMax 2.4.2006, 22:32

Тема всё ещё актуальна, задача осталась надом, решить не могу smile

Автор: koljan 2.4.2006, 23:31

Цитата(BlackMax @ 31.3.2006, 11:07

)

Задан план, в плане точки с координатами х и y. Узнайте точки которые создают триугольник с наибольшей площадью!

это вообще дискретная математика
З.Ы.
не

Цитата

триугольник

а треугольник

Автор: BlackMax 3.4.2006, 19:07

З.Ы.
не

Цитата

триугольник

а треугольник

Спасиб! Буду знать =)

это вообще дискретная математика

хз что это такое, но мне это надо на пятницу.... нам как учиха объясняла нужно проанализировать все возможные варианты через for использую формулу d=sqrt(sqr(x1-x2)+sqr(y1-y2)) для нахождения наибольшей длины сегмента....

Автор: mvdr 4.4.2006, 08:23

Цитата(BlackMax @ 31.3.2006, 12:07

)

Узнайте точки которые создают треугольник с наибольшей площадью!

ну-с, начнем smile

Дано:
A(x1,y1)
B(x2,y2)
Найти:
C(x3,y3)

S=sqrt{p(p-a)(p-b)(p-c)}, где
p=(a+b+c)/2
c=sqrt{(x2-x1)^2+(y2-y1)^2}
b=sqrt{(x3-x2)^2+(y3-y2)^2}
a=sqrt{(x1-x3)^2+(y1-y3)^2}

Теперь вычисление надо загнать в двойной цикл и вместо x3 и у3 писать i и j .
т.е.

Код


S1:=0;
S:=0;
for i:=1 to n do
 for j:=1 to m do 
begin
   c=sqrt((x2-x1)^2+(y2-y1)^2);
   b=sqrt((i-x2)^2+(j-y2)^2);
   a=sqrt((x1-i)^2+(y1-j)^2);
   p=(a+b+c)/2;
   S1=sqrt(p(p-a)(p-b)(p-c));
   if S1>S then S:=S1;
end;

Автор: BlackMax 4.4.2006, 15:14

Огромное Спасибо! наберу 100 постов буду + раздавать=)