Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: ZAR ATILMASI  (Okunma sayısı 238 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı gülbahar_35

  • Delphi 1 Level 1
  • *
  • İleti: 3
  • Rep: +0/-0
ZAR ATILMASI
« : 13 Ocak 2012 18:55:29 »
RASTGELE İKİ ZARIN ATILMASI İLE OLUŞAN DEĞERLERİ EKRANA YAZDIRIAN PROGRAM
Kayıtlı

Çevrimdışı savas_28

  • Delphi 1 Level 2
  • **
  • İleti: 11
  • Rep: +0/-0
Ynt: ZAR ATILMASI
« Yanıtla #1 : 13 Ocak 2012 19:48:17 »
Kod: [Seç]
var
i:integer;

deger:integer;
begin
deger:=StrToInt(edit1.text);
 for i:=1 to girilen do
 begin
Randomize;
sayi := RandomRange(1,7); // 1-7 arasında sayı üret...
memo1.Lines.Add(FloatToStr(sayi));//memo1 e yazdır...
end;
end;
yalnız değişkenleri kendin yaz değiştir...
savaş koç
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »