Предполагаем без проверки, что треугольник по заданным длинам сторон построить можно (иначе надо убедиться. что сумма каждой пары сторон больше третьей стороны). А дальше выясняем, какая сторона самая длинная и полагаем, что две другие - это катеты. И проверяем, выполняется ли теорема Пифагора с точностью до какой-то допустимой погрешности, например, до 10⁻⁹.
const eps=1e-9; // допустимая погрешность var a,b,c,t:real; // c - гипотенуза begin Write('Введите длины сторон треугольника: '); Read(a,b,c); if a>c then begin t:=a; a:=c; c:=t end; if b>c then begin t:=b; b:=c; c:=t end; if abs(a*a+b*b-c*c)<=eps then Writeln('Треугольник прямоугольный') else Writeln('Треугольник не прямоугольный') end.
Чтобы это узнать нам потребуется разобрать это на примере. допустим у нас есть изображение размером 1024х1024 пикселя. чтобы определить объем занимаемой памяти при наличии на нем 65 536 цветов для начала нужно выяснить сколькими битами кодировать один пиксель. 65 536 = 2^16 => один пиксель кодируется 16 битами. значит объем памяти изображения будет составлять: 1024*1024*16= 16 777 216 бит. теперь вычислим объем памяти при наличии 16 цветов на изображении. 16=2^4 => 1024*1024*4=4 194 304 теперь чтобы определить во сколько раз уменьшился объем памяти изображения мы выполняем следующее действие: 16 777 216 : 4 194 304 = 4 т е объем памяти изображения уменьшился в 4 раза.
в кинозале всего 16×32=512 мест. Сообщение о купленном билете однозначно определяет выбор одного из этих мест. Из уравнения 2 i = 512=29получаем: i=9 бит. Но эту же задачу можно решать иначе. Сообщение о номере ряда несет 4 бита информации, т.к. 24=16. Сообщение о номере места несет 5 бит информации, т.к. 25=32. В целом сообщение про ряд и место несет: 4+5=9 бит информации. Данный пример иллюстрирует выполнение закона активности информации (правило сложения): количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.
А дальше выясняем, какая сторона самая длинная и полагаем, что две другие - это катеты. И проверяем, выполняется ли теорема Пифагора с точностью до какой-то допустимой погрешности, например, до 10⁻⁹.
const
eps=1e-9; // допустимая погрешность
var
a,b,c,t:real; // c - гипотенуза
begin
Write('Введите длины сторон треугольника: '); Read(a,b,c);
if a>c then begin t:=a; a:=c; c:=t end;
if b>c then begin t:=b; b:=c; c:=t end;
if abs(a*a+b*b-c*c)<=eps then Writeln('Треугольник прямоугольный')
else Writeln('Треугольник не прямоугольный')
end.