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

قلب الأرقام المدخل

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

قلب الأرقام المدخل  Empty قلب الأرقام المدخل

مُساهمة  ali 20/4/2018, 1:13 pm

قلب الأرقام المدخل

بامكان هذا الكود البرمجي الدلفوي أن يقلب الرقم الذي يتم ادخاله أو اعطاءه،
في الحالة هذه هو من نوع صحيح .


الكود:


uses untInv;
procedure TForm1.Button1Click(Sender: TObject);
var
  iv1: Inve;
begin
   iv1 := Inve.create;
   try
   iv1.Inver := 2018;
   caption := '2018 l''inverse de est = '+IntToStr(iv1.Inver);
   finally
    iv1.Free;
   end;
end;


[left]
الكود:



unit untInv;

interface
type
  Inve = class
  private
    fIv: Integer;
    procedure Inverse(n: integer);
  public
    property Inver: Integer read fIv write Inverse;
  end;

implementation

procedure Inve.Inverse(n: integer);
var
   i,REST,nv: integer;
begin
 nv:=0;
 i:=0;
 while(n <> 0) do
 begin
  REST:=n mod 10;
  n:=n div 10; //l'order est oblegé //
  nv:=nv*10+REST;
  i := i + 1;
 end;
 fIv := nv;
end;

end.

[/left]

ali
مبرمج مجتهد

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

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

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


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