Задание с олимпиады.Бисектриса.

[progdev]

Вот на олимпиаде моему другу дали такое задание.(одно из них)Пробовал на питоне,не получилось
На с++ еще не пробовал.Кому интересно,вылаживаем сюда свое решение.Язык программирования - любой....просьба на ассемблере не писать ))
Все подробности в прикрепленном изображении

[LeBron]

Это не задача, а упражнение, вообще-то.
Сначала находим все стороны, потом подставляем в формулу.
Все дано в условии.

[progdev]

Сообщение от LeBron

Это не задача, а упражнение, вообще-то.
Сначала находим все стороны, потом подставляем в формулу.
Все дано в условии.

Конешно
Но я писал помочь с решением,или написать чтонибудь оригинальное,а не "здесь и так всё понятно".
Я пытался на питоне сделать,но не получилось..

[LeBron]

Сообщение от progdev

Конешно
Но я писал помочь с решением,или написать чтонибудь оригинальное,а не "здесь и так всё понятно".
Я пытался на питоне сделать,но не получилось..

Можно увидеть эти попытки?
Я своим постом помог, хотя тут и помогать негде. Первая "задача" - это не задача, а упражнение, следовательно, оно не требует решения.
Вот Вам рабочий код:

var input,output:text;x,y:array[0..10] of real;i:longint;d:array[0..10] of real;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
for i:=1 to 3 do read(input,x[i],y[i]);
for i:=6 downto 4 do begin x[i]:=x[i-3];y[i]:=y[i-3];end;
for i:=1 to 3 do begin d[i]:=sqrt(sqr(x[i+2]-x[i+1])+sqr(y[i+2]-y[i+1]));end;
writeln(output,sqrt(d[1]*d[2]*(d[1]+d[2]+d[3])*(d[1]+d[2]-d[3]))/(d[1]+d[2]):0:2);
close(input);close(output);
end.

[progdev]

Сообщение от LeBron

Можно увидеть эти попытки?
Я своим постом помог, хотя тут и помогать негде. Первая "задача" - это не задача, а упражнение, следовательно, оно не требует решения.
Вот Вам рабочий код:

var input,output:text;x,y:array[0..10] of real;i:longint;d:array[0..10] of real;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
for i:=1 to 3 do read(input,x[i],y[i]);
for i:=6 downto 4 do begin x[i]:=x[i-3];y[i]:=y[i-3];end;
for i:=1 to 3 do begin d[i]:=sqrt(sqr(x[i+2]-x[i+1])+sqr(y[i+2]-y[i+1]));end;
writeln(output,sqrt(d[1]*d[2]*(d[1]+d[2]+d[3])*(d[1]+d[2]-d[3]))/(d[1]+d[2]):0:2);
close(input);close(output);
end.

На счет попытки...на питоне.
Я брал что
a=bc
b=ac
c=ab
Потом всё это math.sqrt((x1-x2)**(x1-x2))
И и.д.,но код слышком большой был...и ошибки писало
invslid syntax,хотя всё проверил

[progdev]

А вот у тебя както сложно...(я изучал яву,си\++,питон)
Както ,прямтаки по "научному" ))

[LeBron]

Сообщение от progdev

А вот у тебя както сложно...(я изучал яву,си\++,питон)
Както ,прямтаки по "научному" ))

Ничего научного. Написал на Паскале, так как мне на нем удобней всего, и времени занимает меньше всего (ради интереса переписал еще раз "на время" - укладываюсь в 1 минуту, получилось 54.6 секунды, на плюсах это бы у меня заняло раза в полтора больше времени, и это при том, что даже не задача, а просто упражнение, на задаче я пока еще больше проигрываю плюсами). Если очень уж надо, то мог бы переписать на С++, но не вижу необходимости. Если знаете синтаксис С++, то нет трудностей в понимании Паскаля.

[progdev]

А можно на с++?

[lamak]

Первая на С++:

#include <iostream.h>
#include <conio.h>
#include <fstream.h>
#include <math.h>

int main()
{
 ifstream in; ofstream out;
 in.open("input.txt"); out.open("output.txt");
 int y[3], x[3], i, ab, ac, bc, lc;
     for ( i=0; i<3; i++ )
         {  in>>x[i]; in>>y[i];
               cout<<x[i]<<" "<<y[i]<<endl; } 
   ab=sqrt(pow(x[0]-x[1], 2) + pow(y[0]-y[1], 2) );      
   bc=sqrt(pow(x[1]-x[2], 2) + pow(y[1]-y[2], 2) );
   ac=sqrt(pow(x[0]-x[2], 2) + pow(y[0]-y[2], 2) ); 
   lc=sqrt( bc*ac*(ac+bc+ab)*(bc+ac-ab))/bc+ac; 
   out<<"Bisektrusa Lc = "<<lc;
   cout<<"Bisektrusa Lc = "<<lc;       
 in.close();
 out.close();
 getch();
    }