Node:Card, Next:Cardinal, Previous:c, Up:Reference
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.