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