Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решите задачу на паскале (пожалуйста)
Решите задачу на паскале
Вычислить объем пирамиды, основание которой равносторонний треугольник со стороной b, а высота пирамиды h.
1 | Автор: Tolian92 | 2011-10-31, 18:29   |  Репутация: [ + 1 ]
program Objem_Piramidy;
var S, V, h, b : real;
begin
Writeln ('Vvedit storonu b');
readln(b);
Writeln ('Vvedit vysotu');
readln(h);
S:=b*sqrt(3)/2;
V:=1/3*S*h;
Writeln ('Objem Piramidy=', V:10:5,'sm^3');
end.


_-Serhiy-_
2 | Автор: Sz95 | 2012-01-16, 20:34   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решите задачу на паскале (пожалуйста)
Страница 1 из 11
Поиск: