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

QBasic ile Matrisin karıştırılması

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'u￾st￾ 0 alt￾ 1 lerden olusan 8*8lik matrisin kar￾ist￾r￾lmasi￾
    CLS
    DIM m(8, 8)
    karis = 2500
    FOR i = 5 TO 8
    FOR j = 1 TO 8
    m(i, j) = 1
    NEXT j, i
    FOR i = 1 TO 8
    FOR j = 1 TO 8
    PRINT m(i, j);
    NEXT j: PRINT : NEXT i
    PRINT
    INPUT ll
    FOR l = 1 TO karis
    sat1 = INT(RND * 8) + 1
    sut1 = INT(RND * 8) + 1
    sat2 = INT(RND * 8) + 1
    sut2 = INT(RND * 8) + 1
    SWAP m(sat1, sut1), m(sat2, sut2)
    sifirsay = 0
    FOR i = 1 TO 4
    FOR j = 1 TO 8
    IF m(i, j) = 0 THEN sifirsay = sifirsay + 1
    NEXT j, i
    PRINT sifirsay;
    NEXT l
     
    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...