Тема: Текстовые файлы

Практическое занятие.

Файл - это упорядоченная последовательность однотипных компонентов, расположенных на внешнем носителе. Файлы предназначены только для хранения информации, а обработка этой информации осуществляется программами. Использование файлов целесообразно в случае:

долговременного хранения данных ;

доступа различных программ к одним и тем же данным;

обработки больших массивов данных, которые невозможно целиком разместить в оперативной памяти компьютера.

В Паскале определены текстовые файлы, типизированные и нетипизированные. Файл, не содержащий ни одного элемента, называется пустым. Создается файл путем добавления новых записей в конец первоначально пустого файла. Длина файла, т.е. количество элементов, не задается при определении файла.

Все файлы должны быть описаны в программе либо в разделе переменных VAR, либо в разделе типов TYPE.

Под чтением файла понимают ввод данных из внешнего файла, находящегося на диске, в оперативную память машины.

Запись в файл - вывод результатов работы программы из оперативной памяти на диск в файл.

Работа с файлами выполняется следующими процедурами:

Assign – устанавливает связь между именем файла в программе (файловой переменной ) и физическим именем файла, принятым в ОС.

Reset - открывает существующий файл для чтения.

Rewrite– создает и открывает новый файл для записи на внеш­нем устройстве (если файл ранее существовал, вся предыдущая информация из него стирается).

Close - закрывает открытый файл.

Для определения конца файла используется стандартная встро­енная функция EOF (файловая переменная), которая принимает значение True, если достигнут конец файла, и значение False в противном случае.

Начинаем решение задач.

(Все программы перед компиляцией следует сохранять!!!!!!)

1. Написать программу, которая создает текстовый фай, содержащий сведения о вашем друге (подруге): фамилия, имя, дата рождения.

Program primer;

Var f:text;
Fam,name,date:string;
Begin
Assign(f,’drug.txt’);
Rewrite(f);
Writeln(‘Введите фамилию’);
Readln(fam);
Writeln(f,fam);
Writeln(‘Введите имя’);
Readln(name);
Writeln(f,name);
Writeln(‘Введите дату рождения’);
Readln(date);
Writeln(f,date);
Close(f);
End.

2. Написать программу, которая создает текстовый фай, содержащий информацию о книге: автор, название, год издания.

Program biblioteka;
Var f:text;
Avtor,nazvanie:string;
God:integer;
Begin
Assign(f,’biblioteka.txt’);
Rewrite(f);
Writeln(‘Введите автора книги’);
Readln(avtor);
Writeln(f,avtor);
Writeln(‘Введите название книги’);
Readln(nazvanie);
Writeln(f,nazvanie);
Writeln(‘Введите год издания’);
Readln(god);
Writeln(f,god);
Close(f);
End.

3. Открыть существующий файл drug.txt и дополнить его информацией о хобби своего друга (подруги).

Program primer2;
Var f:text;
Hob:srting;
Begin
Assign(f,’drug.txt’);
Append(f);
Writeln(‘Введите хобби’);
Readln(hob);
Writeln(f,hob);
Close(f);
End.

4. Открыть существующий файл biblioteka.txt и дополнить его информацией о количестве страниц в книге.

Program Biblioteka2;
Var f:text;
str:srting;
Begin
Assign(f,’biblioteka.txt’);
Append(f);
Writeln(‘Введите количество страниц в книге’);
Readln(str);
Writeln(f,str);
Close(f);
End.

5. Создать текстовый файл chisla.dat, содержащий все четные двузначные числа.

Program primer3;
Var f:text;
I:integer;
Begin
Assign(f,’chisla.dat);
Rewrite(f);
For i:=10 to 99 do
If i mod 2=0 then writeln(f,i);
Close(f);
End.

6. Создать текстовый файл proba.dat, содержащий все трехзначные числа, кратные 125.

Program probnik;
Var f:text;
I:integer;
Begin
Assign(f,’proba.dat);
Rewrite(f);
For i:=100 to 999 do
If i mod 125=0 then writeln(f,i);
Close(f);
End.

Дата добавления: 2015-06-30; просмотров: 220; Нарушение авторских прав

Мы поможем в написании ваших работ!