pascal_lections

S:=’Супер строка’;

insert(‘длинная ’,S,7); {‘Супер длинная строка’}

End.

Function length (S: string) :integer;

Функция возвращает текущую длину строки S.

Function pos (subst: string; S: string): byte;

Функция отыскивает место первого вхождение подстроки subst в строку S. Возвращает номер позиции, где начинается найденная подстрока. Если подстрока не найдена, возвращает 0.

Procedure str (X [:Width [:Decimals]]; var S:string);

Процедура преобразования числа Х любого целого или вещественного типа в строку символов.

Procedure val (S; var X; var code:integer);

Процедура преобразования строки S во внутреннее представление числа X (целое или вещественное). Code – код ошибки. Code=0, если преобразование успешно завершилось; иначе Code= номер символа, на котором произошла ошибка преобразования.

Var I, Code :integer; S :string;

Begin S:=’что-то-там__как-то-там’;

Val(S,I,Code); If Code<>0 then

writeln('Error at position ', Code) else

writeln(‘Value = ’, I);

End.

Function UpCase (ch: char) :char;

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

Function chr (X: byte) :char;

Функция возвращает символ из таблицы символов, в соответствии с заданным номером X.

Function ord (ch :char) :longint;

Функция возвращает порядковый номер символа ch в таблице символов.

41

Файлы и файловые переменные.

Опр.: Файл – линейная последовательность элементов, каждый из которых имеет тип элемента (или тип записи) файла. Каждый элемент файла имеет номер. Первый элемент файла имеет нулевой индекс.

ВПаскале имеются три класса файлов:

-типизованный файл

-текстовый файл,

-нетипизованный файл.

Описание файловой переменной:

Var F: file of тип_файла;

Перед использованием: файловая переменная должна быть связана с внешним файлом с помощью вызова процедуры Аssign.

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

Когда связь с внешним файлом установлена, файловая переменная должна быть «открыта». Существующий файл можно открыть с помощью процедуры Reset, а новый файл можно создать и открыть с помощью процедуры Rewrite.

Текстовые файлы, открытые с помощью процедуры Reset доступны только для чтения, а открытые с помощью процедуры Rewrite – только для записи.

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

Когда начинается выполнение программы, всегда автоматически открываются стандартные текстовые файловые переменные Input и Оutput (ввод и вывод). Input – это доступный только для чтения файл, связанный с клавиатурой. Оutput – это доступный только для записи файл, связанный с дисплеем.

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

К типизованным и нетипизованным файлам можно организовать прямой доступ с помощью процедуры Sееk, которая перемещает текущую позицию файла к заданному элементу. Для определения текущей позиции в файле и текущего размера файла можно использовать функции

FilePos и FileSize.

Когда программа завершает обработку файла, он должен закрываться с помощью процедуры Close. После полного закрытия файла, связанный с ним внешний файл обновляется. Затем файловая переменная может быть связана с другим внешним файлом.

42

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

Типизированные файлы. Процедура Seek.

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

Пример 1. Создает файл, содержащий квадраты 10 чисел типа real.

Program FileEx3;

Var file1: file of real; R: real;

N: integer; Begin

Assign(file1,’data.dat’);

Rewrite(file1); For N:=1 to 10 do Begin

R:=sqr(N);

Write(file1,R); {запись числа в файл в двоичном внутреннем формате}

End;

Close(file1);

End.

Пример 2. Считывает с экрана числа в диапазоне от 1 до 10 и выдает их квадраты, записанные в файле

Program FileEx4; Var

File1 :file of real; R: real;

N: integer; Begin

Assign(file1,’data.dat’);

Reset(file1);

Write(‘введите число (1-10) : ’);

Readln(N); //While N>0 do //Begin

Seek(file1,N-1); {передвигаем указатель текущей позиции файла в заданное место}

Read(file1,R);

Writeln(‘квадрат ’,N,’ равен ’,R);

//End;

End.

43

rename(F1,ParamStr(2));

erase(F1);

end;

END.

Текстовые фалы

Текстовые фалы являются разновидностью типизированных файлов типа file of char. Для описания текстовых файлов используется предопределенный тип text.

Var TextFile : text;

В текстовых фалах помимо признака конца файла EOF (код символа = 26, Ctrl-Z), присутствует еще признак конца строки EOLN, состоящий на самом деле из последовательности двух символов: «возврат каретки» (код символа = 13) и «перевод строки» (код символа = 10).

Отличия файла text от file of char:

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

2.текстовые файлы не имеют прямого доступа, то есть к ним не применимы процедуры seek, blockread и blockwrite.

3.присутствует признак конца строки.

4.для чтения/записи текстовых файлов разрешается использовать процедуры readln и writeln, которые недопустимы для остальных типов файлов.

Пример. Подсчет среднего числа символов в строке в текстовом файле с последовательным доступом.

Program SymbolsCount; Var ch:char;

LineCount,CharCount:longint;

F:text; BEGIN

LineCount:=0;

CharCount:=0;

Assign(F,ParamStr(1));

Reset(F);

While not EOF(F) do Begin

While not EOLN(F) do Begin

Read(F,ch);

inc(CharCount);

end;

ReadLn(F); {переход на следующую строку} inc(LineCount);

end;

Close(F);

if LineCount=0 then writeln(‘пустой файл’) else

begin

writeln(‘число строк = ’, LineCount:6); writeln(‘число символов = ’, CharCount:6); writeln(‘среднее число символов в строке = ’,

CharCount/LineCount:1:4);

end;

END.

45

Write(X:8);

End;

WriteLn;

Close(F); {-----------} Reset(F);

For I:=FileSize(F)-1 downto 1 do

{«всплывание» очередного макс. элемента на i–ю позицию} for J:=0 to I-1 do

begin seek(F,J); read(F,X,Y); if X>Y then begin

seek(F,J);

write(F,Y,X);

end;

end;

Close(F); {-----------} Reset(F);

WriteLn(‘отсортированный файл:’);

For I:=1 to FileSize(F) do Begin

Read(F,X);

Write(X:8);

End;

Close(F);

END.

Имея открытую файловую переменную можно получить имя файла

uses strings, dos;

var f:text; FileName: string; begin

assign(f,'text.txt');

rewrite(f); writeln(f,'Hello, world!'); close(f);

FileName:=StrPas(PChar(@TextRec(f).Name)); writeln(FileName);

end.

GetFAttr(var имя_файла; var атрибут: word) – возвращает атрибуты файла SetFAttr(var имя_файла; var атрибут: word) – устанавливает атрибуты файла

FSplit(путь:PathStr; var каталог:DirStr; var имя:NameSrt; var расширение:ExtStr); - разбиение полного имени файла на составляющие (путь, имя, расширение)

FExpand(путь :PathStr) :PathStr; - расширяет имя файла до полного имени.

FSearch(путь:PathStr; список_каталогов:String) :PathStr; - ищет файл в списке каталогов. Каталоги в списке должны быть отделены двоеточием

47

FilePos(var имя_файла) :longint; – возвращает текущую позицию для заданного файла FileSize(var имя_файла) :longint; – возвращает текущий размер файла

Truncate(var file_name) – обрезает файл от текущей позиции до конца

EOF(var file_name) :Boolean – =true, если указатель стоит на символе конца файла EOLN(var file_name) :Boolean – =true, если указатель стоит на символе конца строки

Записи.

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

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

Type

String10 = string[10];

String20 = String[20];

TStudentCard = record

SurName :string20; {фамилия}

Name :string20; {имя}

FatherName :string20; {отчество}

Year :integer; {год.рожд.}

HomeAddress :string; {адрес}

GroupCode : string10; {группа}

Predmet = record {оценки за последний семестр}

MatAn,

Programming,

Phylos :byte;

End;

End;

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

type

TGroup = array [1..25] of TStudentCard; Var

Group3056, Group3051 :TGroup;

В этом случае будут корректны следующие обращения к полям:

Group3056[1].Name := ’Sergey’;

Group3056[1].Year := 1980; Group3056[1].Predmets.MatAn := 5; Group3051[6] := Group3051[5];

48

1: (

Sem1 :TPredmetSemestr1;

);

2: (

Sem2 :TpredmetSemestr2;

);

End;

Var

Group3056, Group3051 :TGroup;

...

with Group3056[3] do begin

{заполнение фиксированной части записи} SurName := ‘Иванов’;

Name := ‘Иван’; FatherName := ‘Иванович’;

Year := 1980;

HomeAddress := ‘г.Вырица, ул.Ленина, д.2, кв.3’;

GroupCode := ‘3056’;

{заполнение вариантной части записи} Semestr:=1; {установка признака семестра}

With Sem1 do Begin

MatAn1 := 3; Programming1 := 4; Phylos := 5;

End;{with sem1} End;{with group3056}

НО В вариантных записях НЕ ДОПУСКАЕТСЯ ИСПОЛЬЗОВАТЬ одинаковые имена идентификаторов для вариантных компонент записи.

пример не корректен:

TStudentCard = record

...

{вариантная часть записи} case Semestr :byte of

1:( MatAn, LineAlgebra, Programming, Phylos :byte; );

2:( MatAn, Electronic, Programming, Geometry :byte; );

End;

Будет выдана ошибка ‘Duplicate identifier (MatAn)’

50