Расчет площади и объема фигур на Делфи (часть 1)

Простой пример программы на расчет площади поверхности цилиндра и полого цилиндра, шара и объема шара на Делфи. Дляэтогосоздадимновыйпроект (VCL Forms Aplication — Delphi) в Embarcadero RAD Studio 2010. Сохраним в новой папке. Будем отталкивать от постановленной задачи.

Вычислить площадь поверхности и объем:

  1. цилиндра (радиус r, высота h);
  2. полого цилиндра (радиусы R и r, высота h);
  3. шара   (S=4Pr2, V=(3/4)Pr3).

Примерный расклад событий: будет вводиться радиусы R и r, высота h. Формулы для расчетов соответственно:

площадь S=2 π r(h+ r) , объем цилиндра равен V=Pr2H;  

площадь S=2PRh-2Prh=2Ph(R-r), объем полого цилиндра V= PR2H- Pr2H=Ph(R2-r2);

площадь S=4Pr2, объем шара V=(3/4)Pr3.

На моей форме будет располагаться три компонента TEditи три компонента TLabel. А также кнопка TButton и компонент TCombobox. Примерно выглядит так:

Рассчет объема

Вывод ответа будет осуществляется в четвертый TLabel. Немного переделаю главную форму. Она не должна развертываться на полный экран – в BorderIcons (biMaximisize) ставлю false. BorderStyle=bsSingle.

В каждом TLabel напишем нужные названия. Теперь выделяем наши три TLabel (Shift + нажатие мышки на объекте) и ставим Size=14 в Font. Теперь сброс – просто клик где угодно на форме. Также выделяем три объекта TEdit. Ставим NumbersOnlyгалочка, Alignment – toRightJustify, в Text уменястоит 0. Опять сбросим выделение и займемся кнопкой. Просто поле  Captionбудет название &Вычислить. На этом визуальное оформление можно было бы закончить, но остается Combobox. Он нужен для выбора. Будет выбираться фигура для расчета. У компонента TCombobox есть список Items. Там заполняем нужную информацию для дальнейшего выбора фигур. У меня список: цилиндр, полый цилиндр и шар. В поле Textвыберите фигуру. Визуальная заготовка выглядит так:

 Рассчет объема площадей в Делфи

В следующей статье рассмотрим детальное решение для нашей программы.  

. площадь полого цилиндра формула
. S=2pRH
Комментирование и размещение ссылок запрещено.