代码大全

Table Rate
TtlRate
Table

Rae := Table Census.Age Census.Sex ;
TtlRate := TtlRate Rate ;
Census.Age Census.Sex
Census

Person

for Person := FirstPerson to LasttPerson do
begin
Rate := Table[Census.Age,Census.Sex] ;
TtlRate := TtlRate + Rate ;
End;

begin end
Census Person Person

for Person := FirstPerson to LastPerson do
begin
Rate := Table[Census[Person].Age,Census[Person].Sex] ;
TtlRate := TtlRate + Rate ;
End;
TtlRae

TtlRate := 0
for Person := FirstPerson to LastPerson do
begin
Rate := Table[Census[Person].Age,Census[Person].Sex] ;
TtlRate TtlRate + Rate ;
end;
Person