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

QBasic ile Histogram grafiği nasıl çizilir

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

  1. Powers

    Powers Administrator Site Yetkilisi

    '1-100 arasi￾ rasgele sayi￾ u￾retip histogram cizme en kucu￾k en b￾uyu￾k bulma
    CLS
    DIM sinif(100)
    n = 1000
    FOR i = 1 TO n
    u = INT(RND * 100) + 1
    sinif(u) = sinif(u) + 1
    NEXT i
    PRINT : PRINT "siniftaki eleman say￾lar￾"
    FOR i = 1 TO 100
    PRINT i; sinif(i)
    NEXT i
    PRINT
    INPUT ll
    FOR i = 1 TO 100
    FOR j = 1 TO sinif(i)
    PRINT "*";
    NEXT j
    PRINT
    NEXT i
    enk = sinif(1)
    yer = 1
    ebk = sinif(1)
    yer1 = 1
    FOR i = 1 TO 100
    IF sinif(i) <= enk THEN
    enk = sinif(i)
    yer = i
    END IF
    IF sinif(i) >= ebk THEN
    ebk = sinif(i)
    yer1 = i
    END IF
    NEXT i
    PRINT
    PRINT "yer ve enkuck "
    PRINT yer, enk
    PRINT "yer ve enbuyuk "
    PRINT yer1, ebk
     
    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...