Bölme Sonucunu Nasıl Kontrol Edebilirim?

[MAydinli]

Herkese Hayırlı Günler,
bi sorum olaçak;
bir bölme işlemi sonuçunda bölümün, küsürat kısmını nasıl kontrol edebilirim.
sonuç küsüratlı mı? yoksa değil mi? gibi...
Şimdiden Teşekkür Ederim

[sabanakman]

Kod: Tümünü seç

var kalan,intsayi1,intsayi2:Integer;
begin
  .
  .
  .
  kalan:=intsayi1 mod intsayi2;// intsayi1/intsayi2'de kalanı verir
end;

[MAydinli]

kalansı bölme yapaçağız,
5/5=1,0 ; 6/5=1,2 ; 45/12=3,75 gibi

[sabanakman]

int fonksiyonu tam kısmı elde etmede kullanılır. Frac ise ondalık. Bu gibi bir çok fonksiyonla dilediğin kontrolü yapabilirsin.

Kod: Tümünü seç

var a,b,c,d,e:Real;
begin
  a:=33;
  b:=2;
  c:=a/b;//16,5
  d:=int(c);//tam sayı kısmı 16,0 atar
  e:=frac(c);//ondalık kısmı 0,5
  if c=(d+e) then //hep burası çalışır
  else //burası hiç çalışmaz
end;

Not:Gerçek sayıları bilgisayar ortamında ikilik (binary) gösterimde çok hassas veya uzun ondalıklı sayılarda (mesela 1/3 olan 0,3333... gibi) bazı önemsiz kayıplar olabilir ve bunun yan etkisi olarak matematiksel olarak eşit olması gereken iki sayıyı if ile kıyaslarken sayılar eşitsizlik gösterebilir. Bu durumda belli bir ondalıktan sonra bazı yuvarlamalar yapılmalı ve buna göre işlem ele alınmalıdır. Kolay gelsin.

[MAydinli]

çok sağolasın arkadaışım