Объем правильной прямой шестиугольной призмы со стороной шестиугольника а и высотой h может быть найден по формуле
var
a,h:real;
begin
h:=2;
while h<=10 do begin<br> a:=2;
while a>=1 do begin
Writeln('h=',h:2:0,', a=',a:3:1,', V=',sqrt(6.75)*a*a*h:6:2);
a:=a-0.4
end;
h:=h+4
end
end.
Результат выполнения программы
h= 2, a=2.0, V= 20.78
h= 2, a=1.6, V= 13.30
h= 2, a=1.2, V= 7.48
h= 6, a=2.0, V= 62.35
h= 6, a=1.6, V= 39.91
h= 6, a=1.2, V= 22.45
h=10, a=2.0, V=103.92
h=10, a=1.6, V= 66.51
h=10, a=1.2, V= 37.41