end;
if
:
AllDataRead := eof(InputFile)and(Not InputError);
LegalElementCount := (MinAcceptableElmts<ElmtCount) and
(ElmtCount<=MaxElmts);
If(AllDataRead and LegalElementCount) then
begin
{ do something or other}
end;
if
Pascal,
C C C
typedef int BOOLEAN; / define the boolean type /
BOOLEAN int
11.6
Ada C Pascal
Ada :
type COLOR is
(
COLOR_INVALID
COLOR_RED
COLOR_GREEN
COLOR_BLUE
);
type COUNTRY is
(
COUNTRY_INVALID
COUNTRY_US
COUNTRY_ENGLAND
COUNTRY_FRANCE
COUNTRY_CHINA