Паскаль

[vvk123456]

Помогите решить задачу!
Даны 4 числа, три из них стороны треугольника. Надо определить эти числа, и найти площадь и периметр треугольника.

[Данила]

Стороны треугольника нельзя задавать произвольно, они связаны следующими неравенствами. В треугольнике сумма двух его сторон должна быть больше третьей стороны, в ином случае треугольник называется вырожденным.

    * a < b + c
    * b < c + a
    * c < a + b

В случае невыполнения одного из неравенств, треугольник называется вырожденным, далее везде предполагается невырожденный случай.

[vvk123456]

Имелось в виду что 4 -е число надо отсеять, и как написать программу?

[Данила]

берете,запихиваете все 4 числа в массив,ну или в 4 переменных

далее берете первые 3
проверяете их по 3 выше мною написанным неравенствам,если все выполняются - это стороны,иначе берете другие 3 стороны и тд,пока не найдутся 3 стороны удовлетворяющих тем условиям

[vvk123456]

Это я и сам понимаю как это выглядет на Паскале?

[Semen_K]

Я позволю себе вмешаться) Не как программист, а скорее человек занимающийся геометрией. А у вас не возниккал вопрос, что из четырех отрезков можно создать не один единственный треугольник:? А, допустим, два. Например из а в с     и из b c d. Как быть программе в этом случае? За какой треугольник браться.?

[Semen_K]

А если все отрезки равны между собой - тогда сколько треугольников. Ваши условия недостаточны для отсева 4 отрезка. Да и может сложиться ситуация, когда отсеивать будет нечего, а прото будет два варианта треугольников.

[ki]

Данила правильно написал условия...а по поводу выбора 3-х сторон из четырех...всего 4 варианта...даже обход можно не делать, а просто перебрать всё и для подходящих сделать то что нужно...про количество треугольников речи вроде и не было...может быть 0, а может и больше...

[lu]

ну я вмешиваюсь не как математик))
там в условии НЕ написано чтоб все отрезки проверял а также чтоб нашел периметры и площади всех треугольников...поэтому по умолчанию можно брать любой треугольник из любых трех отрезков и найти надо именно его параметры...
в общем это будет цикл до пока... незнаю как в паскале этот цикл пишется... до тех пор пока условие не выполнится будет проверять и подбирать числа....
в си будет это выглядеть так:

int a,b,c,d,flag=0;
do
{  //ввод a,b,c,d;
    scanf("%d",&a);  scanf("%d",&b);  scanf("%d",&c);  scanf("%d",&d); //можно также генератором ))
    if(a<b+c&&b<a+c&&c<a+b)  {s=....   p=....  printf("..."); flag=1}
    else if(a<d+c&&d<a+c&&c<a+d)  {s=....   p=....  printf("..."); flag=1}
    else if(a<d+b&&d<a+b&&b<a+d)  {s=....   p=....  printf("...");  flag=1}
    else if(b<d+c&&d<b+c&&c<b+d)  {s=....   p=....  printf("...");  flag=1}
    else flag=0; printf("введите заново числа, т.к. из предыдущих сторон нельзя построить треугольник");
}while(flag==1)

[ki]

угу : )

[vvk123456]

ну я вмешиваюсь не как математик))
там в условии НЕ написано чтоб все отрезки проверял а также чтоб нашел периметры и площади всех треугольников...поэтому по умолчанию можно брать любой треугольник из любых трех отрезков и найти надо именно его параметры...
в общем это будет цикл до пока... незнаю как в паскале этот цикл пишется... до тех пор пока условие не выполнится будет проверять и подбирать числа....
в си будет это выглядеть так:

int a,b,c,d,flag=0;
do
{  //ввод a,b,c,d;
    scanf("%d",&a);  scanf("%d",&b);  scanf("%d",&c);  scanf("%d",&d); //можно также генератором ))
    if(a<b+c&&b<a+c&&c<a+b)  {s=....   p=....  printf("..."); flag=1}
    else if(a<d+c&&d<a+c&&c<a+d)  {s=....   p=....  printf("..."); flag=1}
    else if(a<d+b&&d<a+b&&b<a+d)  {s=....   p=....  printf("...");  flag=1}
    else if(b<d+c&&d<b+c&&c<b+d)  {s=....   p=....  printf("...");  flag=1}
    else flag=0; printf("введите заново числа, т.к. из предыдущих сторон нельзя построить треугольник");
}while(flag==1)

Спасибо, на мысль натолкнул, но хотелось бы на паскале, я и в СИ то не очень

[vvk123456]

Program treug;
var a,b,c,d,S_tr,P_tr:real;

    Procedure Plosh_Perim(x,y,z:real;var P,S:real);
    var pp:real;
       begin
         P:=x+y+z;
         pp:=P/2;
         S:=sqrt(pp*(pp-x)*(pp-y)*(pp-z));
         writeln ('Storoni ravni', x:5:2,y:5:2,z:5:2);
       end;

  BEGIN
  writeln('Vvedite cisla');
  write('a=');read(a);
  write('b=');read(b);
  write('c=');read(c);
  write('d=');read(d);

    if (a<b+c) and (b<a+c) and (c<a+b) then  Plosh_Perim(a,b,c,P_tr,S_tr)
      else if (a<d+c) and (d<a+c) and (c<a+d) then  Plosh_Perim(a,d,c,P_tr,S_tr)
               else if (a<d+b) and (d<a+b) and (b<a+d) then  Plosh_Perim(a,b,d,P_tr,S_tr)
                       else if (b<d+c) and (d<b+c) and (c<b+d) then  Plosh_Perim(d,b,c,P_tr,S_tr)
                              else writeln ('treug net');

    writeln('perim=',P_tr:5:2);
    writeln('plosh=',S_tr:5:2);
    END.


Вот решение, но оно очень длинное можно ли условия сделать рекурсивной функцией?

[ki]

В вашем решении ищется только один треугольник...если без else - все...
рекурсию? для четырех элементов проще просто перебрать...а так - ищите алгоритм для обхода сочетаний...в вашем случае из n по 3...

[vvk123456]

В вашем решении ищется только один треугольник...если без else - все...
рекурсию? для четырех элементов проще просто перебрать...а так - ищите алгоритм для обхода сочетаний...в вашем случае из n по 3...

Для малого количества да, но дело принципа...

[ki]

Сам я честно говоря не разбирался с алгоритмом, но вот ссылки по теме...
ссылка
ссылка
ссылка

Может поможет...