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 massiivi alla, tingimusel, et kõrvaldiagonaalil esineb negatiivseid arve,
062005 Õpperühm EALB-41 Spetsifikatsioonid Üldprotseduurid Peaprotseduur Op_Mas_1() Määratleb muutujad ja massiivid. Loeb töölehelt antud massiivid, kasutades alamprotseduure Loe_Tab ja Loe_Tulp Käivitab alamprotseduurid erinevate tegevuste täitmiseks. Kirjutab tulemid töölehele. Protseduur Tee_Mas_1() Genereerib vastavalt etteantud ridade ning veergude arvule suvalised numbrid, mis hiljem massiividesse loetak Protseduur Loe_Tab(A, m, n, Aprk) Loeb töölehele piirkonnast Aprk sisse väärtused ja salvestab sellle maatrksis A. Protseduur Loe_Tulp(B, n, Bprk) Loeb töölehe piirkonnast Bprk sisse väärtused ja salvestab need vektoris B. Protseduur Kir_Tab(A, m,n, Aprk) Kirjutab töölehele erinevad massiivid. Protseduur kustuta() Kustutab töölehelt kõik eelnevalt arvutuste tulemusena kuvatud numbrid. Ristkülikmaatriks Protseduur aritm(A(), n, m)
S/S22/S4- loeb summat vastavas funktsioonis k,p- kasutasin vastavalt i ja j asemel kui ainult nendest ei piisanud A()- andtud maatriks (rida ja veerg määratud) AU()- uus maatriks mis on saadud Iga rea elemendi jagamise selle rea elementide summaga B()- antud vektor (ainult rida määratud) c()- saadud ridade arvutamisega maatriks (rida ja veerg määratud) R()-ruutmaatriksi korral (rida ja veerg määratud) F( )-ruutmaatriksi korral peadiag. kasutades (rida rida määratud) Aprk/Bprk- vastavalt siis piirkond Aalg ja Balg töölehelt Protseduurid Massiivid - peaprotseduur, mis loeb sisse massiivid ja lahendab siis vastavalt kas ruutmaatriki või ristkülikma Kustuta - kustutab vastavate lahtrite sisu, mis kuuluvad piirkonda, kus on aktiivne lahter. Kustuta2- kustutab andmed lahtritest Mat_Vek- leiab maatriksi viimase veeru ja vektori skalaarkorrutise Rea_Sum- jagab iga rea elemendid selle rea elementide summaga