sayının tek çift olduğunu nasıl buluruz....

monet · Mesaj gönderen **monet** » 27 Eyl 2004 11:02

Delphi kodları ile.. Unutmuşum aklıma gelmedi

Mesaj gönderen **mege** » 27 Eyl 2004 11:07

tek odd

Returns 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.

çift not odd

yusuf simsek · Mesaj gönderen **yusuf simsek** » 27 Eyl 2004 11:15

S.A.

Kod: Tümünü seç

var
sonuc,sayi:integer;
begin

sonuc:= sayi mod 2;
if sonuc = 0 then
showmessage ('çift')
else
showmessage ('tek');
end;

bu şekilde de yapabilirsin..

kolay gelsin

selimr · Mesaj gönderen **selimr** » 27 Eyl 2004 11:15

[/code]
if sayi mod 2 = 0 then // sayı çift sayı
else // sayı tek sayı

Mesaj gönderen **doganzorlu** » 27 Eyl 2004 12:19

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;

Kod: Tümünü seç

  if sayi and 1 = 1 then /* tek */  else /* cift */

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.

Mesaj gönderen **mege** » 27 Eyl 2004 12:32

doganzorlu yazdı:
Kod: Tümünü seç
  if sayi and 1 = 1 then /* tek */  else /* cift */
Ama matemaiksel bir regresyon vs çalışıyorsanız farkı farkedebilirsiniz