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

fprintf(fl,"ABS - проверка на Целое Без Знака с цифры %c.\n",nx);

if(isdigit(nx))

{

while(isdigit(nx))

Scan();

return(YES);

}

return(NO);

}

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

// Арифметическое Выражение.

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

int AB(void)

{

#ifdef TEST

cprintf("AB - Проверка на Арифметическое Выражение.\r\n");

#endif

fprintf(fl,"AB - Проверка на Арифметическое Выражение.\n");

Scan();

if(nx==')')

{

Error(12);

return(NO);

}

Term();

if(nx=='+')

{

AB();

}