Логические операции And, Or, Not, Xor в Pascal.

Над переменными логического типа можно производить логические операции. В языке программирования Pascal существуют следующие логические операции : Andлогическое умножение, Orлогическое сложение, Notлогическое отрицание, Xor ...

Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Мы уже знаем, какие существуют функции для целых переменных. Это – нахождение модуля числа (Функция Abc), а также возведение числа в квадрат (Функция Sqr). В этом уроке мы рассмотрим функции, применяемые к дробным числам. Это функции Sqr - квадрат ...

Циклы и массивы

Массивы. Регулярные типы.

В простых типах данных каждое данное имеет свое название (идентификатор). В этом разделе вводится структурная взаимосвязь между данными, хранимыми в оперативной памяти путем организации массива, ...

Индексы одномерного массива.

Существует класс задач, в которых индекс массива используется для формализации вычислительного процесса путем сведения исходных формул к конечным суммам и произведениям. Преобразованные таким образом ...

Для того чтобы облегчить доступ к компонентам записи очень часто используют оператор присоединения With .  . Do.

 Использование оператора With . . Do.


  1. program zapisi4;
  2. uses crt;
  3. type opisanie=record
  4. marka: string[45];
  5. color: string[8];
  6. god_vip: integer;
  7. probeg: real;
  8. end;
  9. var auto: opisanie;
  10. begin
  11. clrscr;
  12. with auto do
  13. begin
  14. writeln ('Введите описание автомобиля ');
  15. writeln ('Введите марку автомобиля');
  16. readln (marka);
  17. writeln ('Введите цвет автомобиля');
  18. readln (color);
  19. writeln ('Введите год выпуска автомобиля');
  20. readln(god_vip);
  21. writeln ('Введите пробег автомобиля');
  22. readln(auto.probeg);
  23. writeln ('Все данные введены');
  24. writeln ;
  25. writeln (' Марка автомобиля: ', marka);
  26. writeln(' Цвет автомобиля: ', color);
  27. writeln(' Год выпуска автомобиля: ', god_vip);
  28. writeln(' Пробег автомобиля : ', probeg:6:0);
  29. end;
  30. readln
  31. end.

Возьмем в качестве примера код первой программы и вставим в него оператор With. . Do (строка №12). Записываем служебное With, далее указываем имя переменной, которая связана с типом Запись, затем служебное слово Do. После этого все операторы (строка №14 - №28) заключаем в операторные скобки Begin..End. Теперь для доступа к компоненту записи нам не нужно указывать имя переменной и имя компонента, достаточно указать лишь имя компонента.

with do

with do.

Использование оператора присоединения With..Do зависит от предпочтения программиста. На выполнения самой программы он никак не влияет.


Предыдущая статья : Вложенные записи.

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

Следующая статья : Использование массивов записей.


Комментарии  

 
0 # Дима 30.11.2014 10:03
Теперь для доступа к компоненту записи нам не нужно указывать имя переменной и имя компонента, достаточно указать лишь имя компонента.

В строке №22 Записано: readln(auto.probeg);

Нужно ведь записать в таком виде: readln(probeg);
Ответить
 

Добавить комментарий

   ГлавнаяПаскальЗаписи в ПаскальОператор присоединения With . . Do.