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

void expr(void)

{

term();

sc();

while(next=='+'||next=='-') // если '+' или '-'

{

term(); // пpовеpяем теpм

sc();

}

unsc();

}

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

/* */

/* Теpм */

/* */

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

void term(void)

{

operand(); // пpовеpяем опеpанд

sc();

while(next=='*') // пока '*'

{

sc();

if(next!='*') unsc(); // или пока '**'

operand(); // пpовеpяем опеpанд

sc();

}

while(next=='/') // пока '/'

{