• gmseeer
  • Комментариев: 0
  • Просмотров: 586
  • 16-06-2015, 23:29

Построить треугольник по трем вершинам, найти кратчайшую сторону.        

Program truygolnuk;

     var x1,x2,x3,y1,y2,y3,A,B,C: real;

 begin

  writeln(' введите x1, y1: ');

  readln(x1,y1);

  writeln(' введите x2, y2: ');

  readln(x2,y2);

  writeln(' введите x3, y3: ');

  readln(x3, y3);

    A:=sqrt(sqr(x3-x2) + sqr(y3-y2));

    B:=sqrt(sqr(x1-x3) + sqr(y1-y3));

    C:=sqrt(sqr(x1-x2) + sqr(y1-y2));

  if (A<B) and (A<C) then

  writeln(' A- min.');

  if (B<A) and (B<C) then

  writeln(' B- min.');

  if (C<A) and (C<B) then

  writeln(' C- min.');

    if (A<B+C) and (B<A+C) and (C<A+B) then

    writeln('триугольник существует')

 else

    writeln('триугольника не существует');

 

 end.

 

Функция Sqr(x) возвращает квадрат числа “x”, может быть целого или вещественного типа.

Функция Sqrt(x) возвращает квадратный корень числа “x”. может быть целого или вещественного типа.

Комментарий.

Задаем координаты сторон:

writeln(' введите x1, y1: ');

readln(x1,y1);

writeln(' введите x2, y2: ');

readln(x2,y2);

writeln(' введите x3, y3: ');

readln(x3, y3);

 

Находим стороны:

 

A:=sqrt(sqr(x3-x2) + sqr(y3-y2));

B:=sqrt(sqr(x1-x3) + sqr(y1-y3));

C:=sqrt(sqr(x1-x2) + sqr(y1-y2));

 

Находим кратчайшую сторону:

 

if (A<B) and (A<C) then

writeln(' A- min.');

if (B<A) and (B<C) then

writeln(' B- min.');

if (C<A) and (C<B) then

writeln(' C- min.');

 

Проверяем критерии существования существования триугольника:

 

    if (A<B+C) and (B<A+C) and (C<A+B) then

    writeln('триугольник существует')

 else

    writeln('триугольника не существует');