- •Часть 1
- •1. With elem 50
- •2.1. Если поступившая запись предшествует корневой, идти в левое 98
- •2.2. Иначе – в правое поддерево. 98
- •Введение Основные этапы решения задач на эвм
- •Языки программирования
- •Трансляторы
- •2. Данные в паскале. Простые типы данных
- •1. Общие сведения о языке паскаль
- •1.1. Алфавит языка. Идентификаторы и зарезервированные слова
- •2.1. Целочисленный тип
- •2.2. Вещественный тип
- •2.3. Логический тип
- •2.4. Символьный тип
- •2.5. Перечисляемый тип
- •Var m1, m2: metall;
- •2.6. Ограниченный (диапазонный) тип данных
- •Над значениями ограниченного типа допустимы те же операции, что и над значениями базового типа, используемыми при задании в разделе определения типов. Если, к примеру, задано определение:
- •Var y:bukva;
- •3. Операции и выражения
- •2.1. Целочисленный тип
- •3.2. Арифметические выражения и операции
- •3.3. Логические операции и выражения
- •3.4. Операции отношения
- •3.5. Стандартные функции
- •3.6. Приоритеты операций
- •4. Структура программы
- •4.1. Раздел определения констант
- •4.2. Раздел определения типов
- •4.3. Раздел описания переменных
- •V: boolen;
- •4.4. Раздел описания процедур и функций
- •4.5. Раздел операторов
- •4.6. Директивы компилятора и управляющие символы
- •5. Операторы языка паскаль
- •5.1. Оператор присваивания
- •5.2. Оператор вывода информации
- •5.3. Оператор ввода информации
- •5.4. Составной оператор
- •5.5. Условный оператор
- •5.6. Оператор варианта case
- •5.7. Операторы цикла
- •5.7.1. Оператор цикла по счетчику (цикл с параметром )
- •Иденти-фикатор перемен-ной
- •I,n:integer; {I -пар-р цикла, n - его кон.Занч.}
- •X,s,p;integer;
- •5.7.2. Оператор цикла с предусловием
- •Пример составления таблицы переменных
- •Var a,Summa:real;
- •Inc (Summa, a);
- •5.7.3. Оператор цикла с постусловием
- •X,Summa:real;
- •6. Структурированные типы данных
- •6.1. Массивы
- •I,ne:integer;
- •6.1.1. Сортировка массивов
- •Vr:char;
- •Vr : char;
- •6.2. Строки
- •6.3. Множества
- •I : byte;
- •6.4. Записи
- •With elem
- •7. Типизированные константы
- •7.1. Типизированные константы скалярных типов
- •7.2. Типизированные константы - массивы и строки
- •7.3. Типизированные константы – множества
- •Var a: hvor;
- •I, j, k, simp: byte;
- •7.4. Типизированные константы – записи
- •8. Файлы
- •8.1. Типизированные файлы
- •8.2. Текстовые файлы
- •Var f : text;
- •9. Подпрограммы
- •9.1. Процедуры и функции
- •9.2. Процедуры и функции пользователя
- •Var p: real;
- •Var p: real;
- •9.3. Параметры подпрограмм
- •Var X: real; m: integer;
- •Var I : integer;
- •10. Рекурсии
- •10.1. Рекурсивные алгоритмы и определения
- •10.2. Рекурсивные процедуры и функции
- •Var f : longint ;
- •Var a, y, z : real;
- •10.3. Виды рекурсивных процедур
- •If условие
- •If условие
- •If условие then Recur ; then begin
- •Var k : integer;
- •Var c : char;
- •Var c : char;
- •11. Графика в паскале
- •11.1. Основы работы в графическом режиме
- •11.1.1. Аппаратная и программная поддержка графики
- •Init Graph (Driver, Mode, Path);
- •11.1.3. Обработка ошибок
- •11.1.4. Закрытие видеорежима
- •11.2. Система координат дисплея
- •11.1.2. Запуск графической системы
- •Var Driver, Mode: integer;
- •11.3. Экран и окно
- •11.4. Установка цвета, заполнения и палитры
- •11.5. Построение простейших геометрических образов
- •11.6. Работа с текстом OutText (X,y:integer; txt:string) – вывести строку txt с текущего положения указателя.
- •11.7. Вывод числовых значений
- •12. Программные модули
- •12.1. Структура программного модуля
- •Interface –интерфейсные раздел («видимая» часть модуля)
- •Implementation – раздел реализации («черный ящик»)
- •Interface
- •Var X:integer;
- •Implementation
- •Interface
- •X: integer;
- •Implementation
- •12.3. Ссылки на модули
- •Unit hlp _ sr;
- •Xa, ya, xb, yb, xc, yc: integer;
- •13. Динамическая память
- •Var a1: array[1..300,1..300] of integer.
- •13.1. Адресация памяти
- •13.2. Указатели
- •13.2.1. Операции с указателями
- •13.2.2. Нетипизированные указатели
- •X: integer;
- •13.2.3. Типизированные указатели
- •13.3. Создание и уничтожение динамических переменных
- •X: real;
- •13.4. Администратор кучи
- •Heapend содержит адрес конца кучи
- •13.5. Примеры использования указателей
- •Объявление
- •Var Pr:preco;
- •14. Использование указателей для организации связанных динамических структур
- •14.1. Списки
- •14.1.1. Алгоритмы работы со списками
- •14.2. Организация стека в динамической памяти
- •Var p, st :pstack; {st - указатель на вершину стека}
- •I: integer;
- •14.3. Очереди
- •14.4. Деревья
- •14.4.1. Организация деревьев в динамической памяти
- •14.4.2. Построение полного двоичного дерева
- •I,j :I nteger; I - значение инф. Поля очередной
- •Var p,h:pstack;
- •Inc(I); {создаем новый узел – вершину}
- •Inc(j); {переместим указатель t и переход
- •14.4.3. Алгоритмы работы с двоичными упорядоченными деревьями (деревьями поиска)
- •14.4.4. Рекурсивные алгоритмы работы с двоичными деревьями
- •I, X : integer;
- •Литература
- •Часть 1. Язык программирования Паскаль
13.1. Адресация памяти
Адресное пространство памяти представляет собой последовательность байтов. Исторически сложилось так, что первые машины имели адресную шину из 16 линий (16-разрядную), которая позволяла адресоваться к объему памяти до 216=64 Кб. Позже адресная шина ПК стала состоять из 20 линий. 20 бит позволяли адресоваться к 220=1 Мб, но сами машины продолжали оставаться 16-разрядными. На этом этапе память была разбита на сегменты по 64 Кб (сегментирована). И когда в программе адресовались к памяти, то указывали номер сегмента (его адрес) и смещение внутри сегмента от его начала.
На выходе из системной шины появилось устройство формирования адреса, а в процессоре появился сегментный регистр.
Сегмент – участок памяти длиной 64 Кб, который может начинаться только с адреса, кратного 16 (т. е. 0, 16, 32, 48 и т. д.). Фрагмент памяти в 16 байт называется параграфом (говорят, что сегмент всегда выровнен на начало параграфа). Смещение – указывает, сколько байт от начала сегмента нужно отступить, чтобы обратиться к нужному адресу.
20-разрядный адрес получается следующим образом: содержимое сегмента сдвигается влево на четыре разряда, в свободные правые разряды записываются нули и результат складывается со смещением.
С появлением 32-разрядных машин сегментирования памяти не стало, но форма записи сохранилась.
Во всех современных языках программирования, в том числе и в Паскале, есть специальный тип данных, который позволяет получить значение адреса (как полного, так и его частей).
13.2. Указатели
Все рассмотренные ранее типы данных содержат непосредственные данные, размещенные в памяти ПК. Для организации динамической памяти применяются особые переменные, называемые указателями.
Указатель – переменная, значением которой является адрес (первого байта памяти), по которому записаны данные.
Указатель занимает в памяти 4 байта. При этом данные, на которые он указывает, могут простираться на десятки килобайт.
К переменной, на которую указывает указатель, можно обращаться через имя этого указателя (т. е. можно «ссылаться» на нее посредством указателя), отсюда и название – ссылочная переменная.
13.2.1. Операции с указателями
Тип – это всегда два множества: множество значений и множество операций. Значениями переменных типа указатель являются адреса памяти. К указателям применимы операции отношения, их можно сравнивать (равны или неравны, но не меньше или больше). Указатели равны только в случае, если они ссылаются на один и тот же объект, т. е. содержат один и тот же адрес.
Существует операция, которая возвращает указатель – адрес первого байта памяти, по которому записана переменная (любого типа), – это
@<Имя переменной> или функция
Addr (<имя переменной>)
Например, @x или addr(x).
Различают типизированные и нетипизированные указатели.
13.2.2. Нетипизированные указатели
Таким указателям можно присваивать адрес любой переменной независимо от типа. Нетипизированный указатель обозначается pointer. Используется для данных, структура и тип которых меняются в ходе выполнения программы.
П р и м е р
Пусть var p, r : pointer; x,y: integer; st: string;
а) p:= @x; r:= @st; p <> r - true;
б) x:= y; p:= @x; r := @y; p <> k - true;
в) p:= @x; r:= @x; p = r - true.
П р и м е р «указатель на указатель»
type int:ip;
var
a:ip; a1:^ip;
