Функции trunc, round в Pascal.

Для того чтобы в Паскаль можно было оперировать не только целыми числами, но и дробными существуют вещественные типы данных. Один из таких типов называется Real. В этом уроке мы рассмотрим 2 функции, которые производятся над дробными числами. Это ...

GotoXY в Pascal.

Процедура GotoXY используется в Pascal для перевода курсора в нужную позицию на экране. Для этой процедуры указываются координаты. После указания процедуры GotoXY в коде программы сообщение будет выводиться на экран в тех координатах, которые мы ...

Ввод символов с клавиатуры.

Ввод символов с клавиатуры почти не отличается от ввода чисел с клавиатуры. Для того чтобы ввести какие-то символы (буквы, знаки и т.д.) с клавиатуры необходимо для переменных использовать символьный тип данных Char.

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

Поиск минимального и максимального элементов массива.

Одной из наиболее распространенных задач обработки массивов является поиск минимального (максимального) элемента.

Массив символов.

Одномерный массив символов по своим свойствам существенно отличается от всех остальных массивов языка Паскаль. Свойства одномерного массива символов приближены к свойствам коротких строк (String).

Для того чтобы облегчить доступ к компонентам записи очень часто используют оператор присоединения 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.