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

T();

if(nx=='+')

{

AB();

}

else if(nx=='-')

{

AB();

}

if(nx==NULL)

return(OK);

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

Error(1);

return(YES);

}

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

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

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

int T(void)

{

#ifdef TEST

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

#endif

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

O();

if(nx=='/')

{

Scan();

T();