Основы программирования на языке Turbo Pascal. Беляева И.В. - 193 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

193
Пример:
Var
P1,p2:TPoint2D; {переменные типа TPoint2D}
X,y:TPoint; {переменные типа TPoint}
L1,L2:TLine; {переменные типа TLine}
C1,C2:TCircle; {переменные типа TCircle}
A:array[1..10] of TLine; {массив из 10 линий}
F: File of TCircle; {типизированный файл окружностей}
Использование переменных типа запись очень похоже на
использование массивов. Как и массивы, записи нельзя целиком вводить с
клавиатуры и выводить на экран – ввод и вывод осуществляется
поэлементно (по полям):
Пример: Ввод/вывод массива целых чисел и ввод/вывод записи TPoint.
Var Var
A:Array[1..10] of integer; L:TPoint;
N,i:Byte;
Begin Begin
{ввод массива} {ввод записи}
Read(N); Read(L.X); {ввод поля X}
For i:=1 to N do Read(L.Y); {ввод поля Y}
Read(a[i]);
{вывод массива} {вывод записи}
For i:=1 to N do Write(L.X,’ ‘);{вывод поля X}
Write(a[i],’ ‘); Write(L.Y,’ ‘);{вывод поля Y}
End. End.
Как видно из этого примера, для обращения к полю записи надо
сначала указать имя записи, а затем, через точку, имя поля. Здесь тоже
есть сходство с массивами – для того чтобы обратиться к элементу
массива, сначала указывается имя массива, затем, в квадратных скобках,
индекс элемента.

Страницы