Циклы и массивы
Для того чтобы облегчить доступ к компонентам записи очень часто используют оператор присоединения With . . Do.
Использование оператора With . . Do.
- program zapisi4;
- uses crt;
- type opisanie=record
- marka: string[45];
- color: string[8];
- god_vip: integer;
- probeg: real;
- end;
- var auto: opisanie;
- begin
- clrscr;
- with auto do
- begin
- writeln ('Введите описание автомобиля ');
- writeln ('Введите марку автомобиля');
- readln (marka);
- writeln ('Введите цвет автомобиля');
- readln (color);
- writeln ('Введите год выпуска автомобиля');
- readln(god_vip);
- writeln ('Введите пробег автомобиля');
- readln(auto.probeg);
- writeln ('Все данные введены');
- writeln ;
- writeln (' Марка автомобиля: ', marka);
- writeln(' Цвет автомобиля: ', color);
- writeln(' Год выпуска автомобиля: ', god_vip);
- writeln(' Пробег автомобиля : ', probeg:6:0);
- end;
- readln
- end.
Возьмем в качестве примера код первой программы и вставим в него оператор With. . Do (строка №12). Записываем служебное With, далее указываем имя переменной, которая связана с типом Запись, затем служебное слово Do. После этого все операторы (строка №14 - №28) заключаем в операторные скобки Begin..End. Теперь для доступа к компоненту записи нам не нужно указывать имя переменной и имя компонента, достаточно указать лишь имя компонента.
Использование оператора присоединения With..Do зависит от предпочтения программиста. На выполнения самой программы он никак не влияет.
Предыдущая статья : Вложенные записи.
Оглавление : Уроки Паскаль. Записи.
Следующая статья : Использование массивов записей.
Популярные уроки
- Тип данных Boolean. Значения True, False в Pascal.
- Textcolor, Window, Textbackground в Pascal.
- Процедуры Dec и Inc в Pascal.
- Функции trunc, round в Pascal.
- Тип данных Char. Функции Ord, Chr.
- Функции Pred, Succ в Pascal.
- Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.
- Умножение, деление, сложение, вычитание вещественных чисел в Pascal.
- Логические операции с целыми числами.
- Строковые константы в Pascal.
Комментарии
В строке №22 Записано: readln(auto.probeg);
Нужно ведь записать в таком виде: readln(probeg);