Matriciniai skaičiavimai

L5 Matriciniai skaičiavimai VI09 Deimantė Samušytė, Odeta Šinskienė 1. Užduotis 1. Matricos įvedimas, didžiausio ir mažiausio elementų eilės numerio radimas. 2. Darbo organizavimui naudojamas meniu. 3. Programos prisistatymas ir atsisveikinimas. Kompiuterio ekrano planavimas. 4. Rezultatai išvedami į tekstinį failą. 2. Programos aprašymas a) Blokinė schema b) komponentų savybės Objektas Savybė Reikšmė Form1 Height 6400 Form1 With 3000 Form1 BackColor RGB(200, 200, 255) Form1 AutoRedraw True 3.Atmintinė vartotojui Programos apimtis 629 baitai Programos failo vardas Project1.xls 4.Programos tekstas ‘ Deimantė Samušytė 1. Matricos įvedimas, didžiausio ir mažiausio elementų eilės numerio radimas. 2. Darbo organizavimui naudojamas meniu. 3. Programos prisistatymas ir atsisveikinimas. Kompiuterio ekrano planavimas. 4. Rezultatai išvedami į tekstinį failą. 2009-11-04 Option Explicit Public t, max, maxi, maxj, min, mini, minj Dim masyvas(20, 4) As Integer Public Sub masformatavimas(masyvas, max, maxi, maxj, min, mini, minj) Dim i, j As Integer Randomize t = 5 min = 100 Form1.Height = 6400 Form1.Width = 3000 Form1.BackColor = RGB(200, 200, 255) Form1.AutoRedraw = True Cls Print "Masyvas:" For i = 0 To 19 For j = 0 To 3 masyvas(i, j) = Int(50 * Rnd + 10) Print masyvas(i, j); Tab(t + 5 * j); If masyvas(i, j) > max Then max = masyvas(i, j) maxi = i + 1 maxj = j + 1 End If If masyvas(i, j) "" Then Open meniu.FileName For Output As #1 End If Print #1, "MASYVO REIKSMES"; Chr(13) Print #1, "-----------------"; Chr(13) Print #1, "|1ST|2ST|3ST|4ST|"; Chr(13) Print #1, "-----------------"; Chr(13) masformatavimas masyvas, max, maxi, maxj, min, mini, minj For k = 0 To 19 For l = 0 To 3 Print #1, masyvas(k, l), Chr(13); Tab(t + 5 * 1); Next Print #1, ""; Chr(13) Next Print #1, "-------------------"; Chr(13) Print #1, "Max elementas; " & max Print #1, "Max elemento vieta; " & maxi & " ; " & maxj Print #1, "min elementas; " & min Print #1, "Min elemento vieta; " & mini & " ; " & minj Close #1 End Sub 5. Duomenų ir rezultatų pavyzdys

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!