Срочно!
1. Создать модуль, включающий подпрограммы вычисления:
a. Площади круга по известному радиусу;
b. Длины окружности по известному радиусу;
c. Площади прямоугольника по значениям длины и ширины;
d. Объема цилиндра по значениям высоты цилиндра и радиуса основания.
1. Создать модуль, включающий подпрограммы вычисления:
a. Площади круга по известному радиусу;
b. Длины окружности по известному радиусу;
c. Площади прямоугольника по значениям длины и ширины;
d. Объема цилиндра по значениям высоты цилиндра и радиуса основания.
Answers & Comments
unit Akullove;
/// Площадь круга по известному радиусу r
function SpaceCircle(r:real):=Pi*r*r;
/// Длина окружности по известному радиусу r
function CircumFence(r:real):=2*Pi*r;
/// Площадь прямоугольника по значениям длины и ширины (a,b)
function SpaceRectangle(a,b:real):=a*b;
/// Объема цилиндра по значениям его радиуса основания r и высоты h
function VolCylinder(r,h:real):=Pi*r*r*h;
end.
Приведенный выше текст должен быть помещен в файл Akullove.pas.
Во вложениях - пример работы с модулем.