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

else if(nx=='*')

{

Scan();

if(nx=='*')

{

Scan();

T();

}

else T();

}

if(nx==NULL)

return(OK);

else if(nx!='+' && nx!='-' && nx!=')')

Error(2);

return(OK);

}

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

// Реализация нетерминала <Операнд>.

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

int O(void)

{

#ifdef TEST

cprintf("O - Проверка на Операнд.\r\n");

#endif

fprintf(errors,"O - Проверка на Операнд.\n");

if(nx=='(')

{

AB();

if(nx!=')')