
- •Утверждаю Зам.Директора по учебной работе
- •Основы Алгоритмизации и программирования учебно-методическое пособие
- •220301 Автоматизированные системы обработки информации и правления
- •Введение
- •Основные этапы решения задач на эвм
- •Глава 1 способы записи алгоритма
- •1.1 Алгоритм и его свойства
- •Схемы алгоритма
- •1.2 Структуры алгоритмов
- •1.2.1 Алгоритм линейной структуры
- •1.2.2 Алгоритм разветвляющейся структуры
- •1.2.3 Алгоритм циклической структуры
- •1.2.4 Алгоритм со структурой итерационных циклов
- •1.2.5 Алгоритм со структурой вложенных циклов
- •Глава 2 программа на языке высокого уровня
- •2.1 Системы программирования
- •2.2 Характеристика языка программирования Паскаль
- •2.3 Алфавит и структура программы на Паскале Алфавит программы
- •Структура программы
- •Глава 3 Стандартные типы данных
- •3.1 Данные. Типы
- •3.2 Вещественные типы
- •3.3 Целочисленные типы
- •3.4 Символьный тип
- •3.5 Логический тип
- •4 Представление основных структур программирования: итерация, ветвление, повторение
- •4.1 Линейная структура (следование)
- •Var X,y,f: real;
- •4.2 Разветвляющая структура (ветвление)
- •4.3 Циклическая структура (повторение)
- •4.3.1 Оператор цикла с параметром
- •I : Integrer; {номер числа }
- •4.3.2 Оператор цикла с постусловием
- •I,n: integer;
- •4.3.3 Оператор цикла с предусловием
- •4.3.4 Итерационные циклы
- •Var r,a:real;
- •Приближенное вычисление функций
- •Решение уравнений приближенными методами
- •Метод деления отрезка пополам
- •Xsl, Xpr, a, b, e, y1, y2, Lev, Prav, y: Real;
- •Метод Ньютона
- •Метод прохождения отрезка с переменным шагом
- •Вычисление определенных интегралов
- •1. Метод прямоугольников
- •X: Real;
- •2. Метод трапеций
- •X: Real;
- •Глава 5 Типы данных, определяемые пользователем
- •5.1 Пользовательский тип данных
- •5.1.1 Типизированные константы
- •5.1.2 Перечисляемый тип
- •I:1..6; loto: num;
- •5.2 Массивы
- •I : integer;
- •5.2.1. Работа с одномерными массивами
- •I,sum : integer;
- •Var a: array [1..N] of real;
- •Var I,s,r: integer;
- •I : list;
- •I : integer;
- •X : mass;
- •I, j, p, n, m, k:integer;
- •I, j, k, nd : integer;
- •Xmin : real;
- •X : mass;
- •Var I, j, nd : integer;
- •X : mass;
- •5.2.2 Работа с двумерными массивами( матицы)
- •Var I,j,n : integer;
- •I,j,n,m : integer;
- •5.2.3 Сортировка массивов
- •Сортировка методом "пузырька"
- •X : Array [1..Nmax] Of Real;
- •X : Array [1..Nmax] Of Real;
- •Сортировка выбором
- •Обменная сортировка
- •Var m:array[1..1000] of integer;
- •I,z,n:integer; Key:byte;
- •Сортировка слиянием
- •Var { Описание массивов и переменных}
- •X, y: array[1..1000] of integer;
- •5.3 Строковые типы
- •Var s: string[10];
- •5.3.1 Операции над строками
- •5.3.2 Стандартные процедуры и функции для строк
- •Функция Length
- •Функция Upcase
- •Функция Copy
- •Функция Роs
- •I, n, p: integer;
- •I: integer;
- •I: integer;
- •Insert (word2, text, I);
- •Insert (chr (k-32), t, I);
- •Insert (chr (k-80), t, I);
- •Insert (‘е’, t, I);
- •Глава 6 Процедуры и функции
- •6.1 Процедуры
- •I : Integer;
- •I, n: integer;
- •Input _ mas (k, n);
- •I,n : Integer;
- •I,k : Integer;
- •6.2 Функции
- •I:Integer;
- •2) Массивы;
- •I,n : Integer;
- •I : Integer;
- •I,tn,tk:Real;
- •Глава 7 Программирование рекурсивных алгоритмов
- •7.1 Понятие рекурсии
- •7.2 Техника построения рекурсивных алгоритмов
- •7.3 Формы рекурсий
- •If Prim(I) then
- •7.4 Рекурсия и итерация
- •7.5 Программирование с использованием рекурсии
- •Var p: Integer;
- •Var X, y: Integer; begin
- •Var z: Real; begin
- •Var I:integer; j:real;
- •Глава 8 Файлы
- •8.1 Текстовые файлы
- •I,n : Integer; {Вспомогательные переменные}
- •8.2 Типизированные файлы
- •X,m,s : Real;
- •8.3 Нетипизированные файлы
- •Глава 9 Записи
- •9.1 Описание записи
- •I: integer;
- •9.2 Оператор присоединения
- •I, j, k, m : integer;
- •X: real;
- •9.3 Вложенные записи
- •9.4 Записи с вариантами
- •Information: record
- •I, k, n : integer;
- •Vedom : Array [1..Nmax] Of Stud;
- •I,j : Integer;
- •Vedom : File Of Stud;
- •Vedom : File Of Stud;
- •I,j,kdv,k2 : Integer;
- •If Not Eof (Ftel) Then
- •If Not Eof(Ftel) then
- •If Not Eof(FilComp) then
- •Глава 10 Динамические структуры данных
- •10.1 Распределение памяти при выполнении программ
- •Верхняя граница памяти ms-dos
- •10.2 Ссылочные переменные
- •10.3 Процедуры управления кучей
- •10.4 Использование переменных ссылочного типа
- •I: Integer;
- •I, k : Integer;
- •Val(b, k, code);{Превратили второй символ в ч исло}
- •10.5 Списки
- •Var Ch : Char;
- •Var Ch : Char;
- •10.6 Деревья
- •10.7 Константы ссылочного типа
- •Глава 11. Язык Паскаль. Графический модуль Graph Список используемой литературы Основная
- •Дополнительная
Глава 9 Записи
9.1 Описание записи
При использовании массивов основное ограничение заключается в том, что каждый элемент должен иметь один и тот же тип. Однако при решении задач обработки информации возникает необходимость хранить и обрабатывать совокупности данных различных типов, что требует создания отдельных массивов для каждого типа данных, а для установления соответствия между ними - введения соответствующих индексов. Это можно проиллюстрировать на простой задаче по вычислению среднего балла для группы студентов.
Пример 9.1 Для каждого студента указаны фамилия и оценки (в баллах), полученные на экзаменах по пяти дисциплинам. Требуется вычислить средний балл для каждого студента и упорядочить список студентов по убыванию среднего балла.
Предположим, что в группе 25 студентов. Для хранения одной фамилии студента требуется массив из 15 символов, тогда для хранения всех фамилий необходим двумерный массив размера 15x25. Для хранения информации о баллах, полученных студентами, потребовался бы еще один массив размера 5x25, а для хранения вычисленного среднего балла - третий массив из 25 элементов. Соответствие между фамилиями, полученными баллами и средним определяется индексами соответствующих массивов.
Совокупность данных в приведенном примере можно рассматривать как запись (комбинированный тип данных). В общем случае запись представляет собой совокупность ограниченного числа логически связанных компонентов, принадлежащих к разным типам. Например, фамилии студентов представляются данными символьного типа; оценка, полученная на экзамене, интерпретируется как отрезок целочисленного типа (2...5), а средний балл имеет вещественное значение.
Определение записи включает указание ее имени, имен отдельных компонентов и соответствующих типов данных:
Туре
<имя-записи> = record
<имя-компонента-1>: <тип>; <имя-компонента-2>: <тип>;
<имя-компонента-п>: <тип> end;
Данные в примере 9.1 можно описать следующим образом:
Туре
stud = record
fam: string[15]; b1,b2, bЗ, b4, b5:2..5; sb: real;
end;
Здесь переменная sb имеет смысл среднего балла; b1, b2, bЗ, b4, b5 обозначают баллы по соответствующим дисциплинам; идентификатор fam обозначает строку символов для хранения фамилии студента. Переменная stud в программе на языке Паскаль будет иметь смысл структуры, содержащей информацию об одном студенте.
Организация этой записи показана на рис. 9.1.
Рисунок 9.1 - Организация записи Stud
Если информацию по всем 25 студентам необходимо хранить в памяти ЭВМ, то вводится массив TBL, представляющий собой массив записей:
Var
tbl: array [1. .25] of stud;
Селектор записи
Компонент записи определяется (задается) именем записи и именем этого компонента, разделенными точками, например stud.fam, stud.bl, tbl[3].sb. В программах подобные составные имена называются селекторами записи и используются так же, как и переменные других типов. Для нахождения значения среднего балла может быть использован оператор присваивания:
tbl[i].sb := (tbl[i].b1+tbl[i].b2+tbl[i].b3+tbl[i].b4+tbl[i].b5)/5 ; Возможны и такие операторы присваивания:
tbl[3].fam := 'Иванов'; tbl[20].b2 := 5;
tbl[k+1].sb := 4.666;
Имена компонентов внутри записи не должны повторяться. В языке Паскаль нет ни одной операции, которая воспринимала бы запись как нечто целое. Однако значение записи можно пересылать в другие переменные - записи с помощью операторов присваивания. Возвращаясь к рассматриваемому примеру, можно написать:
Var
z1,z2 : stud ;
begin
z1 := z2 ;
Последний оператор присваивания эквивалентен следующей группе операторов:
zi.fam :=z2.fam ;
zl.bl :=z2.bl ;
Zl.b2:=z2.b2;
Zl.b3:=z2.b3;
zl.b4:=z2.b4;
zl.b5:=z2.b5;
zlsb :=z2.sb;
Запись можно передавать в качестве параметра процедуры или функции, но значением функции запись быть не может.
Пример 9.1 может быть записана в следующем виде (без упорядочения списка по убыванию среднего балла):
{Определение среднего балла}
Program Ball;
Type
Stud = record
fam : string[15]; b1,b2, bЗ, b4, b5:2..5; sb: real end;
Var
tbl:array[1..25]of stud;