
- •Лабораторная работа № 1 Программирование на языке Object Pascal
- •1. Введение
- •2. Алфавит языка Object Pascal
- •3. Структура программы
- •4. Типы данных
- •5. Выражения и операции
- •6. Операторы
- •7. Структурированные типы данных
- •8. Организация ввода-вывода
- •Выполнить компиляцию и проверку работы программы, последовательно нажимая кнопки “Операция”, “Проверка”, “Закрыть’.
- •9. Процедуры и функции
- •10. Отчет по лабораторной работе
- •Литература
- •Приложение 1 Стандартные подпрограммы преобразования типов
- •IntToStr(Value) - преобразовать целое число в десятичную символьную форму
- •Val(s, V, Code) - преобразовать символьную форму числа в двоичную
- •Приложение 2 Стандартные подпрограммы для "коротких" и "длинных" строк
- •Insert(Source, s, Index) - поместить в строку другую строку
- •Лабораторная работа № 2 Принципы объектно-ориентированного проектирования программ в среде delphi
- •1. Введение
- •2. Основные понятия ооп
- •2.1. Классы
- •2.2 Объекты
- •2.3. Методы
- •2.4. Инкапсуляция и свойства объекта
- •2.5. Наследование
- •2.6. Области видимости в классах
- •2.7. Полиморфизм и виртуальные методы
- •3. Классы и объекты delphi
- •Литература
- •1. Фаронов в.В. Delphi 3.Учебный курс. – м.: “Нолидж”, 1998. Объектно-ориентированное программирование
- •Часть 1
- •391000, Рязань, ул. Гагарина, 59/1
Приложение 2 Стандартные подпрограммы для "коротких" и "длинных" строк
В модулях System и SysUtils определены стандартные подпрограммы работы с "короткими" и "длинными" строками. Для всех этих подпрограмм существуют общие правила:
если для заданных параметров недостаточно символов какой-либо строки, то берется только имеющееся количество символов;
если количество размещаемых символов больше области строки, предназначенной для них, размещается только допустимое количество символов, а остальные отбрасываются.
AnsiCompareStr(Sl, S2) - сравнение двух строк
Функция сравнивает две строки типа string и возвращает отрицательное число типа Integer, если первая строка меньше второй, число 0, если строки равны, и положительное число, если первая строка больше второй. Сравнение выполняется с учетом региональной установки Windows.
AnsiCompareText(Sl, S2) • сравнение двух строк
Функция аналогична функции AnsiCompareStr, только при сравнении строк не делается разницы между прописными и строчными буквами. Сравнение выполняется с учетом региональной установки Windows.
AnsiLowerCase(S) - получить строку со строчными буквами
Функция формирует из строки S типа string строку того же типа, в которой все прописные буквы заменены на строчные, и возвращает ее как результат своей работы. Преобразование выполняется с учетом региональной установки Windows.
AnsiUpperCase(S) - получить строку с прописными буквами
Функция формирует из строки S типа string строку того же типа, в которой все строчные буквы заменены на прописные, и возвращает ее как результат своей работы. Преобразование выполняется с учетом региональной установки Windows.
CompareStr(Sl, S2) - сравнение двух строк
Функция сравнивает две строки типа string и возвращает отрицательное число типа Integer, если первая строка меньше второй, число 0, если строки равны, и положительное число, если первая строка больше второй. Сравнение выполняется без учета региональной установки Windows.
CompareText(Sl, S2) - сравнение двух строк
Функция аналогична функции CompareStr, только при сравнении строк не делается разницы между прописными и строчными буквами. Сравнение выполняется без учета региональной установки Windows.
Concat(Sl [, S2, S3 ,..., SN]) - объединить несколько строк
Функция объединяет строки S1, S2 ,..., SN в одну и возвращает полученную строку как результат своей работы. Количество объединяемых строк может быть любым. Сами исходные строки при этом не изменяются.
Copy(S, Index, Count) - выделить часть строки
Функция выделяет часть строки S в Count (тип Integer) символов, начиная с символа с индексом Index (тип Integer). Полученная строка возвращается функцией как результат ее работы. Сама строка S при этом не изменяется.
Delete(S, Index, Count) - удалить часть строки
Процедура удаляет из строки S Count (тип Integer) символов, начиная с символа с индексом Index (тип Integer).
Insert(Source, s, Index) - поместить в строку другую строку
Процедура помещает строку Source в строку S, начиная с позиции Index (тип Integer). Новая строка не замещает символы строки S, а "отодвигает" их к концу полученной строки.
Length(S) - получить длину строки
Функция возвращает длину (тип Integer) строки в символах.
LoverCase(S) - получить строку со строчными буквами
Функция формирует строку, аналогичную строке S, но у которой все прописные буквы заменены строчными. Эта строка возвращается в качестве результата. Функция преобразовывает в строчные только прописные буквы латинского алфавита.
Pos(Substr, Str) - найти вхождение одной строки в другой
Функция ищет вхождение строки Substr в строке Str и возвращает начало первого вхождения (номер первого символа - тип Integer). Если такого вхождения нет, функция возвращает значение 0.
SetLength(S, NewLength) - задать новую длину строки
Процедура задает новую длину NewLength типа Integer строке S. Если строка S "короткая", устанавливается значение S[0] в Chr(NewLength). Для "длинных" строк выделяется новая область динамической памяти соответствующего размера, куда помещается информация из старой строки.
SetString(S, Buffer, Len) - задать содержимое строки и ее длину
Процедура задает содержимое и длину строки S. Если S - "короткая" строка, компоненте S[0] присваивается значение Chr(Len), после чего, если параметр Buffer типа PChar не равен nil, в строку S из буфера Buffer копируется Len символов. Если же параметр Buffer равен nil, никакие символы в строку S не копируются. Если S "длинная" строка, под нее выделяется новая динамическая область соответствующего размера, и в нее из буфера Buffer помещаются Len символов (если только параметр Buffer не равен nil, в противном случае область только выделяется).
StringOfChar(Ch, Count) - заполнить строку символами
Функция возвращает строку типа string, заполненную Count (типа Integer) символами Сh (типа Char).
Trim(S) - удалить начальные и заключительные пробелы
Функция формирует из строки S новую строку с удаленными начальными и заключительными пробелами и управляющими символами (с кодами до 31 включительно) и возвращает ее как результат своей работы. Сама строка S при этом не изменяется.
TrimLeft(S) - удалить начальные пробелы
Функция аналогична функции Trim, только удаляются лишь начальные пробелы и управляющие символы.
TrimRight(S) - удалить заключительные пробелы
Функция аналогична функции Trim, только удаляются лишь заключительные пробелы и управляющие символы.
UpCase(Ch) - преобразовать символ в прописной
Функция преобразовывает символ Ch в прописной и возвращает его как результат своей работы. Функция преобразовывает только строчные буквы латинского алфавита, остальные символы возвращаются функцией без изменения.
UpperCase(S) - получить строку с прописными буквами
Функция формирует строку, аналогичную строке S, но у которой все строчные буквы заменены прописными. Эта строка и возвращается функцией в качестве результата ее работы. Функция преобразовывает в прописные только буквы латинского алфавита.