Реферат: Реализация языкового процессора оператора FOR языка BASIC

sc();

if(isdigit(next))

{

while(isdigit(next)) // пока одни цифpы

{

sc(); // считываем

if(next=='.'&&i!=1) // если '.'

{

i=1;

sc(); // считать

}

}

unsc();

return(TRUE);

}

else

{

unsc();

return(FALSE);

}

}

/**************************************************/

/* */

/* Функция обpаботки ошибок */

/* */

/**************************************************/

void error(int i)

{

num_err++; // увеличить счетчик ошибок