Delphide Sayı Üretim Fonksiyonları

[Mc Zindan Ankara Style]

Delphide Sayı Üretim Fonksiyonları
Delphi� de rastgele sayı üretmek son derece kolaydır. Bu işlem için tanımlanmış olan Random fonksiyonunu kullanabilirsiniz.

Random;
Random fonksiyonu parametresiz kullanılırsa 0-1 arasında rastgele ondalıklı sayı üretecektir.



Kod Çizelgesi Kod Dili: php
Procedure TForm1.Button1Click(Sender; Object);

var

Sayi : Real;

begin

Sayi := Random; // 0-1 arasında ondalıklı sayı üret

Caption := FloatToStr(Sayi);

end;




Yukarıda ki şekilde üreteceğiniz sayıları kullanmanız pek faydalı
olmayacaktır. Bu yüzden parametre değeri girilerek istenilen
aralıklarda sayı üretmek mümkün olmaktadır.



Random(50);



Satırı sayesinde 0-49 arasında değer üretebilir.


Kod Çizelgesi Kod Dili: php
Procedure TForm1.Button1Click(Sender; Object);

var

Sayi : Real;

begin

Sayi := Random(50); // 0-49 arasında ondalıklı sayı üret

Caption := FloatToStr(Sayi);

end;




Aşağıdaki gibi bir kod satırıyla da istenilen aralıkta rastgele sayı üretmeniz mümkün olacaktır.

Sayi := Random(50)+75; // 75 � 124 arasında sayı üret

Burada girilen ikinci sayı alt sınırı , ikisinin toplamı da üst sınırı belirleyecektir.


Kod Çizelgesi Kod Dili: php
Procedure TForm1.Button1Click(Sender; Object);

var

Sayi : Real;

begin

Sayi := Random(50)+75; // 50-124 arasında ondalıklı sayı üret

Caption := FloatToStr(Sayi);

end;



Rastgele sayı üretim fonksiyonlarında kullanılan diğer bir fonksiyonda
Randomizedir. Bu fonksiyon üretilecek olan sayıların aynı periyotta
oluşmasını engelleyecektir.


Kod Çizelgesi Kod Dili: php
Procedure TForm1.Button1Click(Sender; Object);

var

Sayi : Real;

begin

Randomize; // Saate göre sayı üret

Sayi := Ramdom(50)+75; // 75-124 arasında sayı üret

Caption := FloatToStr(Sayi);

end;



Artık programınızı her çalıştırdığınız zaman değişik sayılar üretmeniz mümkün olacaktır.


Kod Çizelgesi Kod Dili: php
RandomFrom(Dizi);





Parametre ile belirtilen dizi elemanlarından rastgele bir tanesinin
değerini döndürmek için kullanılan bir fonksiyondur. Dizi eleman
değerleri dışında başka bir değerin döndürülmesi söz konusu değildir.




Kod Çizelgesi Kod Dili: php
Procedure TForm1.Button1Click(Sender; Object);

var

x : Array[0..4] of Integer;

Sonuc : Integer;

begin

x[0] := 100;

x[1] := 200;

x[2] := 300;

x[3] := 400;

x[4] := 500;

Sonuc := RandomFrom(x); // Dizi elemanlarından seç

Caption := FloatToStr(Sayi);

end;


Yukarıdaki örneği inceleyecek olursanız; x dizi değişkeninin {100, 200,
300, 400, 500} olmak üzere 5 adet elemanı bulunmaktadır. Her defasında
bu elemanlardan bir tanesinin değerini döndürecektir.


Kod Çizelgesi Kod Dili: php
RandomRange(Sayı1 , Sayı2);




Parametre ile belirtilen iki tam sayı arasında rastgele tam sayı
üretmek için kullanılan bir fonksiyondur. Üretilen sayılar arasında üst
sınır yoktur.




Kod Çizelgesi Kod Dili: php
Procedure TForm1.Button1Click(Sender; Object);

var

Sonuc : Integer;

begin

Sonuc := RandomRange(10, 100); // 10-99 arasında rastgele tamsayı üret

Caption := FloatToStr(Sonuc);

end;




Parametre olarak belirtilen sayıların hangisinin büyük olacağı fonksiyon için önem arz etmemektedir.