حساب Factorial العاملي عن طريق خاصية Propertie

اذهب الى الأسفل

حساب Factorial العاملي عن طريق خاصية Propertie

مُساهمة  ali1 في 9/4/2018, 11:35 pm


بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله

حساب Factorial العاملي عن طريق خاصية Propertie

هذه الخاصية Propertie تقوم
بحساب Factorial العاملي وهي عملية ضرب من الرقم المدخل الرقم واحد

وهي متكونة من حقل واجرائية


الكود:


Unit UnitFactorial;
interface
type
  TFactorial = class
    fFact: Integer;
    procedure SetFact(f: Integer);
    property pFact: Integer read fFact write SetFact;
  end;

implementation

procedure TFactorial.SetFact(f: Integer);
var i: integer;
begin
  fFact := 1;
  for i := f downto 1 do
    fFact := fFact * i;
end;


_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 860
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى