ПОЖАЛУЙСТА!!!!!! Определить фигуру с наибольшей площадью: квадрат со стороной a, равносторонний треугольник со стороной b, окружность с радиусом R. ПАСКАЛЬ
Var a,b,r,s1,s2,s3:real; begin writeln('a, b, r:'); readln(a,b,r); s1:=a*a; s2:=b*b*sqrt(3)/4; s3:=pi*r*r; writeln('s1 = ',s1:4:2,' s2 = ',s2:4:2,' s3 = ',s3:4:2); if (s1>s2)and(s1>s3) then writeln('Квадрат имеет максимальную площадь = ',s1:4:2) else if (s2>s1)and(s2>s3) then writeln('Треугольник имеет максимальную площадь = ',s2:4:2) else writeln('Круг имеет максимальную площадь = ',s3:4:2); end.
Пример: a, b, r: 5 8 3 s1 = 25.00 s2 = 27.71 s3 = 28.27 Круг имеет максимальную площадь = 28.27
Answers & Comments
Verified answer
Var a,b,r,s1,s2,s3:real;begin
writeln('a, b, r:');
readln(a,b,r);
s1:=a*a;
s2:=b*b*sqrt(3)/4;
s3:=pi*r*r;
writeln('s1 = ',s1:4:2,' s2 = ',s2:4:2,' s3 = ',s3:4:2);
if (s1>s2)and(s1>s3)
then writeln('Квадрат имеет максимальную площадь = ',s1:4:2)
else if (s2>s1)and(s2>s3)
then writeln('Треугольник имеет максимальную площадь = ',s2:4:2)
else writeln('Круг имеет максимальную площадь = ',s3:4:2);
end.
Пример:
a, b, r:
5 8 3
s1 = 25.00 s2 = 27.71 s3 = 28.27
Круг имеет максимальную площадь = 28.27