1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.

QBasic ile Zar nasıl atılır

'Bilgisayar Programlama ve Kodlama' forumunda Powers tarafından 8 Ocak 2013 tarihinde açılan konu

  1. Powers

    Powers Administrator Site Yetkilisi

    'zar ati￾lmasi￾ ve histogram￾
    CLS
    DIM sinif(6)
    n = 100
    FOR i = 1 TO n
    u = INT(RND * 6) + 1
    sinif(u) = sinif(u) + 1
    'PRINT u;
    NEXT i
    INPUT ll
    PRINT : PRINT "siniftaki eleman sayi￾lari￾"
    FOR i = 1 TO 6
    PRINT i; sinif(i)
    NEXT i
    PRINT
    INPUT ll
    FOR i = 1 TO 6
    FOR j = 1 TO sinif(i)
    PRINT "*";
    NEXT j
    PRINT
    NEXT i
     
    Tags:

Bu Sayfayı Paylaş

  1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.
  1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.
Yükleniyor...