Реферат: Синтаксический распознаватель арифметического оператора условного перехода языка FORTRAN

{

AB();

}

if(nx==NULL)

return(OK);

else if(nx!='*' && nx!='/' && nx!=')')

Error(1);

return(YES);

}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾

// Терм.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾

int Term(void)

{

#ifdef TEST

cprintf("Term - Проверка на Терм.\r\n");

#endif

fprintf(fl,"Term - Проверка на Терм.\n");

Operand();

if(nx=='/')

{

Scan();

Term();

}

else if(nx=='*')

{

Scan();

if(nx=='*')

{