"peaprotseduuris" - 1 õppematerjal

Massiivid variant 11

Arvu saab ise valid kerimisnuppu töölehel. If -lausega teeb kindlaks, kas antud arv on suurem maatriksi elemendist, kui on siis väiksemad elemendid kokku. Sub Tee_Uus(A(), m, n, C(), k) Parameetrid: massiiv A(), m, n, uus massiiv C(), uue massiivi ridade arv k. Leiab uue massiivi C(), valides read massiivist A() selle järgi, kas rea esimene element on negatiivne või m suurendab uue massiivi ridade arvu k ühe võrra. Peaprotseduuris kirjutab protseduuriga Sub Kir_Tab C(), Aprk.Offset(m + 2, 0) uue maatriksi töölehele. RUUDU ALAMPROTSEDUURID: Sub Liida(D(), B(), m, n) Parameetrid: uus massiiv D(), vektor B(), massiivi ridade arv m, veergude arv n. Liidab vektori B() massiivi A() nendele ridadele, kus kõrvaldiagonaali element on negatiivne ning moodusta massiivi D(). Peaprotseduuris võtab massiivid D=A´ga , seejärel rakendab liitmistehte, mille järel paigutab tekkinud mas