Вопрос по информатике:
ПОЖАЛУЙСТА!!!!!! Определить фигуру с наибольшей площадью: квадрат со стороной a, равносторонний треугольник со стороной b, окружность с радиусом R.
ПАСКАЛЬ
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.03.2015 11:29
- Информатика
- remove_red_eye 10238
- thumb_up 15
Ответы и объяснения 2
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
- 06.03.2015 02:30
- thumb_up 28
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,R:real;
Write('Введите сторону квадрата, треугольника и радиус: ');
Read(a,b,R);
var s1:=a*a; var s2:=a*a*sqrt(3)/4; var s3:=pi*r*r;
var mx:real; var s:string;
if s1>s2 then begin mx:=s1; s:='квадрата' end
else begin mx:=s2; s:='треугольника' end;
if s3>mx then begin mx:=s3; s:='круга' end;
Writeln('Максимальная площадь у ',s,' и она равна ',mx)
end.
Пример
Введите сторону квадрата, треугольника и радиус: 13.5 16.3 3.72
Максимальная площадь у квадрата и она равна 182.25
- 07.03.2015 08:23
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.