دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

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

مُساهمة  ali 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;


ali
مبرمج مجتهد

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

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

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

- مواضيع مماثلة

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