Лабораторная работа №6. Цель: Знакомство с принципом работы текстовыми файлами в языке Паскаль

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

Цель: Знакомство с принципом работы текстовыми файлами в языке Паскаль. Приобретение навыков работы с текстовыми файлами.

Задание: Требуется написать программу, которая читает из текстового файла некие значения, преобразует их, и записывает в этот же файл. Дана строка, содержащая полное имя файла. Программа должна выделить из этой строки название первого каталога (без символов «\»). Если файл содержится в корневом каталоге, то программа должна вывести символ «\».

Для подключения текстового файла и его чтения воспользуемся операторами Reset и Readln:

reset(k);
readln(k,s);

Для перезаписи исходного текстового файла воспользуемся операторам Rewrite:

rewrite(k);

Для преобразования исходной строки в требуемую, воспользуемся следующей комбинацией:

if Pos('\',s)>0 then writeln(k,Copy(s,1,Pos('\',s)-1));

Для закрытия текстового файла воспользуемся оператором Close:

close(k);

Алгоритм:

Рисунок 1 – структурная схема программы

Описание программы:

Разработанная в ходе лабораторной работы №6 программа имеет следующую структуру:

1. Раздел переменных

2. Раздел операторов

Для хранения текстовой информации используется тип sting. Для подключения текстового файла и работы с ним используется тип text.

Разработанная в ходе лабораторной работы №6 программа имеет следующую структуру:

- Подключение текстового файла

- Открытие текстового файла для чтения

- Чтение строки из текстового файла

- Преобразование строки

- Запись в текстовый файл

- Закрытие файла

За подключение текстового файла отвечает оператор Assign. За открытие для чтения отвечает оператор Reset. За чтение строки текстового файла отвечает оператор Readln. Для открытия текстового файла для записи отвечает оператор Rewrite. За закрытие текстового файла отвечает оператор Close.

Текст программы:

Program katalog;

uses crt;

var k: text; s: string;

begin

assign(k,'F:\Doc.txt');

reset(k);

readln(k,s);

if Pos('\',s)>0 then writeln(Copy(s,1,Pos('\',s)-1));

close(k);

rewrite(k);

if Pos('\',s)>0 then writeln(k,Copy(s,1,Pos('\',s)-1));

close(k);

end.

Не нашли, что искали? Воспользуйтесь поиском: