- •Введение
- •Порядок выполнения лабораторной работы
- •Содержание пояснительной записки
- •Лабораторная работа № 24-25 работа с множествами и строками на языке паскаль
- •Варианты
- •Контрольные вопросы
- •Список использованной и рекомендуемой литературы
- •Лабораторная работа № 27 Текстовые файлы
- •Контрольные вопросы
- •Приложение 1 пример выполнения Лабораторной работы № 24-25 листинг программы Work6.Pas
- •Алгоритм выполнения процедуры InputText
- •Алгоритм выполнения процедуры Text_Words
- •Описание главной программы
- •Приложение 2 пример выполнения Лабораторной работы № 27
- •Листинг программы Work7.Pas
- •{Главная программа}
- •Тестовые примеры пример № 1
- •Пример № 2
- •Приложение 3 Модуль system
- •П.3.1. Стандартные процедуры и функции
- •П.3.1.1. Процедуры управления обработкой
- •П.3.1.2. Динамическое распределение памяти
- •П.3.1.2.1. Процедуры динамического распределения памяти
- •П.3.1.2.2. Функции динамического распределения памяти
- •П.3.1.3. Функции преобразования
- •П.3.1.4. Арифметические функции
- •П.3.1.5. Обработка данных порядкового типа п.3.1.5.1. Процедуры порядкового типа
- •П.3.1.5.2. Функции порядкового типа
- •П.3.1.6. Обработка строк п.3.1.6.1. Строковые процедуры
- •П.3.1.6.2. Строковые функции
- •П.3.1.7. Функции для работы с указателями и адресами
- •П.3.1.8. Другие процедуры
- •П.3.1.9. Другие функции
- •П.3.2. Ввод и вывод
- •П.3.2.1. Введение во ввод-вывод
- •П.3.2.1.1. Процедуры ввода-вывода
- •П.3.2.1.2. Функции ввода-вывода
- •П.3.2.2. Текстовые файлы
- •П.3.2.2.1. Процедуры
- •П.3.2.2.2. Функции
- •П.3.2.3. Не типизированные файлы
- •П.3.2.3.1. Процедуры
- •П.3.2.4. Переменная FileMode
- •П.3.3. Устройства в Turbo Pascal
- •П.3.3.1. Устройства dos
- •П.3.3.2. Устройство con
- •П.3.3.3. Устройства lрt1, lрt2, lрt3
- •П.3.3.4. Устройство nul
- •П.3.3.5. Устройство, предназначенное для текстовых файлов
- •П.4.1.1.1. Константы флагов
- •П.4.1.1.2. Константы режима файла
- •П.4.1.1.3. Константы атрибутов файла
- •П.4.1.2. Типы п.4.1.2.1. Типы файловых записей
- •П.4.1.2.5. Строковые типы для обработки файлов
- •П.4.1.3. Переменные п.4.1.3.1. Переменная DosError
- •П.4.2. Процедуры и функции п.4.2.1. Процедуры даты и времени
- •П.4.2.2. Процедуры обслуживания прерываний
- •П.4.2.3. Функции статуса диска
- •П.4.2.4. Процедуры обработки файлов
Пример № 2
Исходный файл helpstr.txt (выдержки из HELP по строковым подпрограммам):
function Pos(Substr: String; S: String): Byte;
Searches for a substring in a string.
Substr and S are string-type expressions.Pos searches for Substr within S,
and returns an integer value that is the index of the first character of
Substr within S. If Substr is not found, Pos returns zero.
procedure Delete(var S: String; Index: Integer; Count:Integer);
Deletes a substring from a string.
S is a string-type variable. Index and Count are integer-type expressions.
Delete deletes Count characters from S starting at the Indexth position. If
Index is larger than the length of S, no characters are deleted. If Count
specifies more characters than remain starting at the Indexth position, the
remainder of the string is deleted.
function Copy(S: String; Index: Integer; Count: Integer): String;
Returns a substring of a string.
S is a string-type expression. Index and Count are integer-type expressions.
Copy returns a string containing Count characters starting with the Indexth
character in S.
If Index is larger than the length of S, Copy returns an empty string. If
Count specifies more characters than remain starting at the Indexth
position, only the remainder of the string is returned.
function Length(S: String): Integer;
Returns the dynamic length of a string.
Результат - выходной файл H:
............... Анализируем файл helpstr.txt............
--------------- Исходное предложение # 1---------------
function Pos(Substr: String; S: String): Byte;
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 2---------------
Searches for a substring in a string.
Слово a содержит 1 символов!!!! Оно игнорируется....
Слово substring содержит 9 символов!!!! Оно игнорируется....
Слово a содержит 1 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
earches for in string
Всего слов 4
Слова, отличные от string, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 3---------------
Substr and S are string-type expressions.Pos searches for Substr within S,
Слово stringtype содержит 10 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
ubstr and are
Всего слов 3
Слова, отличные от are, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 4---------------
and returns an integer value that is the index of the first character of
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 5---------------
Substr within S. If Substr is not found, Pos returns zero.
============= Итого выделены слова =============
ubstr within
Всего слов 2
Слова, отличные от within, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 6---------------
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 7---------------
procedure Delete(var S: String; Index: Integer; Count:Integer);
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 8---------------
Deletes a substring from a string.
Слово a содержит 1 символов!!!! Оно игнорируется....
Слово substring содержит 9 символов!!!! Оно игнорируется....
Слово a содержит 1 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
eletes from string
Всего слов 3
Слова, отличные от string, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 9---------------
S is a string-type variable. Index and Count are integer-type expressions.
Слово a содержит 1 символов!!!! Оно игнорируется....
Слово stringtype содержит 10 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
is variable
Всего слов 2
Слова, отличные от variable, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 10---------------
Delete deletes Count characters from S starting at the Indexth position. If
Слово characters содержит 10 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
elete deletes ount from starting at the ndexth position
Всего слов 9
Слова, отличные от position, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 11---------------
Index is larger than the length of S, no characters are deleted. If Count
Слово characters содержит 10 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
ndex is larger than the length of no are deleted
Всего слов 10
Слова, отличные от deleted, и буквы их упорядочены по алфавиту:
no
Всего таких слов 1
--------------- Исходное предложение # 12---------------
specifies more characters than remain starting at the Indexth position, the
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 13---------------
remainder of the string is deleted.
Слово remainder содержит 9 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
of the string is deleted
Всего слов 5
Слова, отличные от deleted, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 14---------------
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 15---------------
function Copy(S: String; Index: Integer; Count: Integer): String;
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 16---------------
Returns a substring of a string.
Слово a содержит 1 символов!!!! Оно игнорируется....
Слово substring содержит 9 символов!!!! Оно игнорируется....
Слово a содержит 1 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
eturns of string
Всего слов 3
Слова, отличные от string, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 17---------------
S is a string-type expression. Index and Count are integer-type expressions.
Слово a содержит 1 символов!!!! Оно игнорируется....
Слово stringtype содержит 10 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
is
Всего слов 1
Слова, отличные от is, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 18---------------
Copy returns a string containing Count characters starting with the Indexth
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 19---------------
character in S.
Слово character содержит 9 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
in
Всего слов 1
Слова, отличные от in, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 20---------------
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 21---------------
If Index is larger than the length of S, Copy returns an empty string. If
Слово f содержит 1 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
ndex is larger than the length of opy returns an empty string
Всего слов 12
Слова, отличные от string, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 22---------------
Count specifies more characters than remain starting at the Indexth
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 23---------------
position, only the remainder of the string is returned.
Слово remainder содержит 9 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
position only the of the string is returned
Всего слов 8
Слова, отличные от returned, и буквы их упорядочены по алфавиту:
Всего таких слов 0
--------------- Исходное предложение # 24---------------
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 25---------------
function Length(S: String): Integer;
Предложение НЕ кончается точкой - оно игнорируется
--------------- Исходное предложение # 26---------------
Returns the dynamic length of a string.
Слово a содержит 1 символов!!!! Оно игнорируется....
============= Итого выделены слова =============
eturns the dynamic length of string
Всего слов 6
Слова, отличные от string, и буквы их упорядочены по алфавиту:
Всего таких слов 0