Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Математика    >>    moremath
   
 
 More Math Functions  Unknown 22.02.1992

Набор математических функций. Включает в себя:
- возведение в степень 10, десятичный логарифм;
- является ли число простым, целым;
- преобразование градов, градусов и радианов;
- вычисление тангенса, секанса, косеканса, котангенса;
- применение теоремы Пифагора;
- площадь треугольника, круга, сектора, эллипса, квадрата, прямоугольника;
- площадь поверхности куба, поверхности прямоугольной призмы, сферы, цилиндра, конуса, трапезоида;
- длина окружности и эллипса;
- объем куба, параллелепипеда, призмы, сферы, цилиндра, конуса;
- расстояние между двумя точками;
- факториал; наибольший общий делитель, наименьший общий множитель;
- Дополнительно прилагается модуль с набором строковых функций, аналогичных используемым в dBase.



2k 
 

CONST e = 2.7182818; Function Exponent(Base: Real; Power: Integer): Real; {Base can be real, power must be an integer} VAR X: INTEGER; E: REAL; BEGIN; E:=1; If Power = 0 then E:=1 Else If Power = 1 then E:=Base Else For X:=1 to ABS(Power) do E:=E*Base; If Power < 0 then E:=1/E; Exponent:=E; END; Function Log(Base, Expnt: Real): Real; {returns common (base 10) logarithm} Begin; Log:=ln(Expnt)/ln(Base); End; Function Prime(N: LongInt): Boolean; {Determines if argument is prime} Var C: LongInt; S: Real; X: Boolean; Begin; N:=ABS(N); S:=SQRT(N); X:=( (N<=2) OR (ODD(N)) AND (S <> INT(S) ) ); If X then Begin C:=3; While (X AND (C < Int(S))) do Begin X:=((N Mod C) > 0); C:=C+2; End; {While} End; {If X} Prime:=X; End; {Prime} Function Whole(X: Real): Boolean; Begin; Whole:=INT(X) = X; End; Function Seconds_to_Words(Sec: LongInt): String; CONST SecDay=86400; SecHr=3600;