1. Обработка символьной информации. Символьные переменные презентация

Символьные переменные
Символьный тип – порядковый, символы упорядочены.
CHAR
var a:char;
Функция ord(‘а’) – возвращает код символа.
Символьная константа записывается как соответствующий символ, заключённый в апострофы.
Иначе можно задать символ написав знак # и за ним код символа. Например, #90 – символ, код которого 90 (это буква z ).

Строки
Описатель string или string[n],
где n - константа, определяющая длину строки (n ≤ 255).
var a : string[12]; - строка из 12 символов
b : string; - строка из 255 символов.
К символам строки можно обращаться как к элементам массива b[10]:=‘Y’.
Нулевой байт ( b[0] ) содержит реальную длину строки.

Процедуры и функции для работы со строками

Процедуры преобразования
str(x,s) – преобразует числовое значение x в строковое s.
Для x возможно задать формат, как в операторе write, задав длину поля и число знаков в дробной части x:n:m.
val(s,x,err) – преобразует строковое значение s в числовое x, если преобразование возможно err=0, иначе err равно номеру недопустимого символа.

Пример.
Задан массив строк.
В каждой строке фамилия, имя и отчество.
Создать массив содержащий имена из исходного массива без повторений.
Метод решения: из строки исходного массива имя переписываем в переменную х, затем проверяем есть ли такое имя в результирующем массиве, если нет – записываем его в результирующий массив.

const n=5;
var fio:array[1..n] of string[24];
im:array[1..n]of string[8];
x: string[8];
i,j,k:integer;
f:boolean;
begin writeln(' ___fio__ im __otch__');
for i:= 1 to n do {ввод исходного массива}
begin
write('fio ',i,' - ');
readln(fio[i]);
end;
k:=0; {Количество имён в результирующем массиве}

for i:=1 to n do
begin
f:=true; {флажок, если нет совпадений, он равен true }
x:=copy(fio[i],9,8); {копирование имени в переменную x}
for j:=1 to k do
if x = im[j] then f:=false; {проверка совпадения имён}
if f then begin
k:= k + 1;
im[k]:=x; ) {запись имени в массив}
end;
end;
for i:=1 to k do {вывод имён}
writeln(im[i]);
end.

ФАЙЛОВЫЕ ТИПЫ

ФАЙЛ – это именованный набор данных, хранящийся на внешней памяти.
В Паскале три типа файлов: текстовые, типизированные и файлы без указания типа.
Текстовые файла задаются описателем – text.
Типизированные – file of <тип компонента>.
Файлы без указания типа – file.

Пример.
var f1 : file of real; {файл из вещественных чисел}
f2 : text; {символьный файл}
f3 : file;

Процедуры и функции для работы с файлами
assign(<файловая переменная>,<имя файла>)
Эта процедура связывает имя файловой переменной с именем конкретного файла.
assign(f, ’D:\gr.doc’);
Имя файла задаётся в виде строковой константы (в апострофах).

Инициализация файла
Инициализировать файл – указать направление передачи данных.
reset(<файловая переменная>)
Эта процедура открывает файл для чтения.
При выполнении этой процедуры файл подготавливается к чтению и указатель устанавливается в начало файла.

rewrite (<файловая переменная>)
Эта процедура открывает файл для записи.
При выполнении этой процедуры файл подготавливается к записи и указатель устанавливается в начало файла.
Информация ранее находившаяся в файле стирается.

append (<файловая переменная>)
Эта процедура применяется только для текстовых файлов, она инициализирует добавление информации в конец уже существующего файла.
close(<файловая переменная>)
Закрывает файл, при этом связь между файловой переменной и файлом не теряется.

Функция
eof(<файловая переменная>):boolean
Эта функция даёт результат логического типа:
true - если достигнут конец файла.
Функция ioresult : word
Эта функция даёт в результате ноль, если последняя файловая операция закончилась успешно, и код ошибки, если операция не выполнилась.

Типизированные файлы
( file of <тип компонента> )
Введём понятие «позиция доступа».
f

Процедуры
seek(f, <№ компонента файла> )
Эта процедура устанавливает позицию доступа на указанную компоненту.
filesize(f)
Эта функция возвращает размер файла в записях.

Запись в файл write(f,x)
f – файловая переменная,
x – переменная типа компонента файла.
Эта процедура записывает в файл содержимое переменной x.
f
x write(f,x)
f
x
f1
f2
x1
. . .
f1
f2
x1
x1

Чтение из файла
read(f,x)
f – файловая переменная,
x – переменная типа компонента файла.
f1
f1
f1
f1
x1
x1
x1
f
f
x
x
read(f,x)

Текстовые файлы
( text )
В таких файлах хранятся коды символов.
Существует особый символ – конец строки.
Этим символом содержимое файла разбивается на строки.
Функция writeln(f) записывает в файл символ конца строки.
Функция readln(f) – при чтении из файла осуществляет переход на новую строку.

Стандартные текстовые файлы
В Паскале определены два стандартных текстовых файла: input и output.
input - для ввода данных с клавиатуры.
output - для вывода данных на экран.
Для ввода и вывода в эти файлы в процедурах read и write не требуется указывать файловую переменную.

Чтение из стандартного файла
read(a,b,c); readln;
readln(a,b,c);

Запись в стандартный файл
write(a,b,c);
write(‘a=‘, a,’ b=‘, b,’ c=‘, c);
write(a,b,c); writeln;
writeln(a,b,c);

Элементы списка вывода
Для целых значений можно указать длину поля, в которое будет помещаться выводимое число.
write(‘n=‘, n:5);
n=₋ ₋ ₋ 25

Для вещественных значений можно указать длину поля, в которое будет помещаться выводимое число и количество позиций, отводимых под дробную часть значения в рамках выделенного поля.
write(‘a=‘, a:5:1, ’ b=‘, b:7:2);
a= ₋23.6₋ ₋ b=₋ ₋-1.40
Производится округление до указанного числа десятичных разрядов.
Если значение не помещается в указанное поле, размер поля автоматически увеличивается.

Пример.
Задан типизированный файл, содержащий результаты сессии (фамилии студентов и оценки по трём экзаменам).
Необходимо создать текстовый файл, в который записать фамилии студентов, сдавших все экзамены на отлично.
Имя исходного файла должно вводиться с клавиатуры.
Результаты записать в файл d:\otl.

Type St=record fio:string[15];
m,h,c:integer;
end;
Var f1:file of st; {типизированный файл}
f2:text; {текстовый файл}
x:st;
a:string[9]; {переменная для ввода имени файла}
begin
writeln(‘ имя файла - ‘);
readln( a ); {ввод имени исходного файла}
assign( f1, a );
reset( f1 ); {открытие файла для чтения}
assign( f2, ‘d:\otl’ );
rewrite( f2 ); {открытие файла для записи}

while not eof( f1 ) do {цикл для обработки записей файла f1 }
begin
read( f1, x );
if ( x.m = 5 ) and ( x. h = 5 ) and ( x.c =5 ) then writeln( f2, x.fio ); {запись в файл f2 }
end;
close( f1 );
close( f2 );
end.

Пример.
В файле хранится экзаменационная ведомость.
Провести коррекцию файла, содержащего экзаменационную ведомость: заменить оценку ‘2’ на ‘неуд’.

type st= record
fio:string[15]; {фамилия студента}
bal:string[5]; {оценка}
end;
var f : file of st; {файл из записей}
x : st;
k,i: integer;
begin
assign(f,'I:\wwww');
reset(f);
k:=filesize(f); {определение длины файла}