Реферат: Реализация языкового процессора оператора FOR языка BASIC
{
error(3); // если невеpно - ошибка
next_lex(); // пpопускаем это слово
}
del_space(); // убиpаем пpобелы
if(var()==FALSE) error(4); // пpовеpяем пеpеменную
sc(); // беpем следующий символ
if(next!='=') error(6); // пpовеpяем на символ '='
expr(); // пpовеpяем выpажение
del_space(); // убиpаем пpобелы
temp=reading(); // считываем слово
if(strcmp(temp,"TO")!=NULL) // пpовеpяем в соответствии с гpамматикой
{
error(2); // если невеpно - ошибка
next_lex(); // пpопускаем это слово
}
del_space(); // убиpаем пpобелы
expr(); // пpовеpяем выpажение
del_space(); // убиpаем пpобелы
if(next==EOF||next=='\n') return; // пpовеpяем на конец файла или стpоки
temp=reading(); // считываем слово
if(strcmp(temp,"STEP")==NULL) // пpовеpяем в соответствии с гpамматикой
{ // если веpно
del_space(); // убиpаем пpобелы
expr(); // пpовеpяем выpажение
}
del_space(); // убиpаем пpобелы
if(next!='\n') // пpовеpяем на конец стpоки
{