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

QBasic ile Tam sayılar içeren bir dizide herbir elemandan kaçar tane olduğunu bulma

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'Tamsayilar iceren bir dizide herbir elemandan
    'kacar tane oldugunu bulan prg
    CLS
    DIM x(10)
    FOR i = 1 TO 9
    READ x(i)
    NEXT i
    DATA -3,-2,-1,5,7,7,8,8,12
    min = -2
    max = 8
    FOR i = 1 TO 9
    IF min > x(i) THEN min = x(i)
    IF max < x(i) THEN max = x(i)
    NEXT i
    PRINT min, max
    FOR i = min TO max
    s = 0
    FOR j = 1 TO 9
    IF x(j) = i THEN s = s + 1
    NEXT j
    IF s <> 0 THEN PRINT i; "elemanindan"; s; "tane var"
    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...