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

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

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

مُساهمة  ali1 في 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]

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

ali1
مبرمج مجتهد

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

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

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


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