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

@KatrinVev · Регистрация: 21.01.2013

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

Составить программу вычисления объёма правильной четырехугольной пирамиды. Апофема ее боковой грани равна Н, двугранный угол при боковом ребре - В.

@Puporev · 21.01.2013, 12:03

Pascal

uses crt;
var a,h,l,b,s:real;
begin
clrscr;
repeat
write('Длина апофемы l>0 l=');
readln(l);
until l>0;
repeat
write('Угол при боковом ребре 0<b<90 b=');
readln(b);
until(b>0)and(b<90);
b:=b*pi/180;
a:=2*l*cos(b);
h:=l*sin(b);
s:=a*a*h/3;
write('S=',s:0:2);
readln
end.

@KatrinVev 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 83
		1
	Вычисление объёма правильной четырехугольной пирамиды 21.01.2013, 11:37. Показов 1592. Ответов 1 Метки нет (Все метки) Составить программу вычисления объёма правильной четырехугольной пирамиды. Апофема ее боковой грани равна Н, двугранный угол при боковом ребре - В. 0

	21.01.2013, 12:03

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

Решение