Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Распознавание кодировки. Перекодировка.
Категория: Текст и строки
Категория: Текст и строки
Как получить дату создания файла
Категория: Файловая система
Категория: Файловая система
Возвести в степень
Категория: Математика
Категория: Математика
Сохранение странички в файл из TWebBrowser
Категория: Интернет и Сети
Категория: Интернет и Сети
Определить МАС-адрес карты
Категория: Интернет и Сети
Категория: Интернет и Сети
Изменить пароль для Paradox
Категория: Базы данных
Категория: Базы данных
Получить имена всех папок и файлов в директории
Категория: Файловая система
Категория: Файловая система
Создание цветных строк в ListBox
Категория: Компоненты
Категория: Компоненты
Получение выделенного текста из компонента TWebBrowser
Категория: Интернет и Сети
Категория: Интернет и Сети
Узнать все IP-адреса компьютера
Категория: Интернет и Сети
Категория: Интернет и Сети
Delphi - Справочник: Pi
Pi
|
function Pi : Extended; |
Функция (Unit System)
|
Математическая константа
|
Описание:
|
Функция Pi возвращает значение с плавающей запятой, дающее полезное приближение значения Пи. Длина окружности = Пи * Диаметр. |
Пример кода: Получение площади и длины окружность круга
|
var myPi : Extended; diam : Integer; begin diam := 10; // Показ длины окружности и площади круга // с диаметром - 10 см ShowMessage('Диаметр = '+IntToStr(diam)); ShowMessage('Длина окружнрости = '+FloatToStr(Pi*diam)); ShowMessage('Площадь = '+FloatToStr(Pi*(diam/2)*(diam/2))); end;
Результат:
|
Диаметр = 10 Длина окружности = 31.4159265358979 Площадь = 78.5398163397448 |