Реферат: Робота з файлами лабораторна робота
Название: Робота з файлами лабораторна робота Раздел: Рефераты по информатике Тип: реферат | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Лабораторна робота №9 Тема: Робота з файлами. Мета: Навчитися працювати із файлами і використовувати їх для розв‘язування подальших задач. Інформація про масив садових ділянок задана таблицею
Використовуючи записи, згідно моделі п. IVпровести розрахунок ГОЗ для кожного садівника. Визначити вартість його ділянки (вид угідь = ‘сади‘), вивести повну таблицю на екран, а також виконати наступне завдання: 1) Відсортувати список в алфавітному порядку і вивести на екран потковий та відсортований список. 2) Відсортувати список по спаданню значення площі і вивести на екран початковий та відсортований списки. 3) Відсортувати список по спаданню вартості і вивести на екран початковий та відсортований списки. 4) Вивести на екран початковий список і окремо інформацію про записи, що містять прізвище з початковою літерою "Б". 5) Вивести на екран початковий список і окремо Інформацію про 6) Вивести на екран початковий список і окремо Інформацію про 7) Вивести на екран початковий список і окремо інформацію про 8) Вивести на екран початковий список і значення площі всього садового масиву. 9) Вивести на екран початковий список і значення ГС вартості всього садового масиву. 10) Ю. Вивести на екран початковий список і середнє значення площі однієї садової ділянки. 11) Вивести на екран початковий список і середнє значення ціни за 1 12) Вивести на екран початковий список і середнє значення ГОЗ садової ділянки. 13) Вивести на екран початковий список і окремо інформацію про 14) Вивести на екран початковий список і окремо інформацію про 15) Вивести на екран початковий список і окремо інформацію про ВИКОРИСТАННЯ ФАЙЛІВ ДЛЯ ЗБЕРІГАННЯ І ОБРОБКИ ІНФОРМАЦІЇ, Записати у типізований файл Z1 дані таблиці п. V. Прочитати дані з файлу в оперативну пам'ять, використати завдання п.V (згідно варіанту п.VII) і новоутворені дані записати у файл Z2. Розглянемо наприклад використання файлів даних для зберігання та обробки інформації про масив дачних ділянок (умова прикладу 7). Початковий список запишемо у файл A: dacha, відсортований - у файл й А: dachasort. Приклад 9. Program DachFil; Const N=15; Type Dacha=Record Num: Integer; Pr: String [15]; G:String [2]; S, Oz, V: Real; Zр. Bal:Integer; End; Var f, g: file of Dacha; {файлові змінні типу « запис Dacha»} Dil :array [1..n] of Dacha; {масив записів –зміннихтипу Dacha} Dil1: Dacha; І. J: Integer; begin Assign (f, ' A:\dacha' ); Rewrite (f); Writeln (' Запис розпочато' ); for i: = l to N do with Dil [i] do begin <Введення даних > Write (‘ Номер’); readln (Num); Write (‘Прізвеще’); readln (Pr); Write (‘Тип ґрунту’); readln (G); Write (‘Площа’); readln (S); Write (‘ставка зем. податку); readln (Zp); Wrlte (‘ Бал ґрунту ’); readln (Bal); Oz: = 0. 3*Zp*Bal;V: Oz*S; Write (f, Dil[i]); {Запис у файл} Еnd;Writeln; Writeln (‘Запис завершено ‘); readln; {Вивід на екран } Writeln (‘Масив землевласників ‘); Fori: =l to Ndo WithDil [i] do Writeln (Num: 4, Pr:l5, G: 4,S:6:2, Оz:8:2, V:9:2’); Readln; {Сортування} for i:=l to N do for j:=i+1 to N do if Dil[J]. Pr<Dil [i]. Pr then begin Dil1:=Dil [j]; Dil [j]:= Dil [i]; Dil[i]:= Dil1; end; Writeln (‘впорядкований масив ‘); for i: = i to N do with Dil[i] do writeln (Hum: 4. Pr: 15, G: 4, S: 6: 2, Оz :8: 2, V: 9: 2) ; readln; Assign (g, ' A: dachasort'); Rewrite (g); For i: =l to N do Write (g, Dil [i]); {Запис у файл} Writeln ('Запис завершено’); readln; Close (f); close(g); end. виведення матриці змінних робиться так. fori:=lto 5 dobegin forj: = і to 5 do write(Oz [i, j]:8:2); writeln; end; Розглянемо приклад використання матриці для зберігання числових значень грошової оцінки землі. Приклад 6. 1. Для грошової оцінки землі (ГОЗ) сільськогосподарського призначення використовується спрощена модель, згідно якої оцінка землі залежить від виду угіддя.
Та типу ґрунту
Грошова оцінка і га землі розраховується за формулою ГОЗ = 0.3*СЗП*Вал (млн. крб. /га), де коефіцієнт 0,3 враховує індекс інфляції на рівні 1985 року. Обрахувати і занести в пам'ять ЕОМ таблицю ГОЗ у вигляді матриці 5x5. вивести матрицю на екран, а також виконати наступне завдання: визначити середнє значення ГОЗ для всіх типів грунту і видів угідь. Program GOZ? Const U: array [0..5]of string[10] = (' Угіддя', ' Ліс', ' Пасовища', ' Рілля , ' Сади' , ' Сіножаті'); Zp : array [1..5]of integer = (55, 87, 109, 67, 108)? G: array [1.. 5]ofstring[15]= (‘сірі лісові ‘,' Лучно–болотисті’,' чорноз. звичайні', ‘ дерново-підзолисті ‘ .' чорноз. типові '); IOz:Real; Індивідуальне завдання: Вивести на екран початковий список і окремо Інформацію про program Grunt; const n=15; type dacha = record Num: integer; Pr: string [15]; g: string [2]; S, Oz, V: real; Zp,Bal: integer; end; var f: file of Dacha; Dil: array [1..n] of dacha; i: integer; begin Assign (f, 'd:\tree'); rewrite (f); for i:=1 to n do with dil[i] do begin Write ('Nomer= '); readln (num); Write ('Prizveche '); readln (Pr); Write ('Tup grunty '); readln (G); Write ('Plosha '); readln (S); Write ('Stavca zem. podatcy '); readln (Zp); Write ('Bal grunty '); readln (Bal); Oz:=0.3*Zp*Bal; V:=Oz*s; writeln ('Oz=' ,Oz:4:2, 'V=', V:4:2); readln; Write (f,dil[i]); end; close (f); reset (f); read (f,dil[i]); for i:=1 to n do with dil[i] do begin if S > 9 then write (pr); readln; end; end. Висновок: На цій лабораторній роботі я навчився працювати із файлами. |