"kerimisnuppu" - 1 õppematerjal

Massiivid variant 11

Parameetrid: massiiv A(), ridade arv m, veergude arv n, vektror maks(), vektor rida(), vektor veerg() Leiab iga rea maksimaalse elemendi ning kannab selle väärtuse vektorisse maks() vastavasse ritta, leiab s asukoha ning kannab rea numbri vektori rida() ning veeru numbri vektori veerg() vastavasse ritta. Sub Summa_1(A(),m,n,s) Parameetrid: massiiv A(),m,n, summa s. Leiab kõikide maatriksi elementide arvude summa, mis on väiksemad etteantud arvust. 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.