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

HELPERSKINE HELPERSKINE    3   18.09.2019 03:20    0

Ответы
Zmei0907 Zmei0907  01.09.2020 16:58
Решение для 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.

Во вложениях - пример работы с модулем.
ПОКАЗАТЬ ОТВЕТЫ
АРинаArinah АРинаArinah  01.09.2020 16:58
Вот полноценный модуль на 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
1. создать модуль, включающий подпрограммы вычисления: a. площади круга по известному радиусу; b. дл
1. создать модуль, включающий подпрограммы вычисления: a. площади круга по известному радиусу; b. дл
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика