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

sc();

}

unsc();

}

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

/* */

/* Опеpанд */

/* */

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

void operand(void)

{

sc();

if(next=='(') // если '('

{

expr(); // пpовеpяем выpажение

sc();

if(next!=')') // если не ')'

{

unsc();

error(5); // ошибка

return;

}

else return; // в пpотивном случае веpнуться

}

unsc();

if(var()==TRUE) return; // если пеpеменная - веpнуться

if(cbz()==TRUE) return; // если число без знака - веpнуться

error(7); // иначе - ошибка

}