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

Ответы 3

  • Как видно из примера, модуль автоматически встраивается в систему подсказок.
  • Вот полноценный модуль на 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
  • Решение для PascalABC.NET 3.3 (сборка 1627 от 27.01.2018)unit Akullove;/// Площадь круга по известному радиусу rfunction SpaceCircle(r:real):=Pi*r*r;/// Длина окружности по известному радиусу rfunction 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.Во вложениях - пример работы с модулем.
    answer img
    • Автор:

      petie
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years