Робота з файлами лабораторна робота

Лабораторна робота №9

Тема: Робота з файлами.

Мета: Навчитися працювати із файлами і використовувати їх для розв‘язування подальших задач.

Інформація про масив садових ділянок задана таблицею

Інв. номер	Прізвище Бєдениж {	Тип ґрунту	Площаар		ГОЗ за 1 aр	Вартість
001	Беденюк	дп	6		1798.5	10791
002	Головачук	чз	7		2289	16023
003	Боровець	чп	10		2616	26160
004	Вітрук	дп	8		1798.5	14388
005	Клочко	п	12		1308	15696
006	Загура	чз	6		2289	13734
007	Паріпа	чз	9		2289	20601
008	Ліщук	дп	8		1798.5	14388
009	Шалимов {	чп	11		2616	28776
010	Зінчик	чз	6		2289	13234
011	Пасько	п	10		981	9810
012	Дитина	п	12		1308	15696
013	Хайлова	чп	9		2616	23544
014	ПозняковськаПозняковська |	дп	8		1798.5	14388
015	Чуб'як	чп	10		2616	26160

Використовуючи записи, згідно моделі п. IVпровести розрахунок ГОЗ для кожного садівника. Визначити вартість його ділянки (вид угідь = ‘сади‘), вивести повну таблицю на екран, а також виконати наступне завдання:

1) Відсортувати список в алфавітному порядку і вивести на екран потковий та відсортований список.

2) Відсортувати список по спаданню значення площі і вивести на ек­ран початковий та відсортований списки.

3) Відсортувати список по спаданню вартості і вивести на екран початковий та відсортований списки.

4) Вивести на екран початковий список і окремо інформацію про записи, що містять прізвище з початковою літерою "Б".

5) Вивести на екран початковий список і окремо Інформацію про
ділянки, площа яких перевищує 9 арів,

6) Вивести на екран початковий список і окремо Інформацію про
ділянки, грошова оцінка вартості яких перевищує 12 млн. крб.

7) Вивести на екран початковий список і окремо інформацію про
ділянки з типом ґрунту ^1л Дарново-підзолисті".

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*

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать