ВУЗ:
Составители:
Рубрика:
58
TYPE Pupil
fio AS STRING * 20
age AS INTEGER
sex AS STRING * 6
class AS INTEGER
classname AS STRING * 1
END TYPE
Определив собственный тип данных, вы можете использовать его
для объявления переменных этого типа.
DIM Schoolchildrens AS Pupil
DIM Group(1 TO 25) AS Pupil
Доступ к компонентам (свойствам) переменной пользовательского
типа осуществляется путем указания точки после имени переменной.
Schoolchildrens.fio = "Иванов Иван"
Schoolchildrens.age = 15
Schoolchildrens.sex = "male"
Schoolchildrens.class = 10
Schoolchildrens.classname = "А"
PRINT Schoolchildrens.fio, Schoolchildrens.age, Schoolchildrens.sex, School-
childrens.class, Schoolchildrens.classname
Пример простой программы:
REM использование комбинированных типов
REM описание типа ученик
TYPE Pupil
fio AS STRING * 20
age AS INTEGER
sex AS STRING * 6
class AS INTEGER
classname AS STRING * 1
END TYPE
REM объявление массива из 3 элементов типа ученик
DIM Group(1 TO 3) AS Pupil
Group(1).fio = "Иванов Иван"
Group(1).age = 15
Group(1).sex = "male"
Group(1).class = 10
Group(1).classname = "А"
Group(2).fio = "Петрова Маша"
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
TYPE Pupil fio AS STRING * 20 age AS INTEGER sex AS STRING * 6 class AS INTEGER classname AS STRING * 1 END TYPE Определив собственный тип данных, вы можете использовать его для объявления переменных этого типа. DIM Schoolchildrens AS Pupil DIM Group(1 TO 25) AS Pupil Доступ к компонентам (свойствам) переменной пользовательского типа осуществляется путем указания точки после имени переменной. Schoolchildrens.fio = "Иванов Иван" Schoolchildrens.age = 15 Schoolchildrens.sex = "male" Schoolchildrens.class = 10 Schoolchildrens.classname = "А" PRINT Schoolchildrens.fio, Schoolchildrens.age, Schoolchildrens.sex, School- childrens.class, Schoolchildrens.classname Пример простой программы: REM использование комбинированных типов REM описание типа ученик TYPE Pupil fio AS STRING * 20 age AS INTEGER sex AS STRING * 6 class AS INTEGER classname AS STRING * 1 END TYPE REM объявление массива из 3 элементов типа ученик DIM Group(1 TO 3) AS Pupil Group(1).fio = "Иванов Иван" Group(1).age = 15 Group(1).sex = "male" Group(1).class = 10 Group(1).classname = "А" Group(2).fio = "Петрова Маша" 58 PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com