48 lines
835 B
ObjectPascal
48 lines
835 B
ObjectPascal
|
type Examinations = record
|
||
|
|
algebra, calculus, programming : integer;
|
||
|
|
|
||
|
|
procedure InitRan;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Examinations.InitRan;
|
||
|
|
function RandomMark : integer;
|
||
|
|
begin
|
||
|
|
result := 10;
|
||
|
|
end;
|
||
|
|
begin
|
||
|
|
algebra := RandomMark;
|
||
|
|
calculus := RandomMark;
|
||
|
|
programming := RandomMark;
|
||
|
|
assert(algebra=10);
|
||
|
|
assert(calculus=10);
|
||
|
|
assert(programming=10);
|
||
|
|
end;
|
||
|
|
|
||
|
|
type CExaminations = class
|
||
|
|
algebra, calculus, programming : integer;
|
||
|
|
|
||
|
|
procedure InitRan;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure CExaminations.InitRan;
|
||
|
|
function RandomMark : integer;
|
||
|
|
begin
|
||
|
|
result := 10;
|
||
|
|
end;
|
||
|
|
begin
|
||
|
|
algebra := RandomMark;
|
||
|
|
calculus := RandomMark;
|
||
|
|
programming := RandomMark;
|
||
|
|
assert(algebra=10);
|
||
|
|
assert(calculus=10);
|
||
|
|
assert(programming=10);
|
||
|
|
end;
|
||
|
|
|
||
|
|
var rec : Examinations;
|
||
|
|
cls : CExaminations;
|
||
|
|
|
||
|
|
begin
|
||
|
|
rec.InitRan;
|
||
|
|
cls := new CExaminations;
|
||
|
|
cls.InitRan;
|
||
|
|
end.
|