Срочно!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.
Во вложениях - пример работы с модулем.
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
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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов