/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/nested1.pas
48 строк
835 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
type Examinations = record algebra, calculus, programming : integer; procedure InitRan; end; procedure Examinations.InitRan; function RandomMark : integer; begin result := 10; end; begin algebra := RandomMark; calculus := RandomMark; programming := RandomMark; assert(algebra=10); assert(calculus=10); assert(programming=10); end; type CExaminations = class algebra, calculus, programming : integer; procedure InitRan; end; procedure CExaminations.InitRan; function RandomMark : integer; begin result := 10; end; begin algebra := RandomMark; calculus := RandomMark; programming := RandomMark; assert(algebra=10); assert(calculus=10); assert(programming=10); end; var rec : Examinations; cls : CExaminations; begin rec.InitRan; cls := new CExaminations; cls.InitRan; end.