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.
