Delphi'de rasgele sayı üretmek - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Yeni Konu aç

Cevapla

Alt

07 Temmuz 2010, 20:23

#1

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Delphi'de rasgele sayı üretmek

Delphide rasgele sayı üretmek çok kolaydır. bunun için zaten tanımlanmış bazı fonksiyonlar vardır.
bunlar:

Random
Randomize
RandomRange
RandomFrom

1- Random
Bu fonksiyonla belirlenen belirlenen iki sayı arası üretim yapılabilir. eğer parametresiz kullanılırsa 0-1 arasında ondalık sayılar üretir.
Örneğin;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

var 
S : integer; 
begin 
S := Random; // parametresiz kullandım 0-1 arasında ondalık sayı üretecek.
Caption := FloatToStr(S); 
end;

bu fonksiyon pek işe yaramayacaktır.parametre girilirse istenilen iki sayı arası üretim yapar.
şu kodla üretilecektir:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

var 
S : integer; 
begin 
S := Random(10); // 0-9 arasında sayı üretecekdir. 
Caption := FloatToStr(S); 
end;

bu kodla ise 0-9 arasında sayı üretebilirsiniz.

bide şunu deneyin buda işinize yarayacaktır.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

var 
R : integer; 
begin 
R := Random(10)+5; // 5-14 arasında sayı üretecekdir 
Caption := FloatToStr(R); 
end;

2-Randomize
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: Kodu kopyalamak için üzerine çift tıklayın!

var 
Rm : integer; 
begin 
Randomize; // Saate göre sayı 
Rm := Random(50)+75; // 75-124 arasında sayı üret 
Caption := FloatToStr(Rm); 
end;

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

3-RandomRange
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: Kodu kopyalamak için üzerine çift tıklayın!

var 
RR : Integer; 
begin 
RR := RandomRange(10, 100); // 10-99 arasında rastgele tamsayı üret 
Caption := FloatToStr(RR); 
end;

4- RandomFrom
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: Kodu kopyalamak için üzerine çift tıklayın!

var 
Rd : Array[0..4] of Integer;
Rf : Integer;
begin
Rd[0] := 20;
Rd[1] := 40;
Rd[2] := 60;
Rd[3] := 80;
Rd[4] := 100;
Rf := RandomFrom(Rd); // Dizi elemanlarından rasgele seç
Caption := FloatToStr(Rf);
end;

Yukarıdaki örneği inceleyecek olursanız; Rd dizi değişkeninin {20, 40, 60, 80, 100} olmak üzere 5 adet elemanı bulunmaktadır. Her defasında bu elemanlardan bir tanesinin değerini döndürecektir.

Alıntıdır.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________

Büyümeden yaşlandım ben.Hayat; ilk gördüğüm insanların,ilk gördüğüm gibi olmadıklarını öğretti.

Kahraman Tazeoğlu

Alıntı ile Cevapla

IRCForumlari.NET Reklamlar

Cevapla

delphide, rasgele, sayı, üretmek

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Yetkileriniz
Konu Acma Yetkiniz Yok Cevap Yazma Yetkiniz Yok Eklenti Yükleme Yetkiniz Yok Mesajınızı Değiştirme Yetkiniz Yok BB code is Açık Smileler Açık [IMG] Kodları Açık HTML-Kodu Kapalı Trackbacks are Kapalı Pingbacks are Açık Refbacks are Açık Forum Rules

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Rasgele sayı oluşturma	deha131	mIRC Scripting Sorunları	9	14 Mayıs 2013 20:08
Rasgele voice (/rasgele)	Paint	mIRC Scripting Hazır Kodlar	2	21 Nisan 2013 00:58
On Sayı İçinde Maksimum Dört Sayı	aSi	C ve C++	0	25 Şubat 2012 19:40
Rasgele Sayı Üretimi	DaDaS	CR Makaleler	0	14 Ocak 2012 23:11
Tek Sayı - Çift Sayı Kontrolü	Cemalizim	C ve C++	0	19 Temmuz 2008 15:38

Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.

İletişim Arşiv Gizlilik Sözleşmesi Yukarı git

yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO

Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org