Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
5
Добавлен:
27.05.2015
Размер:
781 б
Скачать
{Вычисление объема геометрических фигур}
Program OBM;
const Pi=3.14;
var r, h, a, b: real;
Function V1(r1, h1: real): real; {Объем конуса}
begin
V1:=(1/3)*Pi*SQR(r1)*h1;
end;
Function V2(a1: real): real; {Объем куба}
begin
V2:=Power(a1,3);
end;
Function V3(a1, b1, h1: real): real; {Объем параллелепипеда}
begin
V3:=a1*b1*h1;
end;
Function V4(r1: real): real; {Объем шара}
begin
V4:= (4/3)*Pi*Power(r1,3);
end;
Begin
r:=1/SQRT(Pi);
h:=3;
writeln('Объем конуса = ', V1(r,h):8:3);
a:=3;
writeln('Объем куба = ', V2(a):8:3);
a:=1;
b:=2;
h:=3;
writeln('Объем параллелепипеда = ', V3(a,b,h):8:3);
r:=1;
writeln('Объем шара = ', V4(r):8:3);
writeln;
End.
Соседние файлы в папке 1 аттестация