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

QBasic ile Girilen iki matrisin çarpılması

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'MATRIS CARPIMI
    CLS
    INPUT "N="; N
    INPUT "P="; P
    INPUT "M="; M
    PRINT
    DIM A(N, M)
    DIM B(M, P)
    DIM C(N, P)
    PRINT "ilk matrisin okutulmasi"
    FOR I = 1 TO N
    FOR J = 1 TO M
    PRINT "A("; I; ","; J; ")=";
    INPUT A(I, J)
    NEXT J
    NEXT I
    PRINT
    PRINT "A matrisinin yazd￾iri￾lmas￾i"
    FOR I = 1 TO N
    FOR J = 1 TO M
    PRINT A(I, J);
    NEXT J
    PRINT
    NEXT I
    PRINT "ikinci matrisin okutulmasi￾"
    FOR I = 1 TO M
    FOR J = 1 TO P
    PRINT "B("; I; ","; J; ")=";
    INPUT B(I, J)
    NEXT J
    NEXT I
    PRINT
    PRINT "B matrisinin yazd￾r￾lmasi￾"
    FOR J = 1 TO M
    FOR K = 1 TO P
    PRINT B(J, K);
    NEXT K
    PRINT
    NEXT J
    'carpi￾m matrisinin olusturulmasi
    FOR I = 1 TO N
    FOR J = 1 TO M
    FOR K = 1 TO P
    C(I, K) = C(I, K) + A(I, J) * B(J, K)
    NEXT K
    NEXT J
    NEXT I
    PRINT "CARPIM MATRISI"
    FOR I = 1 TO N
    FOR J = 1 TO P
    PRINT C(I, J);
    NEXT J
    PRINT
    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...