27 lines
714 B
ObjectPascal
27 lines
714 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ToString, <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> writeln
|
|||
|
|
type
|
|||
|
|
SexType = (Male, Female);
|
|||
|
|
Person = record
|
|||
|
|
Name: string;
|
|||
|
|
Age, Weight: integer;
|
|||
|
|
Sex: SexType;
|
|||
|
|
constructor (Name: string; Age, Weight: integer; Sex: SexType);
|
|||
|
|
begin
|
|||
|
|
Self.Name := Name;
|
|||
|
|
Self.Age := Age;
|
|||
|
|
Self.Sex := Sex;
|
|||
|
|
Self.Weight := Weight;
|
|||
|
|
end;
|
|||
|
|
function ToString: string; override;
|
|||
|
|
begin
|
|||
|
|
Result := string.Format('<27><><EFBFBD>: {0} <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: {1} <20><><EFBFBD>: {2} <20><><EFBFBD>: {3}', Name, Age, Weight, Sex);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var p: Person := new Person('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',20,70,SexType.Male);
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
writeln(p);
|
|||
|
|
end.
|