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

Мета роботи: Вивчення файлових типів даних мові Паскаль та отримання навиків при роботі з ними.

Теоретичні відомості

Загальний вигляд процедури, яка зв’язує фізичний файл з логічним:

Assign(файлова змінна, рядковий вираз)

Значення рядкового виразу має бути ім’я фізичного файлу. Формат цього імені визначається операційною системою.(Повне ім’я файлу файла в операційних системах MS-DOS та Windows має такий вигляд :

ім’я лог.диску:\ ім’я катал.1\ім’я катал.2\...\ім’я файлу.розширення )

Файли класифікуються за типом компонентів і за методом доступу до них. За типом компонентів розрізняють текстові та війкові (бінарні) файли, за методом доступу – файли послідовного і прямого доступу.

Загальний вигляд оголошення змінної текстового файла :

Var ім’я файлової змінної : text;

Відкриття текстового файла для читання виконується процедурою Reset, загальний вигляд якої:

Reset (файлова змінна);

Відкриття текстового файлу для запису здійснюється процедурою Rewrite, загальний вигляд якої:

Rewrite (файлова змінна);

Для до запису вже наявного текстового файла його потрібно відкрити за допомогою процедури append, загальний вигляд якої :

Append (файлова змінна);

Текстовий файл закривається процедурою Close, загальний вигляд якої:

Close(файлова змінна)

Зчитування даних з текстового файла здійснюється процедурами read i readln за таким синтаксисом:

Read(файлова змінна, список введення);

Readln(файлова змінна, список введення);

Запис даних до текстового файла здійснюється процедурами write i writeln за таким синтаксисом:

write(файлова змінна, список виведення);

writeln(файлова змінна, список виведення);

Eof(файлова змінна ) : Boolean;

Функція Eof(файлова змінна ) : Boolean; повертає значення True, коли при читанні досягнуть кінця файлу.

Загальний вигляд оголошення змінної типізованого файла :

Var ім’я файлової змінної : file of тип компонентів;

Приклад програми.

Program f;

Const n=4;{}

Type

Mzap=record

Name: string[12];

Surname: string[20];

Adresa: string[50];

Tel: word;

End;

Filezap=file of mzap;

Var

Friends:filezap;

Potzap: mzap;

I:integer;

Begin

Assign(friends,’druzi.dat’);

Rewrite(friends);

For I:=1 to n do

Begin

Writeln(‘введіть ім’я’);

Readln( potzap.name);

Writeln(‘введіть прізвище’);

Readln( potzap.surname);

Writeln(‘ведіть адресу’);

Readln( potzap.adresa);

Writeln(‘номер телефону’);

Readln( potzap.tel);

Write(friends,potzap);

End;

Close(friends);

Reset(friends);

For I:=1 to n do

Begin

Read(friens,potzap);

If potzap.name=’Саша’

then writeln (potzap.name ,potzap.surname, potzap. Adresa, potzap.tel);

end;

close(friends);

end.

ЗАВДАННЯ

1. Ознайомитись із типами даних, які вживаються у Паскалі і особливостями файлів.

2. Одержати індивідуальне завдання.

3. Скласти блок-схему алгоритму і програму на Паскалі для реалізації поставленого завдання.

4. Виконати обчислення по програмі.

ЗМІСТ ЗВІТУ

1. Мета роботи.

2. Короткий опис методів зображення алгоритмів обчислювальних процесів та їх програмування на алгоритмічній мові ПАСКАЛЬ.

3. Індивідуальне завдання.

4. Блок-схема алгоритму для обчислення по індивідуальному завданню.

5. Текст програми.

6. Аналіз результатів, висновки.

КОНТРОЛЬНІ ЗАПИТАННЯ

1. В яких випадках зручно використовувати файли?

2. Як в розділі типів задається файловий тип?

3. Як поділяються файли ?

4. Яким чином описуються змінні файлових типів?

Варіанти завдань:

1. Дано файл f , компоненти якого є дійсні числа. Знайти суму компонент файла f.

2. Дано файл f , компоненти якого є цілі числа. Знайти найбільше з значень компонент файла f.

3. Дано файл f , компоненти якого є дійсні числа. Знайти кількість парних чисел серед компонент файла f.

4. Дано файл f , компоненти якого є дійсні числа. Знайти найменьше з значень компонент з парними номерами.

5. Дано файл f , компоненти якого є дійсні числа. Знайти найбільше з значень модулей компонент файла f з непарними номерами.

6. Дано файл f , компоненти якого є цілі числа. Знайти суму найбільшої і найменшої компонент файла f.

7. Дано файл f , компоненти якого є дійсні числа. Знайти кількість компонент файла f, які не дорівнюють нулю.

8. Дано файл f , компоненти якого є дійсні числа. Записати в файл g всі додатні числа файлу f , а в файл h-всі від’ємні.

9. Дано файл f , компоненти якого є дійсні числа. Знайти добуток компонент файла f.

10. Дано файл f , компоненти якого є дійсні числа. Знайти кількість квадратів непарних чисел файла f.

11. Дано файл f , компоненти якого є цілі числа. Знайти добуток компонент файла f, які діляться на 2 без остачі..

12. Дано файл f , компоненти якого є цілі числа. Знайти суму першої і останньої компонент файла f.

13. Дано файл f , компоненти якого є дійсні числа. Знайти суму компонент файла f, які діляться на 3 без остачі.

14. Дано файл f , компоненти якого є дійсні числа. Знайти суму квадратів компонент файла f.

15. Дано файл f , компоненти якого є натуральні числа в межах від 0 до 30. Знайти кількість простих компонент файла f.

16. Дано файл f , компоненти якого є дійсні числа. Знайти суму компонент файла f, значення яких знаходяться в межах від –10 до 20.

17. Дано файл f , компоненти якого є дійсні числа. Знайти різницю між найбільшою і найменшою компонентами файла f.

18. Дано файл f , компоненти якого є дійсні числа. Знайти добуток від’ємних компонент файла f.

19. Дано файл f , компоненти якого є дійсні числа. Знайти модуль суми і квадрат добутку компонент файла f.

20. Дано файл f , компоненти якого є дійсні числа. Знайти суму цілих компонент файла f.