QBasic ile Histogram grafiği nasıl çizilir

'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