Записи в Паскаль.

Для использования  в программе множество однотипных данных используются массивы. Однако, очень часто возникает необходимость использовать разнородные типы данных для описания одного и того же объекта. В этом случае в программе используется тип, называемый запись.

 Например, возьмем один объект – автомобиль. Если нам необходимо применить к этому объекту какой-то один тип данных (например, цвет), мы будем использовать массив. Запишем в разделе описания переменных: Var color: array [1..15] of integer;. Здесь, для одного объекта (автомобиля) мы указываем массив однотипных данных (15 различных значений для цвета автомобиля – белый, черный, красный и т. д.). Для того чтобы к этому объекту можно было применить несколько разнородных типов данных (например, не только цвет, но и марку, год выпуска, пробег и т.д.) можно использовать либо несколько массивов, либо специальный комбинированный тип данных, называемый записями.
Напишем программу, где нам необходимо ввести с клавиатуры различные данные об автомобиле (марка, цвет, год выпуска, пробег).

Запись в Паскале.

 program zapisi1; uses crt; type opisanie=record marka: string[45]; color: string[8]; god_vip: integer; probeg: real; end; var auto: opisanie; begin clrscr; writeln ('Введите описание автомобиля '); writeln ('Введите марку автомобиля'); readln (auto.marka); writeln ('Введите цвет автомобиля'); readln (auto.color); writeln ('Введите год выпуска автомобиля'); readln(auto.god_vip); writeln ('Введите пробег автомобиля'); readln(auto.probeg); writeln ('Все данные введены'); writeln ; writeln (' Марка автомобиля: ', auto.marka); writeln(' Цвет автомобиля: ', auto.color); writeln(' Год выпуска автомобиля: ', auto.god_vip); writeln(' Пробег автомобиля : ', auto.probeg:6:0); readln end. 

В стрке №3 - №8 представлена структура объявления типа записи.

В строке №3 (раздел описания новых типов данных, он начинается со служебного слова Type) записываем идентификатор (название, которое программист придумывает сам) записи, а после знака «=» служебное слово Record (от англ. «запись»). Заметьте, что после слова Record не ставится точка с запятой.
После слова Record идет список полей (компонентов), которые представляют собой разделы записи (строка №4 - №7). Все поля отделяются друг от друга точкой с запятой. Каждое поле состоит из идентификатора (названия) и описания  типа этого поля.

Строка №4. Первый компонент записи я назвал «marka». Он будет описывать марку автомобиля. После названия компонента, через двоеточие указывается тип компонента. В нашем примере компонент «marka» будет описываться с помощью какого- нибудь слова (vas, audi или bmw – без разницы), поэтому для этого раздела указываем строковый тип данных.

Строка №5. Компонент «color» будет описывать цвет автомобиля (красный, синий, белый и т.п.).

Строка №6. Компонент «god_vip» будет описывать год выпуска автомобиля. Так как данный компонент описывает числовую характеристику автомобиля (например, год выпуска 2011, 1981 и т.д.), то для него указываем тип данных Integer.

В строке №7 записываем компонент под названием «probeg». Он будет определять пробег автомобиля. Пробег автомобиля также описывается числовой характеристикой (например, 120000 км.), поэтому указываем для него тип данных Real (здесь мы не стали использовать тип данных Integer, поскольку для него максимальный диапазон допустимых значений не превышает 32767).

Строка №8. Слово End означает конец записи. Таким образом, мы видим, что комбинированный тип всегда начинается словом TYPE и заканчивается словом END. Вы можете заказать создание сайтов http://stfalcon.com/services/web-development по оптимальной и доступной цене.

Строка №9. Здесь идет раздел описания переменных. В нем мы объявляем переменную «auto» и указываем для нее тип записи «opisanie». Всегда, когда в программе используется тип Запись, необходима специальная переменная для него. С помощью этой переменной мы сможем обратиться к любому компоненту записи.

Строка №13. Выводим на экран сообщение «Введите марку автомобиля».

Строка №14. Вводим с клавиатуры марку автомобиля. Для этого после оператора ввода Readln в круглых скобках указываем имя переменной, ставим точку и затем указываем имя нужного компонента. В результате такой структуры компонент записи сам становится переменной, с которой можно производить все действия, характерные для обычных переменных. Таким же образом поступаем со всеми остальными компонентами (строка №15 - №20). После введения всех данных, выводим их на экран (строка №23 - №26). Заметьте, в строке №26 после auto.probeg необходимо указать параметры вывода на экран (выводить не более 6 цифр и 0 цифр после запятой).

После запуска программы на экране появятся сообщения: «Введите описание автомобиля» и «Введите марку автомобиля». Вводим марку автомобиля, например «ваз» и нажимаем Enter. Появляется сообщение «Введите цвет автомобиля». Вводим цвет, например, синий. Далее тем же способом вводим год выпуска и пробег. Нажимаем Enter, и на экран выводится общая характеристика автомобиля.

Предыдущая статья : Функция ReadKey.

Оглавление: Уроки Паскаль. Записи.

Следующая статья: Записи в Паскаль (продолжение).