Меню сайта
Форма входа
Категории раздела
Учебник по Паскалю [13] Практика [23]
примеры программ
Главная » Статьи » Pascal » Практика

Что больше:площадь равностороннего треугольника со стороной "а" или площадь круга с радиусом "а"?
Что больше:площадь равностороннего треугольника со стороной "а"
или площадь круга с радиусом "а"? Расчеты оформить в виде программы. Предусмотреть ввод "а" с клавиатуры.


Program N1;

Var a,s1,s2,h:Real;

begin

Write('Введите а: ');Readln(a);

s1:=pi*sqr(a); {площадь кгуга}

h:=sqrt(sqr(a)-sqr(a/2)); {высота треугольника}

s2:=a*h/2; {площадь треугольника}

if s1>s2 then

Writeln('Площадь круга больше площади треугольника: ',s1:4:2,'>',s2:4:2)

else if s1
Writeln('Площадь круга меньше площади треугольника: ',s1:4:2,'<',s2:4:2)

else if s1=s2 then

Writeln('Площадь круга равна площади треугольника: ',s1:4:2,'=',s2:4:2);

Write('Нажмите Enter');

Readln;

end.
 


Категория: Практика | Добавил: nazgull (09.02.2012)
Просмотров: 1695 | Теги: площадь треугольника паскаль, площадь треугольника pascal, площадь треугольника программа, площадь треугольника примеры програ | Рейтинг: 1.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Ссылки