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

}

}

// НЕТЕРМИНАЛ "T" <Терм >

void term(void)

{operand();

while((next==DIV)||(next==MUL)||(next==STEP))

{next=scaner();

term();

}

}

void error(int choice)

{switch(choice)

{case 1:mistake[line][ofset++]=1; break;

case 2:mistake[line][ofset++]=2; break;

case 3:mistake[line][ofset++]=3; break;

case 4:mistake[line][ofset++]=4; break;

case 5:mistake[line][ofset++]=5; break;

case 6:mistake[line][ofset++]=6; break;

case 7:mistake[line][ofset++]=7; break;

case 8:mistake[line][ofset++]=8; break;

case 9:mistake[line][ofset++]=9; break;

case 10:mistake[line][ofset++]=10; break;

case 12:mistake[line][ofset++]=12; break;

case 11:mistake[line][ofset++]=11; break;

default:break;

}

}

void makefile(void)

{char *s;