Рассмотрим вариант решения задания из учебника Босова, Босова 11 класс, Бином: 5. Дан прямоугольный параллелепипед, длины рёбер которого равны а, b и с. Требуется определить периметр треугольника, образованного диагоналями его граней. Какой алгоритм целесообразно использовать при решении этой задачи в качестве вспомогательного? Периметр треугольника равен сумме длин диагоналей его граней. Длина каждой грани определяется через длины соответствующей границы по теореме Пифагора. Это определение и можно оформить в качестве функции, т.к. это вычисление надо повторить три раза. Пример программы: program Z_9_5; function l(m, n: real): real; begin l:= sqrt(sqr(m) + sqr(n)) end; var a, b, c: integer; p: real; begin writeln('Введите значения a, b, c'); read(a, b, c); p := 0; p := p + l(a, b); p := p + l(b, c); p := p + l(c, a); writeln('Периметр треугольника = ', p:5:2) end. Программа: Z_9_5.pas (ссылка ниже)
