If (not d) and d1 then

{Вывод повторяющейся строки, отличной от строки пробелов}

begin if c=0 then writeln('Повторяющиеся строки:');

writeln(del_s);inc(c);

end;

d:=true;

until eof(f) {конец основного цикла};

close(outf); if c=0 then writeln('Повторяющихся строк нет')

else writeln('Всего ',c,' повторяющихся строк');

END {clean_file}.

Заметим, что эта задача может быть решена более просто, если предварительно отсортировать файл, например, по возрастанию записей (в лексикографическом порядке строк).

6. Поиск и выборка данных из файлов.

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

program search;

{ Выборка из файла данных о группе студентов}

uses CRT;

type stud = record num:byte;name: string [20];average:real end;

gr_st= file of stud{данные о группе студентов};

var gr:gr_st{группа студентов};

st:stud{запись о студенте};

nm: string {имя исходного файла};

avr: string {условие для average};

sgn: string [1]{знак в условии};ball:real{запрошенный балл};

pr:boolean{признак выбранной записи};k:integer{кол-во выборок};

er:integer{ошибка преобразования в число};

BEGIN clrscr; repeat {открытие файла на чтение}

write('Введите имя файла:'); readln(nm);

if nm='' then halt;assign(gr,nm);

{$I-} reset(gr);{$I+} if IOResult<>0 then nm:='';

until nm<>''; {анализ запроса }

repeat write('Введите запрос для среднего балла: ');readln(avr);

sgn:=copy(avr,1,1);avr:=copy(avr,2,length(avr)-1);

val(avr,ball,er); if er<>0 then ball:=0;

until (ball>=2) and (ball<=5); k:=0; writeln('Запрошенные данные:');

repeat {реализация запроса к файлу nm}

read(gr,st); with st do

begin if sgn='>' then pr:=average>ball else pr:=average<=ball;

if pr then begin writeln(name,average:1:2);inc(k);delay(1000) end

end until eof(gr); if k<>0 then writeln('Всего студентов: ',k)

else writeln('Пустая выборка');readkey

END {search}.

7. Печать текстовых файлов.

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

program print_text; {Печать текстового файла}

uses Printer;

var f:text; {Исходный файл}

c:char;s,nm: string;

j,p:word;

const bel=#7;FF=#12;

BEGIN writeln('ПЕЧАТЬ ТЕКСТА ');writeln;write('Имя файла:');readln(nm);

if nm<>'' then

begin {открытие f с контролем существования файла}

assign(f,nm);{$I-} reset(f);{$I+}

if IOResult<>0 then begin writeln('Ошибка');halt end {конец открытия f};

j:=1;p:=1; repeat {цикл печати} if j mod 50=0 then

begin writeln(LST,FF);writeln(bel,'Конец страницы ',p:3);

writeln('Печатать следующую страницу(Y/N)?',bel);

readln(c); if upcase(c)<>'Y' then

begin close(f);halt end;p:=p+1;

for j:=1 to 35 do

write(LST,' ');writeln(LST,'-',p,'-');j:=1

end;readln(f,s);writeln(LST,s);inc(j);

until eof(f) {конец цикла печати};writeln(LST,FF);close(f)

Дата добавления: 2014-01-04