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

QBasic ile İki matrisi toplama

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

  1. Powers

    Powers Administrator Site Yetkilisi

    CLS
    'Matris toplatma
    INPUT " matrislerin sati￾r say￾isi￾ni￾ giriniz=", n
    INPUT " matrislerin sutun sayi￾si￾ni￾ giriniz=", m
    DIM A(n, m), B(n, m), C(n, m)
    FOR i = 1 TO n
    FOR j = 1 TO m
    PRINT "A("; i; ","; j; ")=";
    INPUT A(i, j)
    NEXT
    NEXT
    PRINT
    FOR i = 1 TO n
    FOR j = 1 TO m
    PRINT A(i, j);
    NEXT
    PRINT
    NEXT
    FOR i = 1 TO n
    FOR j = 1 TO m
    PRINT "B("; i; ","; j; ")=";
    INPUT B(i, j)
    NEXT
    NEXT
    PRINT
    FOR i = 1 TO n
    FOR j = 1 TO m
    PRINT B(i, j);
    NEXT
    PRINT
    NEXT
    FOR i = 1 TO n
    FOR j = 1 TO m
    C(i, j) = A(i, j) + B(i, j)
    NEXT
    NEXT
    PRINT "Toplam matrisi"
    FOR i = 1 TO n
    FOR j = 1 TO m
    PRINT C(i, j);
    NEXT
    PRINT
    NEXT
     
    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...