Циклы и массивы
Иногда в разделе описания типов Type может присутствовать не один тип записи, а несколько. Например, один из компонентов записи, такой как «дата выпуска автомобиля» можно превратить в запись и указать для нее свои компоненты, например, год выпуска, месяц выпуска и день выпуска.
Использование нескольких типов записи в Паскале.
- program zapisi3;
- uses crt;
- type opisanie=record
- marka: string[45];
- color: string[8];
- probeg: real;
- end;
- data_vip=record
- god:integer;
- mes:byte;
- den:byte;
- end;
- var auto: opisanie;
- vipusk:data_vip;
- begin
- clrscr;
- writeln ('Введите описание автомобиля ');
- writeln ('Введите марку автомобиля');
- readln (auto.marka);
- writeln ('Введите цвет автомобиля');
- readln (auto.color);
- writeln ('Введите пробег автомобиля');
- readln(auto.probeg);
- writeln('Введите год, месяц и день выпуска ');
- writeln (‘Год’);
- readln(vipusk.god);
- writeln (‘Месяц’);
- readln(vipusk.mes);
- writeln (‘День’);
- readln(vipusk.den);
- writeln ('Все данные введены');
- writeln ;
- writeln (' Марка автомобиля: ', auto.marka);
- writeln(' Цвет автомобиля: ', auto.color);
- writeln(' Пробег автомобиля : ', auto.probeg:6:0);
- writeln(' Дата выпуска автомобиля: ', vipusk.god,' ' ,vipusk.mes,' ' ,vipusk.den);
- readln
- end.
Строка №3 - №7. Здесь указываем первый тип записи «opisanie».
Строка №8 - №12. Здесь указываем второй тип записи под названием «data_vip».
Соответственно для 2-х типов записи указываем 2 переменные. В строке №13 объявляем переменную «auto» и указываем для нее тип «opisanie». В строке №13 объявляем переменную «vipusk» и указываем для нее тип данных «data_vip».
Как и в предыдущих примерах, доступ к различным компонентам переменных осуществляется путем указания имени переменной и имени компонента.
Обратите внимание на строку №35. Здесь осуществляется вывод на экран значений 3-х переменных в одном операторе Writeln. Чтобы они не сливались друг с другом между ними ставится пробел.
Дополнение к материалу.
В данной статье приведено не совсем удачное название для урока. Здесь описываются не вложенные записи, а использование нескольких записей в одной программе. Если Вам необходимо увидеть как выглядят вложенные записи, можете обратиться к комментариям к этому уроку, это достаточно удобные штучки.
Предыдущая статья : Записи (продолжение).
Оглавление : Уроки Паскаль. Записи.
Следующая статья : Оператор присоединения With . . Do.
Популярные уроки
- Textcolor, Window, Textbackground в Pascal.
- Процедуры Dec и Inc в Pascal.
- Функции trunc, round в Pascal.
- Тип данных Boolean. Значения True, False в Pascal.
- Тип данных Char. Функции Ord, Chr.
- Функции Pred, Succ в Pascal.
- Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.
- Умножение, деление, сложение, вычитание вещественных чисел в Pascal.
- Логические операции с целыми числами.
- Строковые константы в Pascal.
Комментарии
А бывают ли записи действительно вложенными, как матрешка?
Фактически весь пример будет выглядеть так:
program zapisi3;
uses crt;
type data_vip=record
god:integer;
mes:byte;
den:byte;
end;
type opisanie=record
marka: string[45];
color: string[8];
probeg: real;
vipusk: data_vip;
end;
var auto: opisanie;
begin
clrscr;
writeln ('Введите описание автомобиля ');
writeln ('Введите марку автомобиля');
readln (auto.marka);
writeln ('Введите цвет автомобиля');
readln (auto.color);
writeln ('Введите пробег автомобиля');
readln(auto.probeg);
writeln('Введите год, месяц и день выпуска ');
writeln ('Год');
readln(auto.vipusk.god);
writeln ('Месяц');
readln(auto.vipusk.mes);
writeln ('День');
readln(auto.vipusk.den);
writeln ('Все данные введены');
writeln ;
writeln (' Марка автомобиля: ', auto.marka);
writeln(' Цвет автомобиля: ', auto.color);
writeln(' Пробег автомобиля : ', auto.probeg:6:0);
writeln(' Дата выпуска автомобиля: ', auto.vipusk.god ,' ' ,auto.vipusk.me s, ' ' ,auto.vipusk.den);
readln
end.
Забыл ты идентификатор.