Викиучебник

Компонентный Паскаль/Введение в записи: различия между версиями

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Содержимое удалено Содержимое добавлено
ВизуальныйВики-текст
Строка 48:
VAR
r: RECORD
CoordXcoord_x, CoordYcoord_y: INTEGER;
Enabledenabled: BOOLEAN;
Colorcolor: ARRAY 5 OF INTEGER
END;
 
Строка 57:
i: INTEGER;
BEGIN
r.CoordXcoord_x := 5;
r.CoordYcoord_y := 4;
Log.Int(r.CoordXcoord_x); Log.String(', ');
Log.Int(r.CoordXcoord_y); Log.Ln;
r.Colorcolor[0] := 4;
r.Colorcolor[4] := - 10;
FOR i := 0 TO 4 DO
Log.Int(r.Colorcolor[i]); Log.String(', ')
END;
Log.Ln
END Start;
 
 
BEGIN
END TestHello07.
</source>
В этом примере присваиваются значения полям "coord_x" и "coord_y". В массиве "color" элементам с номерами 0 и 4 также присваиваются значения. Если всё сделано правильно, то будет получен такой вывод:
<source lang="dos">
компилируется "TestHello07" 156 32
старый модуль TestHello07 выгружен
5, 4
4, 0, 0, 0, -10,
</source>
Источник — https://ru.wikibooks.org/wiki/Компонентный_Паскаль/Введение_в_записи