قلب الأرقام المدخل
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
قلب الأرقام المدخل
قلب الأرقام المدخل
بامكان هذا الكود البرمجي الدلفوي أن يقلب الرقم الذي يتم ادخاله أو اعطاءه،
في الحالة هذه هو من نوع صحيح .
[left]
بامكان هذا الكود البرمجي الدلفوي أن يقلب الرقم الذي يتم ادخاله أو اعطاءه،
في الحالة هذه هو من نوع صحيح .
- الكود:
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
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى