sayının tek çift olduğunu nasıl buluruz....
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
sayının tek çift olduğunu nasıl buluruz....
Delphi kodları ile.. Unutmuşum aklıma gelmedi
En son monet tarafından 27 Eyl 2004 03:23 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
MT
tek odd
çift not oddReturns True if argument is an odd number.
Unit
System
Category
ordinal routines
function Odd(X: Longint): Boolean;
Description
Odd tests if the argument is an odd number. It returns True if X is an odd number, False if X is even.
.-.-.-.-.-.-.-. ^_^
-
- Üye
- Mesajlar: 330
- Kayıt: 09 Mar 2004 11:18
- Konum: Konya
- İletişim:
S.A.
bu şekilde de yapabilirsin..
kolay gelsin
Kod: Tümünü seç
var
sonuc,sayi:integer;
begin
sonuc:= sayi mod 2;
if sonuc = 0 then
showmessage ('çift')
else
showmessage ('tek');
end;
kolay gelsin
En son yusuf simsek tarafından 27 Eyl 2004 11:17 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
-
- Kıdemli Üye
- Mesajlar: 395
- Kayıt: 22 Tem 2004 09:15
- Konum: İzmir
- İletişim:
Selam,
Sayının çiftliği yada tekliği 1. bit in dolu olup olmadığına göre belirlenir. Basitçe ve fakat güçlü bir kod olarak;
Tabi milyallık iterasyonlar yapmıyorsanız performans farklılığı sözkonusu değil diğer yöntemlerle. Ama matemaiksel bir regresyon vs çalışıyorsanız farkı farkedebilirsiniz
Kolay gelsin.
Sayının çiftliği yada tekliği 1. bit in dolu olup olmadığına göre belirlenir. Basitçe ve fakat güçlü bir kod olarak;
Kod: Tümünü seç
if sayi and 1 = 1 then /* tek */ else /* cift */
Kolay gelsin.
Doğan Zorlu, İzmir
------------------------
"Bu Kitap'ı sana yalnız şunun için indirdik: Hakkında ayrılığa düştükleri şeyi onlara iyice açıklayasın ve Kitap, iman eden bir topluluk için kılavuz ve rahmet olsun." (NAHL 64)
------------------------
"Bu Kitap'ı sana yalnız şunun için indirdik: Hakkında ayrılığa düştükleri şeyi onlara iyice açıklayasın ve Kitap, iman eden bir topluluk için kılavuz ve rahmet olsun." (NAHL 64)
doganzorlu yazdı:Ama matemaiksel bir regresyon vs çalışıyorsanız farkı farkedebilirsinizKod: Tümünü seç
if sayi and 1 = 1 then /* tek */ else /* cift */
.-.-.-.-.-.-.-. ^_^