Определить возможность существования треугольника по сторонам

чт, 02/10/2011 - 21:09 — tech

Темы учебника

Булевы типы. Логические выражения и логические операции

Условные операторы

Задача:

Треугольник существует только тогда, когда сумма любых двух его сторон больше третьей.

Дано: a, b, c – стороны предполагаемого треугольника.
Требуется сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует.

Алгоритм решения задачи:

Приведено решение задачи на языке программирования Паскаль двумя способами. В одном случае, все условия проверяются в одном операторе if; во втором случае каждое условие проверяется отдельно, а программа содержит вложенные операторы if-else.

Программа на языке Паскаль:

var a, b, c: integer;
 
begin
    write (' Длины сторон: ');
    readln (a,b,c);
 
    if (a +c) and (b +c) and (c +b) then
        writeln ('Треугольник существует.')
    else
        writeln ('Треугольник не существует.');
 
readln
end.

var a, b, c: integer;
 
begin
    write ('Длины сторон: ');
    readln (a,b,c);
 
    if a +c then
        if b +c then
            if c +b then
                writeln ('Треугольник существует.')
            else
                writeln ('Треугольник не существует.')
        else
            writeln ('Треугольник не существует.')
    else
        writeln ('Треугольник не существует.');
 
readln
end.

Добавить комментарий

program FLHW_2; {Требуется сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует. Дополнительно вывести на экран то, каким является треугольник(р\б, р\с, п\у). Дополнительно вывести на экран S= и P= треугольников.}

uses crt;
var a,b,c,t,P:integer;
    h,S:real;
begin
writeln('введите длины сторон треугольника abc ');
readln(a,b,c);
t:=0;
if (a+b>c) and (b+c>a) and (c+a>b) then
 begin
 writeln('такой треугольник существует!');
 readln;
 t:=t+1;
 end
else
 begin
 writeln('такой треугольник НЕ существует!');
 readln;
 end;
if t=1 then
 begin
 if (a=b) and (ac) then
  begin
  writeln('Треугольник равнобедренный');
  readln;
  P:=a+b+c;
  h:=sqrt(sqr(a)-sqr(c/2))
  S:=0.5*h*c;
  writeln('Периметр р\б треугольника=',P);
  readln;
  writeln('Площадь р\б треугольника=',S:0:1);
  readln;
  end;
  if (a=c) and (ab) then
   begin
   writeln('Треугольник равнобедренный');
   readln;
   P:=a+b+c;
   h:=sqrt(sqr(a)-sqr(b/2))
   S:=0.5*h*b;
   writeln('Периметр р\б треугольника=',P);
   readln;
   writeln('Площадь р\б треугольника=',S:0:1);
   readln;
   end;
   if (b=c) and (ba) then
    begin
    writeln('Треугольник равнобедренный');
    readln;
    P:=a+b+c;
    h:=sqrt(sqr(c)-sqr(a/2))
    S:=0.5*h*a;
    writeln('Периметр р\б треугольника=',P);
    readln;
    writeln('Площадь р\б треугольника=',S:0:1);
    readln;
    end;
 if (a=b) and (a=c) then
  begin
  writeln('Треугольник равносторонний');
  readln;
  P:=a+b+c;
  h:=(a*sqrt(3))/2;
  S:=0.5*h*a;
  writeln('Периметр р\б треугольника=',P);
  readln;
  writeln('Площадь р\б треугольника=',S:0:1);
  readln;
  end;
 if (sqr(a)=sqr(b)+sqr(c)) then
  begin
  writeln('Треугольник прямоугольный');
  readln;
  P:=a+b+c;
  S:=0.5*b*c;
  writeln('Периметр р\б треугольника=',P);
  readln;
  writeln('Площадь р\б треугольника=',S:0:1);
  readln;
  end;
  if (sqr(c)=sqr(b)+sqr(a))then
   begin
   writeln('Треугольник прямоугольный');
   readln;
   P:=a+b+c;
   S:=0.5*b*a;
   writeln('Периметр р\б треугольника=',P);
   readln;
   writeln('Площадь р\б треугольника=',S:0:1);
   readln;
   end;
   if (sqr(b)=sqr(a)+sqr(c)) then
    begin
    writeln('Треугольник прямоугольный');
    readln;
    P:=a+b+c;
    S:=0.5*a*c;
    writeln('Периметр р\б треугольника=',P);
    readln;
    writeln('Площадь р\б треугольника=',S:0:1);
    readln;
    end;
 end;
end.

ответить

чт, 01/30/2014 - 11:01 — Гость

Потратил около 20 минут

Program Treugolnik;
 
var a,b,c:real;
 
Begin
   write('Введите значение a='); readln(a);
   write('Введите значение b='); readln(b);
   write('Введите значение c='); readln(c);
   if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
      if (a=b) and (a=c) and (c=b) then
         writeln('Треугольник равносторонний')
      else 
         if (a=b) or (b=c) or (a=c) then
            writeln('Треугольник равнобедренный')
         else 
            writeln('Треугольник разносторонний')
   else 
      writeln('Извините, треугольника с такими сторонами быть не может');
 
end.

ответить

вс, 04/28/2013 - 18:40 — Гость

Решил немного дополнить.

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

var a,b,c:integer;
Begin
Writeln('Введите длины сторон треугольника' );
Readln(a,b,c);
Writeln('Треугольник со сторонами ',a,', ',b,', ',c);
if (a >= b+c) or (b >= a+c) or (c >= b+a)then Writeln('Не существует')
else begin
if (a=b) and (b=c) and (c=a) then Writeln('Является равнобедренным ')
else begin
if (a=b) or (a=c) or (b=c)
then Writeln('Является равносторонним')
else Writeln('Существует');
end;
end;
END.

ответить

Пнд, 01/13/2014 - 06:14 — Гость

Час? Это школьник 10-го

Час? Это школьник 10-го класса сделает за 10 минут максимум

ответить

вс, 11/24/2013 - 15:55 — Гость

Неправильно, гордый человек

Треугольник является равнобедренным, если какие-либо две его стороны будут равны.
А равносторонним, когда все стороны равны.
То есть, вы перепутали "or"(это или) и "and"(это и).

ответить

Пнд, 11/11/2013 - 17:43 — Гость

а если a, b или с - точка? то

а если a, b или с - точка? то есть равны 0?

ответить

пт, 09/06/2013 - 12:48 — Гость

Треугольники

Ты путаешь равнобедренные и равносторонние треугольники:

 if (a=b) and (b=c) and (c=a) then Writeln('Является равнобедренным ')

if (a=b) or (a=c) or (b=c)
then Writeln('Является равносторонним')

ответить

Втр, 05/10/2011 - 22:27 — Гость

Треугольник существует только

Треугольник существует только тогда, когда сумма любых двух его сторон МЕНЬШЕ третьей. Не опечатка ли?

ответить

сб, 06/18/2011 - 13:32 — Гость

вроде все правильно. Как

вроде все правильно. Как может существовать треугольник со сторонами 2, 3, 6? сумма должна быть больше

ответить

чт, 05/12/2011 - 10:45 — tech

Да, опечатка. Исправлено.

ответить

пт, 04/29/2011 - 06:39 — Гость

треугольник

Задача решена неправильно, допустим треугольик со сторонами 3, 2, 5 существует? Нет не существует, а программа скажет, что существует!

ответить

пт, 04/29/2011 - 11:54 — tech

Смотрите, a := 3; b := 2; c

Смотрите,
a := 3;
b := 2;
c := 5.
Выражени c ложь, т.к. неравенство строгое (не такое как 5 Поэтому содержимое ветки if не выполнится и программа не скажет, что такой треугольник существует.

(Хотя по сути у такого треугольника две стороны лежат на третьей, и он выглядит как линия )))

ответить

Пнд, 04/07/2014 - 13:05 — Гость

Таким образом открыли новое

Таким образом открыли новое понятие в геометрии - линейный треугольник)))

ответить

чт, 12/15/2011 - 21:21 — Гость

А если сделать так?

А если не городить несколько вложенных else-if, а сделать одним, вот так:

var a, b, c: integer;
begin
write('Введите длины сторон треугольника: ');
read(a, b, c);
if (a(c+b)) and (b(a+c)) and (c(a+b)) then write('Такой треугольник существует.')
else write('Такой треугольник не существует.');
read;
end.

ответить

вс, 04/28/2013 - 11:21 — Гость

Я точно так же сделал)),

Я точно так же сделал)), только вместо and писал or и знак > делал

ответить

ср, 03/21/2012 - 20:04 — Гость (не проверено)

if (a

if (a - это лучше, чем первый вариант решения. Тут сразу видно что эти условия (одна сторона

ответить

ср, 02/26/2014 - 22:49 — Гость

Помогите!

Помогите пожалуйста! Заданы длины двух катетов прямоугольного треугольника a, b. Вычислить длину гипотенузы c и величины двух углов треугольника , . Если >500, то вычислить площадь треугольника. Если

ответить

Язык Pascal. Программирование для начинающих

Учебник

Решение задач

Программы