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 matrisin birim matris olup olmadığını gösteren program

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

  1. Powers

    Powers Administrator Site Yetkilisi

    'birim matris olup olmama
    CLS
    INPUT "n*n lik matrisin boyutunu giriniz", n
    DIM a(n, n)
    FOR i = 1 TO n
    FOR j = 1 TO n
    INPUT a(i, j)
    NEXT j
    NEXT i
    FOR i = 1 TO n
    FOR j = 1 TO n
    PRINT a(i, j);
    NEXT j
    PRINT
    NEXT i
    s = 1
    FOR i = 1 TO n
    FOR j = 1 TO n
    IF i <> j THEN
    IF a(i, j) <> 0 THEN
    s = 0
    END IF
    ELSE
    IF a(i, j) <> 1 THEN
    s = 0
    END IF
    END IF
    NEXT j
    NEXT i
    IF s = 1 THEN
    PRINT "birim matris"
    ELSE
    PRINT "birim matris degil"
    END IF
     
    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...