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

if(next==ERROR) error(7);

if((next==_EOF_)||(next==_EOLN_)) break;

next=scaner();

}//else

} //while

} //else

}//else

}//if

else mistake[line][ofset++]=13;

}

int scaner(void)

{int liter;

liter=fgetc(in);

num++;

if((isspace(liter))||(liter=='\t'))

{while((isspace(liter))||(liter=='\t'))

{if(liter=='\n') return(11);

liter=fgetc(in);

}

}

if(isdigit(liter))

{while(isdigit(liter))

{liter=fgetc(in);

num++;

}

if(liter=='.')

{liter=fgetc(in);

while(isdigit(liter))

{liter=fgetc(in);