代码大全

while Done False

while ( (a = b) = True )

while not Done True False

Pascal

if ( ( eof ( InputFile ) and ( Not InputError ) ) and
( ( MIN_ACCEPTABLE_ELEMENTS_C CountElementsRead ) and

CountElementsRead = MAXELEMENTS C or

Not ErrorProcessing)

then

{ do something or other }

if
Pascal

Function FileReadError

var FILE InputFile;

Boolean InputError;

Integer CountElementsRead

): Boolean;

begin

if ( ( eof ( InputFile ) and ( Not InputError ) ) and

( ( MIN_ACCEPTABLE_ELEMENTS_C CountElementsRead and

( CountElementsRead = MAX_ ELEMENTS _C or

( Not ErrorPocessing )

then

FileReadError := False