Решите задачу на паскале - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: 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 из 1
1

прикладная математика