Ноябрь 9th, 2013 
admin Простой пример программы на расчет площади поверхности цилиндра и полого цилиндра, шара и объема шара на Делфи. Дляэтогосоздадимновыйпроект (VCL Forms Aplication — Delphi) в Embarcadero RAD Studio 2010. Сохраним в новой папке. Будем отталкивать от постановленной задачи.
Вычислить площадь поверхности и объем:
- цилиндра (радиус r, высота h);
- полого цилиндра (радиусы R и r, высота h);
- шара (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 вычисление площадей и объемов фигур площадь полого цилиндра формула площадь целиндра вычислить delphi вычисление площади объема
Опубликовано в рубрике