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

188

406

Посмотреть ответы 2

Ответы на вопрос:

Будда427

Информатика

4,7(93 оценок)

Function st(a,b,c: real): real; var p: real; begin p: =(a+b+c)/2; st: =sqrt(p*(p-a)*(p-b)*(p-c)) end; var a,s: array[1..3] of real; i,k: integer; begin write('введите длину стороны каждого треугольника: '); for i: =1 to 3 do begin read(a[i]); s[i]: =st(a[i],a[i],a[i]); end; if s[1]> s[2] then k: =1 else k: =2; if s[3]> s[k] then k: =3; writeln('треугольник номер ',k,' имеет наибольшую площадь') end. пример введите длину стороны каждого треугольника: 6 7.3 4.18 треугольник номер 2 имеет наибольшую площадь