دالة العمليات الرياضية في دلفي
المؤلف:lyboy99
البريد الإلكتروني: [email protected]
رابط: http://hnh.126.com
إليك بعض الوظائف الشائعة لك، وآمل أن تكون مفيدة لك.
يمكنك بسهولة تصميم آلة حسابية علمية قوية باستخدام الوظائف التالية.
الدالة rnd(arg1:double):double;
يبدأ
النتيجة := Random * int(arg1);
نهاية؛
وظيفة arcsinh(arg1:double):double;
يبدأ
النتيجة:=Ln(arg1+sqrt(1+power(arg1,2)));
نهاية؛
وظيفة arccosh(arg1:double):double;
يبدأ
النتيجة :=Ln(arg1+sqrt(power(arg1,2)-1));
نهاية؛
وظيفة arctanh(arg1:double):double;
يبدأ
النتيجة :=Ln((1+arg1)/(1-arg1))/2;
نهاية؛
وظيفة arcsech(arg1:double):double;
يبدأ
النتيجة :=Ln((1/arg1)+sqrt(power((1/arg1),2)-1));
نهاية؛
وظيفة arccosech(arg1:double):double;
يبدأ
النتيجة :=Ln((1/arg1)+sqrt(1+power((1/arg1),2)));
نهاية؛
وظيفة arccoth(arg1:double):double;
يبدأ
النتيجة :=Ln((1+(1/arg1))/(1-(1/arg1)))/2;
نهاية؛
وظيفة ديجاركسين (arg1:double):double؛
يبدأ
النتيجة :=arcsin(DegToRad(arg1));
نهاية؛
وظيفة arcsec(arg1:double):double;
يبدأ
النتيجة := arccos(1/arg1);
نهاية؛
وظيفة degarcsec(arg1:double):double;
يبدأ
النتيجة := RadToDeg(arccos(1/arg1));
نهاية؛
وظيفة arccosec(arg1:double):double;
يبدأ
النتيجة := أركسين(1/arg1);
نهاية؛
وظيفة degarccosec(arg1:double):double;
يبدأ
النتيجة := RadToDeg(arcsin(1/arg1));
نهاية؛
وظيفة degarccos(arg1:double):double;
يبدأ
النتيجة :=arccos(DegToRad(arg1));
نهاية؛
الدالة arccot(arg1:double):double;
يبدأ
النتيجة := arctan(1/arg1);
نهاية؛
وظيفة degarccot(arg1:double):double;
يبدأ
النتيجة := RadToDeg(arctan(1/arg1));
نهاية؛
وظيفة cosech(arg1:double):double;
يبدأ
النتيجة := 2/(exp(arg1)-exp(-arg1));
نهاية؛
وظيفة sech(arg1:double):double;
يبدأ
النتيجة := 2/(exp(arg1)+exp(-arg1));
نهاية؛
وظيفة تانه (arg1:double):double؛
يبدأ
النتيجة := (exp(arg1)-exp(arg1))/(exp(arg1)+exp(-arg1));
نهاية؛
وظيفة coth(arg1:double):double;
يبدأ
النتيجة := (exp(arg1)+exp(arg1))/(exp(arg1)-exp(-arg1));
نهاية؛
وظيفة degarctan(arg1:double):double;
يبدأ
النتيجة:= RadToDeg(arctan(arg1));
نهاية؛
وظيفة arg(arg1,arg2:double):double;
يبدأ
إذا كانت arg1 <0 ثم
النتيجة := arctan(arg2/arg1)+Pi
آخر
إذا arg1>0 ثم
النتيجة: = أركانتان (arg2/arg1)
آخر
إذا arg2> 0 ثم
النتيجة := 0.5 * بي
آخر
النتيجة := -0.5 * باي؛
نهاية؛
وظيفة سينه (arg1:double):double؛
يبدأ
النتيجة := (exp(arg1)-exp(-arg1))*0.5;
نهاية؛
وظيفة cosh(arg1:double):double;
يبدأ
النتيجة := (exp(arg1)+exp(-arg1))*0.5;
نهاية؛
سرير وظيفي (arg1:double):double؛
يبدأ
إذا كانت القيمة Abs(arg1)>0.000000001 فستكون النتيجة:= cotan(arg1) النتيجة الأخرى:=100000;
نهاية؛
وظيفة cotrad(arg1:double):double;
يبدأ
النتيجة := cotan(DegToRad(arg1));
نهاية؛
الوظيفة ثانية (arg1:double):double؛
يبدأ
النتيجة := 1/cos(arg1);
نهاية؛
وظيفة cosec(arg1:double):double;
يبدأ
إذا Abs(arg1)>0.000000001 فإن النتيجة:= 1/sin(arg1) else result:=1000000;
نهاية؛
وظيفة تانراد (arg1:double):double؛
يبدأ
النتيجة := tan(DegToRad(arg1));
نهاية؛
وظيفة سينراد (arg1:double):double؛
يبدأ
النتيجة := الخطيئة(DegToRad(arg1));
نهاية؛
وظيفة cosrad(arg1:double):double;
يبدأ
النتيجة := cos(DegToRad(arg1));
نهاية؛
وظيفة cosecrad(arg1:double):double;
يبدأ
النتيجة := 1/sin(DegToRad(arg1));
نهاية؛
وظيفة سيكراد (arg1:double):double؛
يبدأ
النتيجة:= 1/cos(DegToRad(arg1));
نهاية؛
وظيفة بلانك(arg1:double):double;
فار
درجة الحرارة، الدقة: ممتدة؛
العد:عدد صحيح؛
يبدأ
يبدأ
الدقة:=0;
للعد: = 0 إلى 49 افعل
يبدأ
arg1:=arg1-int(arg1-(Ord(arg1<0)));
إذا (arg1)<0.5 ثم درجة الحرارة:=(arg1) درجة الحرارة الأخرى:=(1-arg1);
الدقة:=res+ درجة الحرارة/(الطاقة(2,count));
arg1:=2*arg1;
نهاية؛
نهاية؛
النتيجة:=الدقة؛
نهاية؛
وظيفة دقيقة (arg1، arg2: مزدوج): مزدوج؛
يبدأ
إذا arg1 < arg2 ثم
النتيجة := arg1
آخر
النتيجة := arg2;
نهاية؛
الوظيفة القصوى (arg1، arg2: مزدوج): مزدوج؛
يبدأ
إذا arg1 < arg2 ثم
النتيجة := arg2
آخر
النتيجة := arg1;
نهاية؛
وظيفة هيفيسايد (arg1:double):double؛
يبدأ
إذا كانت arg1 <0 ثم
النتيجة: = 0
آخر
النتيجة := 1؛
نهاية؛
علامة الوظيفة (arg1:double):double؛
يبدأ
إذا كانت arg1 <0 ثم
النتيجة := -1
آخر
إذا arg1 > 0 ثم
النتيجة := 1.0
آخر
النتيجة := 0.0;
نهاية؛
الدالة صفر (arg1:double):double؛
يبدأ
إذا كانت arg1 = 0.0 إذن
النتيجة := 0.0
آخر
النتيجة:= 1.0;
نهاية؛
سقف الوظيفة (arg1:double):double؛
يبدأ
إذا فارك (arg1) > 0 ثم
النتيجة:= كثافة العمليات (arg1 + 1)
آخر
النتيجة:= int(arg1);
نهاية؛
أرضية الوظيفة (arg1:double):double؛
يبدأ
إذا فارك (arg1) <0 ثم
النتيجة:= int(arg1 - 1)
آخر
النتيجة:= int(arg1);
نهاية؛
نصف قطر الوظيفة (arg1، arg2: مزدوج): مزدوج؛
يبدأ
النتيجة:= sqrt(sqr(arg1)+sqr(arg2));
نهاية؛