Предмет: Информатика,
автор: иван1199
составьте программу нахождения площади равнобедрянной трапеции через стороны a,b,c (вопрос 10)
Приложения:
![](https://files.topotvet.com/i/9c2/9c2a4a0602f064961b77ab9feff8b099.jpg)
Ответы
Автор ответа:
0
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3();
write('S=',((a+b)/2)*sqrt(c*c-((a-b)*(a-b)/4)));
end.
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3();
write('S=',((a+b)/2)*sqrt(c*c-((a-b)*(a-b)/4)));
end.
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('a,b - большее и меньшее основания равнобедренной трапеции');
Writeln('с - боковая сторона этой трапеции. Вычисляется площадь S');
var (a,b,c):=ReadReal3('Введите a,b,c через пробел:');
var s:=(a+b)/2*Sqrt(c*c-Sqr(a-b)/4);
Writeln('S=',s:0:4)
end.
Пример
a,b - большее и меньшее основания равнобедренной трапеции
с - боковая сторона этой трапеции. Вычисляется площадь S
Введите a,b,c через пробел: 6 4.5 2.7
S=13.6171
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('a,b - большее и меньшее основания равнобедренной трапеции');
Writeln('с - боковая сторона этой трапеции. Вычисляется площадь S');
var (a,b,c):=ReadReal3('Введите a,b,c через пробел:');
var s:=(a+b)/2*Sqrt(c*c-Sqr(a-b)/4);
Writeln('S=',s:0:4)
end.
Пример
a,b - большее и меньшее основания равнобедренной трапеции
с - боковая сторона этой трапеции. Вычисляется площадь S
Введите a,b,c через пробел: 6 4.5 2.7
S=13.6171
Похожие вопросы
Предмет: География,
автор: Lakrada
Предмет: Русский язык,
автор: varvarafedorovskaa5
Предмет: Русский язык,
автор: kenjaevaomina
Предмет: Математика,
автор: коля510
Предмет: Алгебра,
автор: maksimne15