Вввод / вывод записей в Паскале
При вводе/выводе записей используются отдельные поля записи
For i:=1 to n do Read (EMS_43a[i].FIO, EMS_43a[i].Str)
При использовании оператора присоединения
For i:=1 to n do With EMS_43a[i] do Begin Read (FIO); Read (Str); End
Тип множество: описание, ввод, вывод, операции над множествами
Описание |
Ключевое слово Set объявляет тип множества до 255 дискретных значений. Не путайте с перечислениями - они могут принимать только одно значение. Переменная множества всегда держит все значения набора - некоторые установлены, некоторые нет. Перечислимый тип может быть: Символы типа "A" и "5" Целые числа в диапазоне от 0 до 255 Перечисления названий как Diamonds, Clubs Помните, что Set является переменной. Также, в начале все возможные значения не установлены. Когда вы инициализируете множество, вы можете установить все или некоторые из его значений. Потом вы можете проверить переменную, чтобы узнать, находится ли ее значение в наборе. Вы можете захотеть сделать это, например, при анализе кода, чтобы узнать, является ли следующий символ символом строчных букв. |
|
Примечания |
Каждый тип перечисления, или член набора, занимают один бит (32-байтовой) маски на 256 битов. Любой из этих 32 байтов, который не содержит ни один из битов определения перечисления, опущен из набора, чтобы экономить память. См. примеры. |
Program mno1; Uses Crt; {Работа с множествами. Определить есть ли во вводимой строке цифры} Type Digit =set of 0..9; Var z :Digit; i,k :integer; si :char; Begin ClrScr; Write('Введите строку символов=>'); z:=[]; Repeat Read(si); k:=ord(si)-ord('0'); If k in [0..9] then z:=z+[k] Until si='.'; Writeln; If z=[] then writeln('Цифр нет') else Begin Writeln('В строке имеются следующие цифры:'); For i:=0 to 9 do if i in z then write(i:2); Writeln; End; Repeat Until KeyPressed; End.
Операции(объединение + пересечение * разность- )
Текстовый файл: описание, основные операции. Использование параметров программы для передачи программе имен файлов
Текстовый файл – совокупность строк (последовательностей символов) переменной длины, заканчивающихся специальным символом eoln (конец строки; на клавиатуре набирается нажатием клавиши Enter):
Описание файловой переменной:
var
<ф.п.>: TextFile; или просто Text;
Первоначально любой файл данных создается как текстовый. Набранные на клавиатуре данные представляют собой стандартный входной файл. Содержимое дисплея при просмотре любого файла – стандартный выходной файл. Эти файлы используются при задании и просмотре данных. Для хранения данных последние записываются в файл на внешнем запоминающем устройстве (диске).
В консольном приложении можно использовать стандартные файловые переменные – input (по умолчанию связан со стандартным входным текстовым файлом – клавиатурой) и output (по умолчанию связан со стандартным выходным текстовым файлом – дисплеем). Ввод/вывод можно перенаправить в другие текстовые файлы. Например, переопределим выходной файл:
Когда файлов несколько, или вы создаете неконсольное приложение, необходимо создавать собственную файловую переменную. Далее во всех задачах этого семестра будем использовать собственные файловые переменные и осуществлять ввод и вывод через нестандартные текстовые файлы. В них кириллица выводится корректно.
Основные операторы для работы с текстовыми файлами:
assignFile( <ф.п.>,’<имя файла>’) – связывает файловую переменную с файлом;
rewrite( <ф.п.> ) – создание и открытие нового файла для записи;
reset (<ф.п.> ) – открытие существующего текстового файла (файла, связанного с файловой переменной <ф.п.>) для чтения;
append( <ф.п.> ) – открытие существующего текстового файла (файла, связанного с файловой переменной <ф.п.>) для дозаписи в конец;
closeFile( <ф.п.>) – закрытие открытого файла.
Операторы ввода-вывода:
read( <ф.п.>,<список ввода>) – чтение данных; элемент списка ввода для текстового файла – число или символ или строка string;
write( <ф.п.>,<список вывода>) - запись данных согласно списку вывода; элемент списка вывода для текстового файла – число или символ или строка string.
readln( <ф.п.>,<список ввода>) - чтение данных согласно списку ввода и переход на следующую строку; если в строке данных остались данные, не вошедшие в список ввода, они игнорируются
writeln( <ф.п.>,<список вывода>) - запись данных в файл согласно списку вывода с добавлением в конце выведенной строки маркера конца строки (переход на следующую строку).