Anasayfa > Kodlar > Delphi ile sayının asal olduğunu öğrenmek

Delphi ile sayının asal olduğunu öğrenmek

"n" asalsa True değilse false olarak döner..10basamaklı bi sayıyı 1snden kısa sürede kontrol eder.


Function asal(n: integer): Boolean;
var
x : real;
begin
C := 0;
x := Sqrt(n);
r := round(x);

For i := 2 to r do
if (n mod i) = 0 then
inc(c);

if c > 0 then
asal := False
else
asal := True;
end;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: