Реферат: Оператор присваивания языка FORTRAN

if(next!=SKR) error(6);

else next=scaner();

}

else

{if(next==ID){identif();next=scaner();}

else

{if(next!=CBZ)

{if((next!=_EOLN_)&&(next!=_EOF_))

{if(next==ERROR)

{error(7);

next=scaner();

operand();

}

else

{if(next==RAV) error(7);

else error(8);

}

}

else error(8);

}

else next=scaner();

}//else

}//else

}

// НЕТEРМИНАЛ "Е" <Выражение >

void expr(void)

{term();

while((next==PLUS)||(next==MIN))

{next=scaner();