n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/Students.pas

35 строк686 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

//���������� ����������
type 
  Student = class
    Name: string;
    Height: integer;
  public
    constructor(Name: string; Height: integer);
    begin
      Self.Name := Name;
      Self.Height := Height;
    end;
    class function operator<(left,right: Student): boolean;
    begin
      Result := left.Height < right.Height;
    end;
    function ToString: string;
    begin
      Result := string.Format('{0} ({1})', Name, Height);
    end;
  end;

var
  s1,s2: Student;

begin
  s1:=new Student('Stepa Morkovkin',188);
  s2:=new Student('Petya Pomidorov',180);
  Writeln(s1,s2);
  Writeln('s1<s2');
  //
  Writeln(s1<s2);
  //
  Writeln(Student.operator<(s1,s2));
  Readln;
end.