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

QBasic ile Dizide sayı bulma

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'dizide sayi￾ bulma
    CLS
    INPUT "Dizinin eleman sayisini giriniz="; n
    DIM x(n)
    FOR i = 1 TO n
    INPUT x(i)
    NEXT i
    FOR i = 1 TO n
    PRINT x(i)
    NEXT i
    s = 0
    INPUT "Aranacak elemani giriniz="; x
    FOR i = 1 TO n
    IF x(i) = x THEN PRINT "aradiginiz eleman"; i; ".si￾radad￾r"
    IF x(i) = x THEN s = s + 1
    NEXT i
    PRINT "aradiginiz elemandan toplam"; s; "tane vard￾r"
    IF s = 0 THEN PRINT "aradiginiz eleman yoktur"
     
    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...