Real Name	:	Nesrin Uluca
Subject	:	Sayı üretim fonksiyonları
Description	:	Delphide 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. 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 gibi ü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 olur. Random(50); Satırı sayesinde 0-49 arasında değer üretebilir. 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. 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. 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. 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. 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. 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. 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 etmez
Rating	:	4.69 (out of 5)

Visitor Voting Booth

:

ExcellentVery GoodGoodFairPoor