Процедуры и функции обработки текстовых файлов

Функция/процедура	Описание
Append(var fp);	Открывает существующий файл, связанный с файловой переменной fp, для добавления в него новых записей
Eoln(var fp)	Возвращает True, если указатель файла достиг маркера конца строки. В противном случае False.
SeekEoln(var fp)	Аналогична предыдущей, но указатель файла пропускает все знаки табуляции, предшествующие маркеру конца строки.

 

Пример 5. Переписать из текстового файла f в файл g строки в перевернутом виде.

Program Prog7_5;

Var

f,g:text;

i: integer;

st,st1:string;

Begin

assign(f; 'inp1.dat');

reset(f); {открываем для чтения файл 'inp1.dat'}

assign(g,'out1.dat');

rewrite(g);{открываем для записи файл 'out1.dat'}

while not eof(f) do begin (пока не конец файла)

readln(f,st); {читать строку из файла f}

st1:='';{формируем новую строку-перевертыш}

for i:= 1 to length(st) do st1:= st[i]+st1;

writeln(g,st1); {писать эту строку в файл g}

end;

close(f); {закрываем файл f}

close(g); {закрываем файл g}

End.

Пример 6. Дописать файл g в конец файла f.

Program Prog7_6;

Var

f,g:text;

i: integer;

st:string;

Begin

assign(f; 'inp1.dat');

append(f); {открываем файл 'inp1.dat' для дозаписи}

assign(g,'out1.dat');

reset(g); {открываем для чтения файл 'out1.dat'}

while not eof(g) do begin (пока не конец файла)

readln(g,st); {читать элемент из файла g}

writeln(f,st); {писать этот элемент в файл f}

end;

close(f); {закрываем файл f}

close(g); {закрываем файл g}

End.

Контрольные вопросы:

1. Что такое файл? Какие существуют виды файлов? Для чего они предназначены?

2. Какая связь между файлом и файловой переменной? Как она устанавливается?

3. Какие стандартные процедуры обязательно включаются в программу, обрабатывающую файлы?

4. Какие типы допустимы для компонентов файла?

5. Как осуществляется обращение к компонентам файлов прямого и последовательного доступа?

6. Приведите различные способы записи в файл табличной информации?

7. Как вывести содержимое файла на монитор, на печать?

8. Каковы особенности работы с текстовыми файлами? Чем эти файлы отличаются от файлов из строк?

Лабораторная работа № 7

Задание 1. Запишите в файл исходных данных числовой двумерный массив.

 

Задание 2. Напишите программу, изменяющую в файле исходных данных из задания 1 элементы, соответствующие вашему варианту:

Варианты заданий:

1. вторая строка;

2. третий столбец;

3. элементы (2;3) и (4;1);

4. последняя строка;

5. элементы (1;2) и (3;3);

6. третья строка;

7. элементы (2;1),(2;3) и (4;1);

8. последний столбец;

9. второй столбец;

10. элементы (3;2),(1;4) и (5;4);

11. первый столбец;

12. элемент (r,k);

13. диагональные элементы;

14. элементы в нечетных строках;

15. крайние элементы матрицы (по периметру).

Задание 3. Прочитать из полученного файла элементы, соответствующие вашему варианту:

 

Варианты заданий:

1. первый столбец;

2. элементы (1;3) и (3;3);

3. вторая строка;

4. элементы (4;3) и (2;1);

5. последняя строка;

6. элементы (3;4) и (4;3);

7. последний столбец;

8. элементы (2,5) и (3:1);

9. элементы (2;2),(3;2) и (4;3);

10. четвёртый столбец;

11. элементы (1;3),(2;1),(3;4);

12. элементы (2;2),(2;3);

13. третья строка;

14. второй столбец;

15. угловые элементы матрицы.

Задание 4. Создать текстовый файл (3–4 строки). Дописать в конец файла 2 строки. Вывести на монитор исходный и полученный файлы.

8. ЗАПИСИ

 

 

Цель: формирование понятия о возможности представления разнородной информации об объекте с помощью комбинированного типа «запись» и навыков использования данного типа для описания информационных моделей.

 

Структура записи в Паскале

 

Записи являются структурированным типом данных. Они состоят из компонент, имеющих в общем случае разные типы. Компонент записи называется полем и обозначается идентификатором – именем поля. Описание записей возможно с применением типов или в разделе описания переменных:

Type

<имя типа> = record

<идентификатор поля 1>: тип 1;

<идентификатор поля 2>: тип 2;

....................................................................

<идентификатор поля k>: тип k;

end;

var <идентификатор>:<имя типа>;

<идентификатор>: record

<идентификатор поля 1>: тип 1;

<идентификатор поля 2>: тип 2;

....................................................................

<идентификатор поля k>: тип k;

end;

В секции могут перечисляться несколько имен полей одного типа. Тип поля может быть любым, кроме файлового.

К каждому компоненту записи можно обратиться, используя имя переменной типа записи и имя поля, разделенные точкой: <идентификатор>.<имя поля>. При обращении к элементу массива записей, индекс указывается после имени массива:
<идентификатор массива>[индекс].<имя поля>

Введение в Паскале такого типа вызвано необходимостью описания реального объекта в целом.

Пример 1. Описание времени и даты.

Type

time = record

hour:1..12;

minute:0..59;

end;

var t1,t2:time;

date: record

day:1..31;

month:0..12;

year:word

end;

К компонентам записи можно обратиться, например: t1.hour, t2.minute, date.month.

Над компонентами записи определены операции, допустимые для соответствующего типа.

Пример 2. Описать объект – пациент:

– ФИО

– возраст

– болезнь

– семейное положение

Выяснить, поступил ли в отделение конкретный пациент. Вывести количество больных гриппом.

Program Prog8_1;

const n=55;

Type

pacient = record

name, bolezn: string [40];

wozrast:byte;

sem_pol:char

end;

Var

nekto: pacient;

otdel: array [1..n]of pacient; {массив записей}

i, k: integer;

Begin

writeln('Введите список отделения');

for i:=1 to n d o begin

readln(otdel[i].name, otdel[i].bolezn);

readln(otdel[i].wozrast, otdel[i].sem_pol);

end;

writeln('Введите фамилию пациента');

readln(nekto.name); i:=1;

while (i<= n) and (otdel[i].name <> nekto.name) do i:=i+1;

if i<= n then writeln(‘поступил’)

else writeln(‘не поступил’);

k:=0; {инициализация числа больных гриппом}

for i:=1 to n d o

if otdel[i].bolezn = ‘грипп’ then k:=k+1;

writeln(‘больны гриппом ’, k, ‘пациентов’);

End.

 

Оператор присоединения

 

Обращение к элементам записи их полным именем громоздко. Этот недостаток устраняют с помощью оператора присоединения with.

Формат оператора:

with R do S1;

где R – имя переменной записи, а S1 – тело оператора присоединения. Внутри него выборка поля переменной R может быть обозначена просто именем этого поля.

Пример 3. Программу примера 2 записать с использованием оператора with.

Program Prog8_2;

const n=55;

Type

pacient = record

name, bolezn: string [40];

wozrast:byte;

sem_pol:char

end;

Var

nekto: pacient;

otdel: array [1..n]of pacient; {массив записей}

i, k: integer;

Begin

writeln('Введите список отделения');

for i:=1 to n do

with otdel[i] do begin

readln(name, bolezn);

readln(wozrast, sem_pol);

end;

writeln('Введите фамилию пациента');

readln(nekto.name); i:=1;

while (i<= n) and (otdel[i].name <> nekto.name) do i:=i+1;

if i<= n then writeln(‘поступил’)

else writeln(‘не поступил’);

k:=0; {инициализация числа больных гриппом}

for i:=1 to n do

with otdel[i] do

if bolezn = ‘грипп’ then k:=k+1;

end;

writeln(‘больны гриппом ’, k, ‘пациентов’);

End.

 

Вложенные записи

 

Поле записиможет быть в свою очередь тоже записью. Так, если в примере 3 описание записи дополнить полем Date со сведениями о дате рождения, получим следующее:

Tурe

pacient = record

name, bolezn:string[40];

wozrast:byte;

date: record {вложенная запись}

day:1..31;

month:0..12;

year:word

end;

sem_pol: char

end;

При такой структуре записи обращение к ее компонентам day, month, year будет иметь следующий вид:

nekto.date.day:=13;

nekto.date.month:=9;

nekto.date.year:=1988;

Используя оператор with, запись можно упростить.

with nekto, date do begin

name: = ’Мария ‘;

wozrast:= 20;

bolezn:= 'грипп ';

day:=13;

month:=9;

year:=1988;

sem_pol:=’ж’;

end;

Допустимо также включение между словом do и begin других операторов:

with nekto, date do

if k=1 then begin … end;

begin

…

End

Контрольные вопросы:

1. Как описывается переменная типа запись?

2. Как обратиться к полям записи?

3. Какие действия допустимы над компонентами записи?

4. Что такое вложенная запись? Как она описывается?

5. Как сократить имя для обращения к полям записи?

6. В чем отличие записей от массивов?

Лабораторная работа № 8

Задание. Опишите информационный объект с помощью записи. Введите набор исходных данных и сохраните в файле на диске. Составьте программу, в которой исходные данные читаются из файла, производится их соответствующая обработка, результат выдается на экран.

Варианты заданий:

1. Дана экзаменационная ведомость с фамилиями студентов, номером группы, номером зачетной книжки, оценкой за экзамен. Выдайте список задолжников для данной группы. Распечатайте всю информацию в виде таблицы.

2. Составить список своей подгруппы. Для каждого человека указать: фамилию, год рождения, пол, место жительства (город/район, улица/деревня, дом). Распечатать этот список в виде таблицы, а также фамилии самой молодой девушки и самого молодого юноши.

3. Описать группу учеников, включив следующие данные о них: имя, пол, рост, возраст. Распечатать эти данные в виде таблицы и выдать имя и рост самого высокого мальчика, самой маленькой девочки и средний рост группы.

4. В пресс-центре выставки программных средств хранятся данные о каждом экспонате: название, назначение, автор, количество заявок на него. Распечатать данную информацию для 10–12 экземпляров. Выявить трех кандидатов для награждения призами (по числу заявок) и распечатать данные о них.

5. В больнице имеется список больных, каждый из которых характеризуется данными: фамилия и инициалы, номер палаты, диагноз. Требуется вывести на печать перечень больных по каждой палате и отдельно по каждому диагнозу.

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

7. Информация о студентах вводится в форме: фамилия, имя, возраст, пол, курс. Распечатайте данные 10–15 записей, а также номер курса, на котором наибольший процент мужчин.

8. В справочной аэропорта хранится расписание вылета самолетов на следующие сутки. Для каждого рейса указаны его номер, тип самолета, пункт назначения, время вылета. Определить все номера рейсов, типы самолетов и времена их вылета для заданного пункта назначения.

9. Информация о жителях различных городов записана в массив, содержащий их фамилии и адреса (город, улица, дом, квартира). Составить программу «Ирония судьбы», которая печатает фамилии двух (любых) жителей, живущих в разных городах по одинаковому адресу.

10. Дана записная книжка с фамилиями, инициалами и телефонами. Составить программу, позволяющую по фамилии, введенной с клавиатуры, выдать номер телефона, и наоборот: по номеру – фамилию. Если запрос вводится об отсутствующей в книжке записи, то сообщить об этом.

11. В предвыборной кампании проводится регистрация кандидатов в депутаты. Каждый кандидат, подавая заявление на регистрацию, указывает номер округа, в котором он собирается баллотироваться, наименование партии, которую он, представляет, свой возраст и профессию. Пресс-служба центральной избирательной комиссии выдает информационный бюллетень, в котором приводит следующую информацию: число поданных заявлений на регистрацию кандидатов каждой политической партии и средний возраст кандидатов от каждой политической партии. Написать соответствующую программу.

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

13. Имеется список учета нуждающихся в улучшении жилищных ус­ловий. Каждая запись этого списка содержит фамилию, имя, отчество и дату постановки на учет. Список упорядочен по дате постановки на учет. Известно число квартир, выделяемых по данному списку в течение года. Рассчитать, какое количество лет в среднем необходимо ожидать получения квартиры, и вывести на экран весь список с указанием ожидаемого года получения квартиры.

14. В библиотеке имеется список книг. Каждая запись этого списка содержит фамилии авторов, название книги, год издания. Определить, имеются ли в данном списке книги, в названии которых встречается некоторое ключевое слово (например, «программирование»). Если имеются, то выдать на печать фамилии авторов, название и год издания всех таких книг. Ключевое слово ввести с клавиатуры.

15. В бюро по занятости населения (трудовой бирже) ведется список вакантных рабочих мест на предприятиях города. Каждая запись такого списка содержит следующую информацию: наименование организации, местоположение организации (расстояние в км от центра города), наименование должности, требуемая квалификация (разряд или образование), требуемый стаж работы по специальности, заработная плата в месяц, наличие социального страхования (да или нет), продолжительность ежегодного оплачиваемого отпуска. Клиент бюро вводит информацию о своей квалификации и требования (например, максимальная удаленность от центра города). Написать программу, которая бы распечатывала для каждого клиента список рабочих мест в соответствии с его требованиями.

 

 

9. МОДУЛИ

 

 

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

Для размещения в памяти большой программы может не хватить одного сегмента памяти (его размер – до 64 кбайт). Поэтому разработчики Турбо Паскаля для устранения этих недостатков включили в язык механизм так называемых модулей, которые размещаются в разных сегментах. Модули позволяют создавать библиотеки процедур и функций, которые можно подключать к разным программам.

Модуль– это автономно компилируемая программная единица, включающая в себя специальным образом оформленную библиотеку описаний (типы, константы, переменные, процедуры и функции).

Модуль может быть запущен только из программы или из другого модуля. Он компилируется независимо от использующей их программы. Результатом компиляции модуля является файл с тем же именем и расширением имени.TPU, который заносится на диск.

Общий объем модульной программы может быть много более 64 кбайта, но каждый.TPU-файл не может превышать этот предел.

 

Структура модуля

 

Модуль можно разделить на несколько разделов: заголовок; интерфейсная часть; исполняемая часть; инициализационная часть.

UNIT <имя> {заголовок модуля}

interface {интерфейсная часть}

uses <список> {используемые при объявлении модули}

label {блок объявлений библиотечных меток}

const {блок объявлений библиотечных констант}

type {блок объявлений библиотечных типов}

var {блок объявлений библиотечных переменных}

<заголовки доступных процедур и функций с указанием параметров>

implementation {секция реализации}

uses {используемые при реализации модули}

label {блок объявлений внутренних меток}

const {блок объявлений внутренних констант}

type {блок объявлений внутренних типов}

var {блок объявлений внутренних переменных}

<заголовки без параметров и тела процедур и функций>

Begin {секция инициализации}

<операторы>

End.

Все блоки, составляющие разделы интерфейса, реализации и инициализации необязательны и могут отсутствовать.

Заголовок модуля состоит из зарезервированного слова unit и следующего за ним имени модуля. Это имя должно совпадать с именем дискового файла, в который помещается исходный текст модуля. Если, например, имеем заголовок unit Stat; то дисковый файл должен называться Stat.pas.

В интерфейсной части содержатся объявления всех глобальных объектов модуля (типов, констант, переменных и подпрограмм), которые должны стать доступными любой программе и/или другим модулям. При объявлении библиотечных подпрограмм в интерфейсной части указывается только их заголовок.

В разделе реализации можно использовать все объекты, описанные в разделе interface. Он, как правило, содержит описания подпрограмм, объявленных в интерфейсной части. Описанию подпрограммы, объявленной в интерфейсной части модуля, в исполняемой части должен предшествовать заголовок, в котором можно опускать список формальных переменных.
В разделе реализации могут объявляться локальные для модуля объекты – типы, константы, переменные и т.п. Они будут глобальными по отношению к подпрограммам этого раздела и инициирующей части. В программе, подключающей модуль, объявленные при реализации данные и типы недоступны.

Завершает модуль инициирующая часть. Она может отсутствовать вместе с начинающим ее словом Begin. Тогда сразу после раздела реализации следует признак конца модуля End.
(с точкой). В инициирующей части размещаются исполняемые операторы, которые выполняются до передачи управления основной программе и обычно используются для подготовки ее работы. Обычно в ней выполняется присваивание начальных значений библиотечным переменным, открытие файлов и т.п. Инициализация происходит только при работе программы. При подключении модуля к модулю инициализации не происходит.

В приведенном ниже примере использования модуля раздел инициализации отсутствует, так как в нем нет необходимости.

Пример 1. Составьте модуль из процедур сложения и вычитания дробей. Напишите программу с примерами использования различных процедур модуля.

unit myunit; {дисковый файл “myunit.pas” }

interface {интерфейсная часть }

type drob= record a,b: integer end; {тип дробь}

procedure print(x:drob); {вывод на экран}

procedure minus(x,y:drob;var s:drob); {вычитание}

procedure plus(x,y:drob;var s:drob); {сложение}

implementation {раздел реализации модуля}

procedure print;

Begin

with x do begin

if (a*b>=0) then begin a:=abs(a);b:=abs(b) end

else begin a:=-abs(a);b:=abs(b) end;

if b<>0 then

if a<>0 then

if b=1 then write(a)

else write(a,'/',b)

else write(0)

else write('unknown');

end;

end;

{процедура сложения}

procedure plus(x,y:drob;var s:drob);

var q,w: integer;

Begin

w:=x.b*y.b;q:=x.a*y.b+y.a*x.b;

s.a:=q;s.b:=w;

end;

procedure minus(x,y:drob;var s:drob);

var q:drob;

Begin

{разность определяется через сложение}

q:=y;q.a:=-q.a;

plus(x,q,s);

end;

End.

Program Prog9_1; {программа, использующая модуль}

uses crt, myunit; {подключение модулей}

var q,w,e,r:drob;

Begin

clrscr;

{инициализация переменных}

q.a:=1;q.b:=3; {q=1/3}

w:=q;w.a:=2; {w=2/3}

plus(q,w,e);minus(q,w,r); {e=q+w,r=q-w}

{вывод результата на экран}

print(q); write('+'); print(w); write('=');

print(e); writeln;

print(q); write('-'); print(w); write('=');

print(r);

readln;

End.

Контрольные вопросы:

1. Как программируются циклические алгоритмы с явно заданным числом повторений цикла?

2. В чем отличие модуля от программы и подпрограммы?

3. Какие основные разделы модуля?

4. Каково назначение описаний в интерфейсной части модуля и в разделе реализации?

5. Какой порядок создания модуля в TURBO PASCAL? Как использовать готовый модуль в паскаль-программе?

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

Задание. Составьте модуль из подпрограмм, указанных в варианте. Напишите программу с примерами использования модуля.

 

Варианты заданий:

1. Процедуры нахождения площадей произвольного треугольника разными способами: по формуле Герона, по основанию и высоте, по двум сторонам и углу между ними.

2. Функция, определяющая первое вхождение заданного символа в строку, и процедура замены в строке всех вхождений заданного сим­вола, кроме первого, на другой заданный символ.

3. Процедуры нахождения длин векторов и угла между векторами на плоскости.

4. Функции нахождения числа четных и нечетных чисел одномерного массива, а также ввода и вывода массива.

5. Процедуры ввода, вывода целочисленной квадратной матрицы, нахождения номеров строк, все элементы которых делятся на 3 без остатка.

6. Процедуры ввода, вывода, поиска суммы отрицательных элементов одномерного массива.

7. Функции определения високосных лет, числа дней в месяце и проверки правильности обозначения даты. Тип даты опишите в модуле как запись, при этом месяц опишите как перечисляемый тип пользователя.

8. Процедуры удаления лишних пробелов из строки символов, разделения введенного текста на отдельные слова и занесение их в строковый массив, который распечатывается (каждое слово на новой строке).

9. Процедуры создания файла из записей, которые содержат сведения о студентах: фамилия, имя, оценки последней сессии, нахождения среднего балла для каждого студента, выдачи списка фамилий с указанием среднего балла.

10. Процедуры ввода, вывода матрицы произвольного размера и подсчёта количества строк с нулевыми элементами.

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

12. Процедуры вычисления числа перестановок из n элементов по формуле , числа размещений из n элементов по m по формуле , числа сочетаний из n элементов по m по формуле .

13. Процедуры действий с комплексными числами (сложение, вычитание, произведение, деление). Комплексное число описать как запись. Описание типа включить в модуль.

14. Процедуры формирования массива строк, каждый элемент которого может быть интерпретирован как целое двоичное число без знака, процедуры преобразования представления значений элементов массива в десятичную систему счисления.

15. Функций, не реализованных в Паскале: tg, ctg и целой степени действительного числа.