Найти площадь поверхности правильной пирамиды

@Nastyast23 · Регистрация: 02.11.2020

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

Используя процедуру вычисление площади треугольника по длинам трёх сторон, найти площадь поверхности правильной пирамиды в основании которой треугольник.

@Cyborg Drone · 07.11.2020, 21:45

Pascal

procedure st(a, b, c: real; var s: real);
var
  p: real;
begin
  p := (a + b + c) / 2;
  s := sqrt(p * (p - a) * (p - b) * (p - c))
end;
 
var
  a, h, b, sa, sb: real;
begin
  write('Введите длину ребра основания пирамиды: ');
  readln(a);
  write('Введите высоту пирамиды: ');
  readln(h);
  st(a, a, a, sa);
  b := sqrt(h * h + sqr(a / 2 / sin(pi / 3)));
  st(a, b, b, sb);
  writeln('Площадь поверхности = ', sa + 3 * sb :0:5)
end.

@Nastyast23 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 1
		1
	Найти площадь поверхности правильной пирамиды 02.11.2020, 10:21. Показов 570. Ответов 1 Метки нет (Все метки) Используя процедуру вычисление площади треугольника по длинам трёх сторон, найти площадь поверхности правильной пирамиды в основании которой треугольник. 0

	07.11.2020, 21:45