/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/LanguageFeatures/Students.pas
22 строки
700 B
miks1965
Обновление примеров и bug fix #132
13 апр 2016, 11:08
13 апр 2016, 11:08
560122e
Код
Авторство
О чём код?
// Перегрузка операторов type Student = auto class Name: string; Height: integer; public // Сравнение по росту class function operator<(left,right: Student): boolean := left.Height < right.Height; class function operator>(left,right: Student): boolean := left.Height > right.Height; function ToString: string; override := string.Format('{0} ({1})', Name, Height); end; begin var s1 := new Student('Stepa Morkovkin',188); var s2 := new Student('Petya Pomidorov',180); Writeln('s1: ',s1); Writeln('s2: ',s2); Writeln; Writeln('s1<s2: ',s1<s2); // Writeln('Student.operator>(s1,s2): ',Student.operator>(s1,s2)); end.