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

}

ungetc(liter,in);

num--;

return(1);

}

else

{if(isalpha(liter))

{number=0;

while(isalnum(liter))

{number++;

num++;

liter=fgetc(in);

}

ungetc(liter,in);

num--;

return(2);

}

else switch(liter)

{case '+':num=0;return(3);

case '-':num=0;return(4);

case '/':num=0;return(5);

case '*':num=0;

if((liter=fgetc(in))=='*') return(7);

else

{ungetc(liter,in);

return(6);

}

case '(':return(8);

case ')':return(9);