Massiivid (2)

Tallinna Tehnikaülikool Informaatikainstituut Ülesanne Massiivid : variant nr. 25 Üliõpilane Allar Plaksi Õppejõud Ermo Täks hnikaülikool ainstituut iant nr. 25 Matrikli nr. 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) Leiab maatriksi iga veeru aritmeetilise keskmise ning lahutab selle vastava veeru elementidest. n Maatriksi ridade arv. m Maatriksi veergude arv. A() Maatriks A.
Protseduur maksimum(A(), n, m, max, rn, vn) Leiab absoluutväärtuselt suurima elemendi ja selle asukoha maatriksis. n Maatriksi ridade arv. m Maatriksi veergude arv. max Abimuutuja, mille abil leitakse suurim element igas veerus. A() Maatriks A. rn Rea nr., kus maksimum asub. vn Veeru nr., kus maksimum asub. Maksimum ning rea ja veeru number, kus see asub, esitatakse töölehe vastavates lahtrites.
Funktsioon aritm2(A(), rn, m) Leiab selle rea elementide aritmeetilise keskmise, kus asub leitud maksimum. Vastus esitatakse töölehel lahtris "kesk". rn Rea number, kus asub maksimum. m Maatriksi veergude arv. A() Maatriks A. hiljem massiividesse loetakse.
Ruutmaatriks
Protseduur Lahuta (A(), B(), C(), n) veeru elementidest. Lahutab vektori B nendest ridadest, kus kõrvaldiagonaali element on positiivne. n Maatriksi ridade arv. A() Esialgne maatriks A. B() Vektor B. C() Uus maatriks C. Uus maatriks C kuvatakse 1-realise vahega maatriksist A allapoole.
Funktsioon Yleminemin(A(), n, min) Leiab minimaalse elemendi ülalpool peadiagonaali. n Maatriksi ridade arv. A() Maatriks A. min Abimuutuja, mille abil leitakse väikseim element. Minimaalne element kuvatakse töölehe lahtris "min".
Protseduur Uuedread(A(), D(), n) Moodustab uue maatriksi ridadest, kus peadiagonaali element on suurem nullist. n Maatriksi ridade arv. A() Esialgne maatriks A. D() Uus maatriks D. Uus maatriks D kuvatakse 1-realise vahega maatriksist C allapoole. miinimum maksimum rida veerg keskmine
Riskülikmaatriks: 1) lahutada iga veeru elementidest selle veeru elementide aritmeetiline 2) leida maatriksi absoluutväärtuselt suurim element ja selle asukoht (S) 3) rea elementide aritmeetiline keskmine, kus asub leitud maksimum
Ruutmaatriks: 1) lahutada vektor nendest ridadest, kus kõrvaldiagonaali element on positiivne (S) 2) leida minimaalne element ülalpool peadiagonaali 3) moodustada uus maatriks ridadest, kus peadiagonaali element on suurem nullist e aritmeetiline elle asukoht (S) d maksimum
ment on positiivne (S)
i element on suurem nullist 1) Absoluutväärtuselt maksimumi leidmine.
A(), m, n
maks = (A1,1 rn = 1 vn = 1 )
* i = 1... n
* j = 1... m ei Abs(Ai,j)> maks
maks = Abs(Ai, rn = i vn = j j)
maks, rn, vn protseduur Lahuta(A(), B(), C(),n, m, n)
* i = 1..n
* j = 1..n A(i,n-1+1)>0
ei
C(i,j)= A(i,j)- Ci,,j = Ai, j Bj