Срочно!1. Сделать модуль, включающий подпрограммы вычисления:a. Площади круга по знаменитому

Срочно!
1. Создать модуль, включающий подпрограммы вычисления:
a. Площади круга по знаменитому радиусу;
b. Длины окружности по известному радиусу;
c. Площади прямоугольника по значениям длины и ширины;
d. Объема цилиндра по значениям вышины цилиндра и радиуса основания.

Задать свой вопрос
2 ответа
Решение для PascalABC.NET 3.3 (сборка 1627 от 27.01.2018)

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.

Во вложениях - пример работы с модулем.

Вот настоящий модуль на C:

ifndef _MATH_MODULE_H_
define _MATH_MODULE_H_

define PI (3.14159265359f)

// Площади круга по известному радиусу
float spacecircle(float radius) return (PI * radius * radius);

// Длины окружности по знаменитому радиусу
float circumference(float radius) return (2 * PI * radius);

// Площади прямоугольника по значениям длины и ширины
float spacerectangle(float width, float height) return (width * height);

// Объема цилиндра по значениям высоты цилиндра и радиуса основания
float volcylinder(float height, float radius) return (spacecircle(radius) * height);

endif
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт