[ < ] | [ > ] | [ << ] | [ Up ] | [ >> ] | [Top] | [Contents] | [Index] | [ ? ] |
function Card (S: any set): Integer; |
The function `Card (S)' returns the number of elements in the set `S'.
`Card' is an ISO 10206 Extended Pascal extension.
program CardDemo; var Foo: set of 1 .. 100; begin Foo := [1, 2, 3, 5, 1, 1, 1, 2, 2, 2, 3, 3, 5, 5]; { four elements } WriteLn ('foo consists of ', Card (Foo), ' elements') end. |
section 9.244 set