0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 14
1

Определить, является ли треугольник прямоугольным, остроугольным или тупоугольным

20.01.2013, 12:02. Показов 9662. Ответов 1
Метки нет (Все метки)

Ребят помогите!

Даны три натуральных числа, являющиеся длинами сторон треугольника. Числа ввести с клавиатуры. Определить, является ли треугольник прямоугольным, остроугольным или тупоугольным, если эти отрезки позволяют его построить.

заранее спасибо!!!!!!
надо до 21,01,13!!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2013, 12:02
Ответы с готовыми решениями:

Определить, является ли треугольник прямоугольным
Написать программу, которая по заданным сторонам треугольника проверяет его на прямоугольность,...

Определить, является ли треугольник прямоугольным
Даны три стороны треугольника. Разработайте код, с помощью которого можно определить, является ли...

Определить является ли треугольник прямоугольным
Даны стороны треугольника. Определить является ли этот треугольник прямоугольным

Определить, является ли треугольник прямоугольным
даны числа a,b,c. Если существует ли треугольник со сторонами a,b,c, то определить прямоугольный ли...

1
Почетный модератор
64277 / 47576 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
20.01.2013, 16:22 2
Лучший ответ Сообщение было отмечено wall0070 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
{расстановка сторон по возрастанию}
procedure Sort(a,b,c:integer; var mx,sr,mn:integer);
begin
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;
end;
var a,b,c,d,e,max,srd,min:integer;
begin
clrscr;
writeln('Вводите 3 числа:');
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)then
writeln('Это не треугольник!')
else if (a=b)and(b=c)then writeln('Это равносторонний треугольник!')
else if ((a=b)and(b<>c))or((a=c)and(b<>c))or((b=c)and(a<>c))
then writeln('Это равнобедренный треугольник!')
else
 begin
  Sort(a,b,c,max,min,srd);
  d:=min*min+srd*srd;
  e:=max*max;
  if d>e then writeln('Это остроугольный треугольник!')
  else if d<e then writeln('Это тупоугольный треугольник!')
  else if d=e then writeln('Это прямоугольный треугольник!');
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2013, 16:22
Помогаю со студенческими работами здесь

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

Определить, является ли треугольник прямоугольным, если известны три его стороны
Дорогие программисты помогите студенту. Буду очень благодарен. 54. Ли треугольник прямоугольным,...

Длины сторон треугольника а б с. определить является ли этот треугольник остроугольным, прямоугольным или тупоугольным
Длины сторон треугольника а б с. определить является ли этот треугольник остроугольным,...

Определить существует ли треугольник со сторонами x,y,z, и является ли он остроугольным?
составьте блок схему, без вас никак прошу помогите( Даны действительные числа x,y,z определить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru