Составить программу вычисления объёма правильной треугольной пирамиды

@ia-12 · Регистрация: 04.12.2014

Студворк — интернет-сервис помощи студентам

у которой высота равна Н, а плоский угол при вершине равен В

@Puporev · 04.12.2014, 17:39

Если не напутал в геометрии (доверяю проверить Вам), то так.

Pascal

uses crt;
var h,b,sn,cs,a,x,s,v:real;
begin
clrscr;
repeat
write('h>0  h=');
readln(h);
until h>0;
repeat
write('0<b<120 b=');
readln(b);
until(b>0)and(b<120);
b:=b*pi/180;{переведем в радианы}
{
- выразим  длину бокового ребра(неизвестно)
  через половину длины стороны основания(неизвестное)
  и синус половины угла при вершине
- выразим ее же через длину ее проекции на основание,
  выраженной через половину длины стороны основания и
  косинус половины угла основания=pi/6,
  и через высоту пирамиды
- приравняем уравнения и решим относительно a/2}
sn:=sqr(sin(b/2));{квадрат синуса половины угла при вершине}
cs:=sqr(cos(pi/6));{квадрат косинуса половины угла в основании}
a:=2*sqrt(h*h*sn*cs/(cs-sn));{длина стороны основания}
v:=h*a*a/4/sqrt(3);{объем}
write('V=',v:0:2);
readln
end.

@ia-12 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 16
		1
	Составить программу вычисления объёма правильной треугольной пирамиды 04.12.2014, 14:42. Показов 1236. Ответов 1 Метки нет (Все метки) у которой высота равна Н, а плоский угол при вершине равен В 0

	04.12.2014, 17:39

Опции темы

Составить программу вычисления объёма правильной треугольной пирамиды

Решение