Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Вычисления


Добавить код в данный раздел
 Извлечение из числа группы цифр

function extract_digits(d,n,p:integer):integer;

Прислал: Прахожий ( 21 марта 2009 г. )
Количество просмотров: 0


 Проверка пересечения двух четырёхугольников (array of TPoint)

function CrossTetragon(Points1: array of TPoint; Points2: array of TPoint): boolean;

Прислал: RYSoft (Гродно) ( 26 июля 2008 г. )
Количество просмотров: 332


 Проверка попадания точки в четырехугольник

function PtInTriang(const P, A, B, C: TPoint): Boolean;

Прислал: RYSoft (Гродно) ( 26 июля 2008 г. )
Количество просмотров: 288


 Извлечение из числа нужного количества бит, начиная с определённой позиции

function BitsToNum(source:integer; frombit:integer; CountBit:integer):integer;

Прислал: Прахожий ( 23 февраля 2008 г. )
Количество просмотров: 830


 Извлечение числа из битовой записи

function BitsToNum(Source:variant;FromBit:Word=0;CountBit:word=1):variant;

Прислал: Elen ( 1 сентября 2006 г. )
Количество просмотров: 1243


 Проверка пересечения двух отрезков

function CrossLines(X1,Y1,X2,Y2, X3,Y3,X4,Y4: Integer): Boolean;

Прислал: Fenik (Новоуральск) ( 24 ноября 2005 г. )
Количество просмотров: 2057


 Проверка попадания точки в треугольник

function PtInTriang(const P, A, B, C: TPoint): Boolean;

Прислал: Fenik (Новоуральск) ( 8 октября 2004 г. )
Количество просмотров: 2877


 Центр вписанной в треугольник окружности

function CenterCircleInTriang(const P1, P2, P3: TPoint): TPoint;

Прислал: Fenik (Новоуральск) ( 29 сентября 2004 г. )
Количество просмотров: 2126


 Расстояние от точки до прямой.

function Distance(const P, P1, P2: TPoint): Integer;

Прислал: Fenik (Новоуральск) ( 29 сентября 2004 г. )
Количество просмотров: 2675


 Модуль для работы с комплексными числами

unit cmplx

Прислал: Separator (Алматы) ( 16 марта 2004 г. )
Количество просмотров: 1772


 Вычисление определённого интеграла методом Симпсона

function Integral(A, B, Eps: Double; F: TDoubleFunc): Double;

Прислал: Dimka Maslov ( 26 ноября 2003 г. )
Количество просмотров: 1946


 Проверка пересечения двух прямоугольников (TRect)

Function OverlapRects(R1, R2: TRect): Boolean;

Прислал: MikeZ (Kiev) ( 8 октября 2003 г. )
Количество просмотров: 1687


 Функция возведения в степень

function Degree(const DegBasis, DegParam: Extended): Extended;

Прислал: Александр ( 12 сентября 2003 г. )
Количество просмотров: 1968


 Установка определенного бита в слове

function SetBit(AWord: word; ABit: byte; AState: boolean = true): word;

Прислал: Григорий Ситнин (Москва) ( 8 июля 2003 г. )
Количество просмотров: 1754


 Увеличение значения указателя

function IncPtr(APointer: pointer; AHowMuch: cardinal = 1): pointer;

Прислал: Григорий Ситнин (Москва) ( 8 июля 2003 г. )
Количество просмотров: 1623


 Угол поворота точки окружности относительно центра

function GetAngle(const Center, P: TPoint): Double;

Прислал: Fenik (Новоуральск) ( 12 июня 2003 г. )
Количество просмотров: 1776


 Вычисление определенного интеграла методом левых и правых прямоугольников с заданной точностью

Unit IntPram

Прислал: Алексей Глеб (Чернигов) ( 18 мая 2003 г. )
Количество просмотров: 2189


 Вычисление квадратного корня (алгоритм Ньютона)

function MySqrt(x: Double; n: Byte): Double;

Прислал: Fenik (Новоуральск) ( 20 апреля 2003 г. )
Количество просмотров: 2049


 Расчет расстояния между двумя точками на земной поверхности.

function Vincenty(Lat1, Lon1, Lat2, Lon2: Extended): Extended;

Прислал: Вячеслав ( 19 марта 2003 г. )
Количество просмотров: 2482


 «Округление» до ближайшего кратного

function RoundTo(Value, N: Integer): Integer;

Прислал: Dimka Maslov (Санкт-Петербург) ( 20 февраля 2003 г. )
Количество просмотров: 1958


 Использование многомерных массивов в процедурах и функциях из Math.pas

procedure or function from Math.pas

Прислал: Александр Шарахов (Москва) ( 18 января 2003 г. )
Количество просмотров: 2133


 Вычисление определенного интеграла методом трапеций с заданной точностью

function TrapezeInt(a,b:Double; eps: Double; IntF: TIntFunc): Double;

Прислал: Romkin (Москва) ( 19 ноября 2002 г. )
Количество просмотров: 2319


 Вычисление наибольшего общего делителя двух целых неотрицательных чисел

function GCD(const m, n: LongWord): LongWord;

Прислал: Fenik (Новоуральск) ( 27 октября 2002 г. )
Количество просмотров: 1943


 Проверка попадания точки в прямоугольник (TPoint в TRect)

function PointIntoRect(Point:TPoint;Rect:TRect):boolean;

Прислал: lipskiy (Санкт-Петербург) ( 26 июня 2002 г. )
Количество просмотров: 2235


 Преобразование выражения к Обратной Польской Нотации

function ConvertToBPN(AStr:OperList):OperList;

Прислал: avr555 ( 26 мая 2002 г. )
Количество просмотров: 2638


 Получение значения бита в двойном слове

function Bit(Value, Index: Integer): Boolean;

Прислал: Dimka Maslov (Санкт-Петербург) ( 21 мая 2002 г. )
Количество просмотров: 2224


 «Округление» в большую сторону

function RoundNext(Value, Divider: Integer): Integer;

Прислал: Dimka Maslov (Санкт-Петербург) ( 20 мая 2002 г. )
Количество просмотров: 2285


 «Округление» в меньшую сторону

function RoundPrev(Value, Divider: Integer): Integer;

Прислал: Dimka Maslov (Санкт-Петербург) ( 20 мая 2002 г. )
Количество просмотров: 2098


 Преобразование 3D-координат точки в 2D-координаты в перспективе

procedure Perspective(const X, Y, Z, Height, Basis: Double; var XP, YP: Double);

Прислал: Dimka Maslov (Санкт-Петербург) ( 29 апреля 2002 г. )
Количество просмотров: 2735


 Взятие интеграла методом Симпсона

function Simpson(A, B: Extended; N: Cardinal; Func: TFunction; Arg: Pointer): Extended;

Прислал: Mystic (Харьков) ( 25 апреля 2002 г. )
Количество просмотров: 2658


 Метод Гаусса решения системы линейных уравнений

function LinGauss(M, N: Integer; Data: PExtended; X: PExtended): Cardinal;

Прислал: Mystic (Харьков) ( 25 апреля 2002 г. )
Количество просмотров: 3069


 Проверка на вхождение в диапазон

function Between(Check,Left,Right:type): Boolean;

Прислал: Anatoly Podgoretsky (Johvi) ( 24 апреля 2002 г. )
Количество просмотров: 2384


 Immidiate IF - непосредственный IF

function IIF(Expr: Boolean; TrueResult, FalseResult: Variant): Variant;

Прислал: Anatoly Podgoretsky (Johvi) ( 20 апреля 2002 г. )
Количество просмотров: 2677


 Вычисление простого хеш-кода для блока данных

function CalcHash(Data : pointer; DataSize : integer) : integer;

Прислал: vuk ( 18 апреля 2002 г. )
Количество просмотров: 2500


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

function PolygonSquare(Poly: TPolygonPoints): Double;

Прислал: Виктор Щербаков (Нижний Новгород) ( 18 апреля 2002 г. )
Количество просмотров: 2524




Добавить код в данный раздел

Наверх ▲