Название: Робота з файлами лабораторна робота
Вид работы: реферат
Рубрика: Информатика
Размер файла: 22.73 Kb
Скачать файл: referat.me-130719.docx
Краткое описание работы: Лабораторна робота №9 Тема: Робота з файлами. Мета: Навчитися працювати із файлами і використовувати їх для розв‘язування подальших задач. Інформація про масив садових ділянок задана таблицею
Робота з файлами лабораторна робота
Лабораторна робота №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*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.
Для грошової оцінки землі (ГОЗ) сільськогосподарського призначення використовується спрощена модель, згідно якої оцінка землі залежить від виду угіддя.
Угіддя | Ліс | Пасовища | Сади | Сіножаті | Рілля |
Ставки земельного податку (ум. од.) | 55 |
67 |
109 |
67 |
109 |
Та типу ґрунту
Ґрунти |
Сірі лісові (СЛ) |
Лучно– болотисті (ЛВ) |
Чорноземи звичайні (ЧЗ) |
Дерново– підзолисті (ДП) |
Чорноземи типові (ЧТ) |
Умовний бал | 40 |
30 |
70 |
55 |
80 |
Грошова оцінка і га землі розраховується за формулою
ГОЗ = 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]=
(‘сірі лісові ‘,' Лучно–болотисті’,' чорноз. звичайні',
‘ дерново-підзолисті ‘ .' чорноз. типові ');
Bal:array[1.. 5] ofinteger= (
40,30, 70, 55, 80)?
VarOz: array [1..5, і..5] ofReal; {Масив значень оцінки землі}
I,j: Integer; {індекси: і - номер рядка, j - номер стовпця}
IOz:Real;
Індивідуальне завдання:
Вивести на екран початковий список і окремо Інформацію про
ділянки, площа яких перевищує 9 арів, а такожпровести розрахунок ГОЗ для кожного садівника і визначити вартість його ділянки.
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.
Висновок: На цій лабораторній роботі я навчився працювати із файлами.
Похожие работы
-
Особливості використання функцій на мові Асемблер
Пошукова робота з дисципліни Системне програмування на тему : “Особливості використання функцій на мові Асемблер” 2001 Програма, яка викликається 1. Ім’я процедури (функції) повинна бути задана в директиві public:
-
Архітектура операційної системи MS DOS Структура ОС Ms-Dos розбивка на модулі визначення ст
Лабораторна робота №8 Тема: Архітектура операційної системи MS – DOS. Мета: Ознайомитися із будовою ядра і модулів ОС MS – DOS. Теоретичні відомості: Будь – яка ОС в своїй побудові повинна мати зрозумілу і раціональну структуру. Це означає, що ОС поділяється на частини, які називають модулями. Будь – який модуль являє собою функціонально завершену програму із чіткими правилами взаємодії з іншими модулями.
-
Використання технологій обміну даними OLE в ос WINDOWS Призначення та використання технології
Лабораторна робота№10 Тема: Використання технологій обміну даними OLE в ос WINDOWS. ехнологія OLE призначення для обміну даними між окремими програмами в ОС WINDOWS. Оскільки ос являється багатозадачною то існує можливість обміну даними через загальний буфер обміну. В сучасних документах існує необхідність вставляти в них малюнки, текстові фрагменти чи інші обєкти, які створені іншими програмами.
-
Реферат з інформатики Робота з програмою-архіватором winrar
Реферат з інформатики Робота з програмою-архіватором WinRAR Програма WinRAR призначена для створення і керування архівними файлами. Вона є 32-розрядною версією архіватора RAR для ОС Windows 95, 98.
-
Структурування таблиці Опис методів структурування таблиці в Excel
Лабораторна робота №6 Тема. Структурування таблиці Мета . Навчитися виконувати автоматичне та ручне структурування таблиці, автоматично підводити
-
Програмування лінійних алгоритмів Опис синтаксису мови основні оператори
Лаболаторна робота №1 Тема: Програмування лінійних алгоритмів. Мета:Виробити вміння і навички роботи в середовищі Turbo Pascal. Виконання на ПК найпростіших задач на мові Паскаль.
-
Створення таблиць пепевірка орфографії Методи створення таблиць перевірки орфографії
Лабораторна робота № 9 Тема Робота з таблицями. Перевірка орфографій. Мета Навчитися створювати таблиці за допомогою панелі інструментів. План 1. Створення двовимірних таблиць.
-
Програмування
ІНІСТЕРСТВО ОСВІТИ ТА НАУКИ УКРАЇНИ ХЕРСОНСЬКИЙ НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ кафедра «Економічна кібернетика» ЗВІТ ПРО ВИКОНАННЯ ЛАБОРОТОРНИХ РОБІТ З ДИСЦИПЛІНИ
-
Налштування технічних засобів ПК Принципи налаштування технічних засобів Пк в середовищі Window
Лабораторна робота №1 Тема: Налштування технічних засобів ПК Мета: Набути навиків роботи із налаштуванням технічних засобів ПК. Для налаштування технічних засобів Пк використовується вікно, яке можна викликати комбінацією клавіш додаткова клавіша клавіатури(значок Win) та break або натисканням ПКМ на вільному полі у відкритому вікні мого компютера.
-
Лінійне програмування
Транспортна задача Розв'язок задач лінійного програмування. Транспортна задача. Мета роботи: Набути навичок складання математичної моделі транспортної задачі та її реалізації з використанням табличного процесору Excel