Для двух треугольных пирамид, заданных ребрами, найти, площадь полной поверхности
Для 2-ух треугольных пирамид, данных ребрами, найти, площадь полной поверхности которой из них больше и на сколько.
Составить программу с ветвящейся структурой используя условный оператор if
Назян
Никита
данных ребрами
Виктор Самуджян
как в учебнике написано..
Macievskij Vadim
задание не мною писано, так что и спрос не с меня
1 ответ
Никита Шаматульский
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программка не работает, обновите версию!
function Geron(a,b,c:real):real;
// отдаёт площадь треугольника со сторонами a,b,c
begin
var p:=(a+b+c)/2; // полупериметр
Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end;
function Sp(ab,bc,ca,ad,bd,cd:real):real;
// отдаёт площадь полной поверхности пирамиды
begin
Result:=Geron(ab,bc,ca)+Geron(ab,ad,bd)+Geron(bc,bd,cd)+
Geron(ca,cd,ad)
end;
procedure Vvod(var ab,bc,ca,ad,bd,cd:real);
// ввод значений ребер
begin
Writeln('Введите значения ребер пирамиды');
Write('Ребра основания- AB,BC,CA: '); Read(ab,bc,ca);
Write('Боковые ребра- AD,BD,CD: '); Read(ad,bd,cd)
end;
begin
var ab1,bc1,ca1,ad1,bd1,cd1:real;
Vvod(ab1,bc1,ca1,ad1,bd1,cd1);
var Sp1:=Sp(ab1,bc1,ca1,ad1,bd1,cd1);
var ab2,bc2,ca2,ad2,bd2,cd2:real;
Vvod(ab2,bc2,ca2,ad2,bd2,cd2);
var Sp2:=Sp(ab2,bc2,ca2,ad2,bd2,cd2);
var d:=Sp1-Sp2;
if dgt;0 then Writeln('Площадь Sполн 1й пирамиды больше на ',d)
else
if dlt;0 then Writeln('Площадь Sполн 2й пирамиды больше на ',-d)
else Writeln('Площади Sполн пирамид одинаковы');
end.
// Внимание! Если программка не работает, обновите версию!
function Geron(a,b,c:real):real;
// отдаёт площадь треугольника со сторонами a,b,c
begin
var p:=(a+b+c)/2; // полупериметр
Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end;
function Sp(ab,bc,ca,ad,bd,cd:real):real;
// отдаёт площадь полной поверхности пирамиды
begin
Result:=Geron(ab,bc,ca)+Geron(ab,ad,bd)+Geron(bc,bd,cd)+
Geron(ca,cd,ad)
end;
procedure Vvod(var ab,bc,ca,ad,bd,cd:real);
// ввод значений ребер
begin
Writeln('Введите значения ребер пирамиды');
Write('Ребра основания- AB,BC,CA: '); Read(ab,bc,ca);
Write('Боковые ребра- AD,BD,CD: '); Read(ad,bd,cd)
end;
begin
var ab1,bc1,ca1,ad1,bd1,cd1:real;
Vvod(ab1,bc1,ca1,ad1,bd1,cd1);
var Sp1:=Sp(ab1,bc1,ca1,ad1,bd1,cd1);
var ab2,bc2,ca2,ad2,bd2,cd2:real;
Vvod(ab2,bc2,ca2,ad2,bd2,cd2);
var Sp2:=Sp(ab2,bc2,ca2,ad2,bd2,cd2);
var d:=Sp1-Sp2;
if dgt;0 then Writeln('Площадь Sполн 1й пирамиды больше на ',d)
else
if dlt;0 then Writeln('Площадь Sполн 2й пирамиды больше на ',-d)
else Writeln('Площади Sполн пирамид одинаковы');
end.
Шурик Сафитдинов
спасибо
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов