На этой странице мы решаем задачи Boolean30 - Boolean33 из задачника Абрамяна, где рассматриваем вопрос об определении типа треуголька по его сторонам.
Boolean30. Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является равносторонним».
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.
**type** word;
: Представляет 16-битовое целое число без знака.Диапазон значений: 0 .. 65 535 Boolean31. Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является равнобедренным».
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.
**type** word;
: Представляет 16-битовое целое число без знака.Диапазон значений: 0 .. 65 535**type** boolean;
: Представляет логическое значение. Boolean32. Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является прямоугольным».
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.
**type** word;
: Представляет 16-битовое целое число без знака.Диапазон значений: 0 .. 65 535 Boolean33. Даны целые числа a, b, c. Проверить истинность высказывания: «Существует треугольник со сторонами a, b, c».
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.
**type** integer;
: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647