Loginis indeksavimas. Veiksmai su failais

Kauno technologijos universitetas Mechanikos ir mechatronikos fakultetas Informacinių technologijų pagrindai 2 Laboratorinis darbas Nr. 5 Loginis indeksavimas. Veiksmai su failais Atliko: ME – 7/12 grupės stud. Mantas Girnius Tikrino: dėst. L. Barilienė Kaunas 2008 Variantas nr. 7 II užduotis Sudarykite funkciją ir scenarijų veiksmams su vienmačiais masyvais atlikti. 7. Duotas masyvas X. Ne teigiamus šio masyvo elementus surašykite į masyvą Y. Jei didžiausiojo ir mažiausiojo masyvo Y elementų skirtumas didesnis už d, tai tuos elementus pakeiskite vidurkiu. Scenarijuje pradinius duomenis įveskite iš duomenų failo ***.dat , o rezultatus išveskite į rezultatų failą ***.rez. , kur *** - jūsų scenarijaus failo vardas. Pradinius duomenis, tarpinius ir galutinius rezultatus spausdinkite laisvai pasirinkta forma. Algoritmas Sudarau funkciją masyvas ir scenarijų. Struktūrograma: Pradiniai duomenys: X, d – konstantos Rezultatas: Y, Ymin, Ymax, ind, in, Vid, kiekis – skaliariniai dydžiai Programa function [Y, Ymin, Ymax, ind, in, Vid, kiekis]=masyvas(X, d) %masyvas - funkcija veiksmams su masyvais atlikti %X - duotasis masyvas %d - konstanta %Y - naujai gautas ir pakeistas masyvas %Ymin - minimalus masyvo Y elementas %Ymax - maksimalus masyvo Y elementas %Vid - masyvo Y vidurkis %ind - minimalaus Y masyvo elemento indeksas %in - maksimalaus Y masyvo elemento indeksas %--------------------------------------------------- format short g; X1=(Xd Y(in)=Vid; Y(ind)=Vid; end; Išsaugau failą pavadinimu masyvas.m. Scenarijus Scenarijaus algoritmo struktūrograma Scenarijus bandymas Pradinių reikšmių įvedimas: d Duomenų įvedimas iš failo Naujo failo sukūrimas [Y, Ymin, Ymax, ind, in, Vid, kiekis]=masyvas(X, d) Spausdinti: Y, Ymax, Ymin, Vid Naujo failo užvėrimas Pabaiga d=input ('Įveskite d: '); frd = fopen('lol.dat','r'); % Failo lol.dat atvėrimas skaityti X=fscanf(frd,'%f'); % Masyvo X elementų įvedimas fclose(frd); % Failo lol.dat užvėrimas X=X'; %Vektorius X transponuojamas todėl, kad, būtų soformuotas vektorius %stulpelis % frw = fopen('lol.rez','w'); % Failo lol.rez atvėrimas [Y, Ymin, Ymax, ind, in, Vid, kiekis]=masyvas(X, d); % Rezultatų rašymas į failą lol.rez fprintf(frw,' Masyvo Y maksimalus elementas: %3.0f\n',Ymax); fprintf(frw,' Masyvo Y minimalus elementas: %3.0f\n',Ymin); fprintf(frw,'Masyvo Y elementų vidurkis: %6.2f\n',Vid); fprintf(frw,'\nPakeistas masyvas Y: \n'); fprintf(frw,'%6.2f ',Y); fclose(frw); % Failo lol.rez užvėrimas Išsaugau failą pavadinimu lol.m. Sukuriu lol.dat failą ir įvedu šiuos skaičius: -1 2 5 6 -8 -10 -12 Komandiniame lange parašau lol, įvedu d reikšmę. Gaunu rezultatą: Komandiniame lange: >> lol Įveskite d: 3 lol.rez faile: Masyvo Y maksimalus elementas: -1 Masyvo Y minimalus elementas: -12 Masyvo x teigiamų elementų vidurkis: -7.75 Pakeistas masyvas Y: -7.75 -8.00 -10.00 -7.75

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!