1)Даны 3 равносторонних треугольников со сторонами a, b, c. Напечатать номер треугольника с наибольшей площадью. Вычисление площадей организовать с помощью функций, воспользов

1)Даны 3 равносторонних треугольников со сторонами a, b, c. Напечатать номер треугольника с наибольшей площадью. Вычисление площадей организовать с помощью функций, воспользов авшись формулой Герона. 2) Выведите посредине экрана своё имя, высотой в 8 строк, состоящее из разноцветных звёздочек.
Гость
Ответ(ы) на вопрос:
Гость
Действительно, не нужно вычислять площадь. В первом способе мы не будем вычислять площадь, но во втором, будь по Вашему, мы вычислим площадь через функцию вычисления площади по Герону. 1)var a,b,c,ma:real; begin read(a,b,c); ma:=max(max(a,b),c); if a=ma then write(1,); if b=ma then write(2,); if c=ma then write(3,); end. 2)var a,b,c,pa,pb,pc,ma:real; function geron(aa,bb,cc:real):real; begin pa:=sqrt((3*a)*(2*a)*(2*a)*(2*a)); pb:=sqrt((3*b)*(2*b)*(2*b)*(2*b)); pc:=sqrt((3*c)*(2*c)*(2*c)*(2*c)); end; begin read(a,b,c); geron(a,b,c); ma:=max(max(pa,pb),pc); if pa=ma then write(1,); if pb=ma then write(2,); if pc=ma then write(3,); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы