/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/LanguageFeatures/Pattern Matching/Squares.pas
22 строки
484 B
miks1965
Примеры на Pattern Matching
24 май 2018, 08:03
24 май 2018, 08:03
b472026
Код
Авторство
О чём код?
type Line = class end; Rectangle = auto class X,Y,Width,Height: real; end; Circle = auto class X,Y,Radius: real; end; begin var l := new List<Object>; l.Add(new Line); l.Add(new Circle(10,10,5)); l.Add(new Rectangle(10,10,20,10)); foreach var x in l do match x with Line(var ll): Println('Line S =',0); Circle(var c): Println('Circle S =',c.Radius*c.Radius*Pi); Rectangle(var r): Println('Rectangle S =',r.Width*r.Height); end; end.