/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/question3.pas
44 строки
592 B
Бондарев Иван
bug fix #647
30 янв 2018, 22:39
30 янв 2018, 22:39
d200e3d
Код
Авторство
О чём код?
var i: integer; type I1 = interface procedure p1; end; R1 = record(I1) public procedure p1; begin Inc(i); end; public constructor; begin end; end; R2 = record(I1) public next1: I1; public next2: I1; public procedure p1; begin next1.p1; next2.p1; end; public constructor(b:boolean); begin next1 := b? I1(new R2(false)) : I1(new R1); next2 := b? I1(new R2(false)) : I1(new R1); end; end; begin var a := new R2(true); a.p1; assert(i = 4); end.