ВВЕРХ
ВНИЗ
  • Home
  • Boolean
  • Boolean 30 - 33

Определение типа треугольника по его сторонам

На этой странице мы решаем задачи Boolean30 - Boolean33 из задачника Абрамяна, где рассматриваем вопрос об определении типа треуголька по его сторонам.

Boolean30. Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является равносторонним».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
var
  a, b, c: word;

begin
  writeln('Введите стороны треугольника a, b, c:');
  readln(a, b, c);
  writeln;
  { Треугольник со сторонами а, b, c равносторонний, 
  если одновременно a=b, b=c, a=c: }
  writeln((a = b) and (b = c) and (c = a));
  readln
end.

Boolean31. Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является равнобедренным».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
var
  a, b, c: word;
  f, g: boolean;

begin
  writeln('Введите целые положительные числа a, b, c:');
  readln(a, b, c);
  { Выражение означает, что треугольник со сторонами a, b, c 
  существует (сумма любых двух сторон больше третьей стороны): }
  f := (a + b > c)and(b + c > a)and(c + a > b);
  { Выражение, означающее, что треугольник со сторонами
  a, b, c является равнобедренным (хотя бы две стороны
  совпадают): }
  g := (a = b)or(b = c)or(c = a);
  writeln;
  { Треугольник будет равнобедренным, если, во-первых, он 
  существует (условие f), и, во-вторых, если хотя бы две 
  стороны совпадают (высказывание g). Эти высказывания должны 
  быть истинными одновременно: }
  writeln(f and g);
  readln
end.

Boolean32. Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является прямоугольным».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
var
  a, b, c: word;

begin
  writeln('Введите стороны треугольника a, b, c:');
  readln(a, b, c); { <-- Вводим стороны треугольника }
  writeln;
  { Проверяем истинность теоремы Пифагора 
  для каждой тройки чисел: }
  writeln((a*a+b*b=c*c)or(b*b+c*c=a*a)or(c*c+a*a=b*b));
  readln
end.

Boolean33. Даны целые числа a, b, c. Проверить истинность высказывания: «Существует треугольник со сторонами a, b, c».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
var
  a, b, c: integer;

begin
  writeln('Введите стороны треугольника a, b, c:');
  readln(a, b, c);
  writeln;
  { Треугольник со сторонами a, b, c будет существовать, 
  если сумма каждых двух сторон больше третьей стороны 
  (неравенство треугольника): }
  writeln((a + b > c)and(b + c > a)and(c + a > b));
  readln
end.



Яндекс.Метрика