۲۲-اردیبهشت-۱۳۸۹, ۰۵:۰۹:۵۲
سلام:
ببخشید مجموعه ها را یادم رفت بنویسم.
کد:
uses
Math;
Caption:=FloatToStr(ABS(-4)); // قدر مطلق است
Caption:=FloatToStr(SQR(4)); // عدد را به توان 2 مي رساند
Caption:=FloatToStr(SQRT(5)); // جذر يک عدد است
Caption:=FloatToStr(Pi); // عدد پي را با 10 رقم اعشار نشان ميده
Caption:=FloatToStr(Frac(51.2131256)); // قسمت اعشار يک عدد را بر مي گرداند
Caption:=FloatToStr(int(112.55)); // قسمت صحيح يک عدد اعشاري را بر مي گرداند
Caption:=FloatToStr(Round(12.50)); // اين تابع يک عدد را گرد مي کند
Caption:=FloatToStr(floor(12.99)); // براي گرد کردن عدد به پايين
Caption:=FloatToStr(ceil(12.12)); // براي گرد کردن يک عدد به بالا
Caption:=FloatToStr(Random); // يک عدد شانسي بر مي گرداند
Caption:=FloatToStr(Random(100000000)); // اين تابع يک عدد شانسي بين صفر تا ان توليد مي کند
Caption:=FloatToStr(Sin(1)); // سينوس يک زاويه را بر حسب راديان حساب مي کند
Caption:=FloatToStr(Cos(1)); // کسينوس يک زاويه را بر حسب راديان حساب مي کند
Caption:=FloatToStr(ArcTan(1)); // مقدار زاويه اي را که تانژات آن برابر ايکس است را بر حسب راديان بر مي گرداند // Atn
Caption:=FloatToStr(Ln(2)); // e(e=2.718) // لگاريتم عدد اکس در پايه نپرن را بر مي گرداند // Log
Caption:=FloatToStr(Exp(2)); // عدد نپرن را به توان ايکس مي رساند // Exp
Caption:=FloatToStr(Sqr(2)); // توان عدد را نشان ميده
Caption:=FloatToStr(Tan(5)); // تانژانت را حساب مي کند بر حسب راديان است
Caption:=FloatToStr(Cot(5)); // کتانژتنت را حساب ميکند بر حسب راديان
Caption:=FloatToStr(IntPower(PI,5)); // براي محا سبه انتگرال است
Caption:=IntToStr(Trunc(13.400)); // بدون اعشار نشان مي دهد
Caption:=FloatToStr(ArcCosh(5.2));
Caption:=FloatToStr(ArcCotH(5.2));
Caption:=FloatToStr(ArcCscH(5.2));
//Caption:=FloatToStr(ArcSecH(5.2));
Caption:=FloatToStr(arcsinh(5.2));
//Caption:=FloatToStr(arctanh(5.2));
Caption:=FloatToStr(cosh(5.2));
Caption:=FloatToStr(coth(5.2));
Caption:=FloatToStr(csch(5.2));
Caption:=FloatToStr(sinh(5.2));
Caption:=FloatToStr(tanh(5.2));
Log10(); // لگاريتم در مبناي 10
Log2(); // لگاريتم در مبناي 2
LogN(); // لگاريتم در مبناي دلخواه
if Odd(3) = True then
ShowMessage('عدد فرد است')
else
ShowMessage('عدد زوج است');ببخشید مجموعه ها را یادم رفت بنویسم.
کد:
Type
FontStyle =(fsBold fsltalic fsUnderlined);
FontStyles = set of FontStyle;
Include(< Name >,< EnumMember >);
Include(< Name >,< EnumMember >);
Exclude(< Name >,< EnumMember >);
< Name >:=< Name > +[< EnumMember >];