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

int i=0;

while(isspace(string[i]) && string[i] != NULL)

i++;

for(;string[i] != NULL;i++)

{

if(islower(string[i]))

string[i]=toupper(string[i]);

str[j++]=string[i];

}

str[j]=NULL;

sprintf(string,"%s",str);

string[j-1]=NULL;

#ifdef TEST

textattr(30);

clreol();

cputs(string);

textattr(78);

cputs("\r\n");

#endif

}

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

// Реализация нетерминала <Арифметическое Выражение>.

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

int AB(void)

{

#ifdef TEST

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

#endif

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