Написать Программу Для Определения Объема Усеченного Конуса Делфи

Для написания программы на Delphi для определения объема усеченного конуса необходимо использовать формулу:

V = 1/3 * pi * h * (R^2 + R*r + r^2), где V - объем усеченного конуса, h - высота усеченного конуса, R - радиус большей основы, r - радиус меньшей основы.

var  V, h, R, r: Double;begin  // считываем значения h, R и r  // ...    V := 1 / 3 * Pi * h * (R * R + R * r + r * r);    ShowMessage('Объем усеченного конуса: ' + FloatToStr(V));end;

В данном примере мы используем переменные типа Double для хранения значений высоты и радиусов усеченного конуса, а также функцию ShowMessage для вывода результата на экран.