[Visual Basic] Suma liczb na przekątnej macierzy

Dombian
Użytkownik
Użytkownik
Posty: 2
Rejestracja: 29 maja 2012, o 14:00
Płeć: Mężczyzna
Lokalizacja: W-wa
Podziękował: 1 raz

[Visual Basic] Suma liczb na przekątnej macierzy

Post autor: Dombian »

Witam! Mam pewien problem, gdyż dostałem takie zadanie:
Dana jest dwuwymiarowa kwadratowa macierz liczbowa o wymiarach K na K. Napisz program obliczania sumy liczb na głównych przekątnych macierzy lewej lub prawej - wybór na podstawie odpowiedzi na pytanie (czy lewa czy prawa)
Dane:
K - wymiar macierzy
RL - macierz liczbowa wprowadzana z klawiatury lub z pliku dyskowego (po odpowiedzi na pytanie skąd dane)
Wyniki:
Suma - obliczona suma przekątnej.
W wynikach oznacz czy jest to przekątna lewa czy prawa.

zadeklarowałem ją tak:

Kod: Zaznacz cały

Dim K As Integer
        Dim macierz(K, K) As Integer
        K = Val(Ktxt.Text)
Jak zsumować przekątną? I jak w ogóle wczytać dane do tablicy (z klawiatury i dysku)
Z góry dziękuję za jakąkolwiek pomoc!
Dombian
Użytkownik
Użytkownik
Posty: 2
Rejestracja: 29 maja 2012, o 14:00
Płeć: Mężczyzna
Lokalizacja: W-wa
Podziękował: 1 raz

[Visual Basic] Suma liczb na przekątnej macierzy

Post autor: Dombian »

Już wiem jak sumować główną przekątną:

Kod: Zaznacz cały

For i = 0 To K - 1
suma = suma + RL(i, i)
Next i
Czy mógłby ktoś pomóc jak drugą?
Bo jak biorę 2 pętle For:

Kod: Zaznacz cały

for j=0 to K-1
for i=K-1 to 0 step -1
suma=suma+RL(j,i)
Next i
Next j
to mi sumuje już całość macierzy...
ksisquare
Użytkownik
Użytkownik
Posty: 132
Rejestracja: 1 cze 2012, o 07:04
Płeć: Mężczyzna
Lokalizacja: Polska
Pomógł: 15 razy

[Visual Basic] Suma liczb na przekątnej macierzy

Post autor: ksisquare »

suma = suma + RL( i, K - i -1 )
ODPOWIEDZ