etiline keskmine, m maksimaalne element viimases veerus (S) Peaprotseduur OP_Mas() määratleb muutujad ja massiivid loeb töölehelt vastavad massivid kasutades alamprotseduure Loe_Tab ja Loe teeb kindlaks, kas töölehel olev maatriks on ruutmaatriks või ristkülikmaatriks vastavalt maatriksi tüübile rakendab alamprotseduurid kirjutab vajalikud tulemid töölehele Protseduur tee_uus(A(), B(), m, mitu) moodustab uue maatriks B() maatriksi A() nendest ridadest, kus peadiagonaa m on ridade arv algses maatriksis A() ja mitu on ridade arv uues maatriksis B( Protseduur liida(A() ,B() ,m) liidab vektori B() maatriksi A() nendele ridadele, mille viimane element on neg Funktsioon neg_kesk_üpd(A(), m) leiab maatriksi A() negatiivsete elementide aritmeetilise keskmise, mis asuvad Protseduur värvi_maksreas(prk, m, n) leiab piirkonna prk, mille ridade arv on m ja veergude arv n, maksimaalse elem igas reas ja värvib selle ära Protseduur Jagamine(A(), s, t)
väljastab selle koos asukohaga, mõlemad nihkega vektorist. Kutsub välja protseduuri liida, millega algusega veerule vektor - väljastab nihkega uue massiivi. Kutsub välja protseduuri abs_kesk, milleg tabeli absoluutväärtuste keskmine ja väljastab selle kohale "abs_kesk". Kui tegu on ruutmaatriksiga, siis kutsub välja protseduuri Värvi, mis värvib erinevat värvi peadiagon ülevalpool oleva ala. Kutsub välja protseduuri Maks_PD , mis leiab maksimaalse arvu peadiagonaa lahtrisse "maks". Lisaks leiab maksimaalset arvu sisaldava veeru summa ja väljastab selle lahrisse min_el_allPD, mis leiab minimaalse arvu allpool peadiagonaali ja väljastab selle lahtrisse minallPD. protseduuri etteantud, mis leiab massiivist kõik etteandud arvust väiksemad arvud ja väljastab need Ristkülikmaatriksi alamprotseduurid Sub min_el(A(), m, n, vn, rn, vektor As Range) Parameetrid: massiiv A, ridade arv, veergude arv, veeru number, rea number, vektor.
Leiab ristkülikmaatriksist absoluutse A,m,n maksimumi ja selle asukoha. amaks=A(1,1) rn=1 vn=1 i=1...m j=1...n ei amaks=A(1,1) rn=i vn=j A(i,j)>amaks amaks, rn,vn Leiab ruutmaatriksis maksimaalse elemendi ülalpool peadiagonaa A(), n maks = A(1,1) vn=2 rn = 1 * i = 1... n-1 * j = i+1... n ei Ai,j > max maks = Ai, j rn = i vn = j Next j Next i maks, rn, vn alpool peadiagonaali.
annaabi.ee 
