/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/LanguageFeatures/AutoClassPoint.pas
13 строк
326 B
Mikhalkovich Stanislav
MoveOn -> MoveBy
16 ноя 2020, 20:04
16 ноя 2020, 20:04
562699d
Код
Авторство
О чём код?
type Point = auto class x,y: integer; procedure MoveBy(dx,dy: integer) := (x,y) := (x+dx,y+dy); function Distance(p: Point) := sqrt(sqr(x-p.x)+sqr(y-p.y)); class function operator implicit(t: (integer,integer)): Point := new Point(t[0],t[1]); end; begin var p: Point; p := (2,3); Println(p); end.