24-09-2016, 08:19 PM
سلام عليكم
استعمل الدالة abs
مثال
استعمل الدالة abs
مثال
كود :
var
a,b,c:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:= (a*100) mod (b);
edit3.Text:=inttostr(abs(c));
end;
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر