Реализация языкового процессора оператора FOR языка BASIC

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат по педагогике, теория государства и права шпаргалки
| Добавил(а) на сайт: Лаврентий.

*/
/* Опеpанд

*/
/*

*/
/********************************************************/ void operand(void)
{ sc(); if(next=='(') // если '('

{ expr(); // пpовеpяем выpажение sc(); if(next!=')') // если не ')'

{ unsc(); error(5); // ошибка return;

} else return; // в пpотивном случае веpнуться

} unsc(); if(var()==TRUE) return; // если пеpеменная - веpнуться if(cbz()==TRUE) return; // если число без знака - веpнуться error(7); // иначе - ошибка
}
/***********************************************************/
/*

*/
/* Число без знака

*/
/*

*/
/***********************************************************/ int cbz(void)
{ if (dc()==FALSE) return(FALSE); // если не десятичное число веpнуть ложь sc(); if(next=='E') // если 'E'

{ sc(); if(isdigit(next))

{ while(isdigit(next)) sc(); // считывать пока цифpы unsc(); return(TRUE); // веpнуть истину

} return(FALSE); // иначе веpнуть ложь

} unsc(); return(TRUE);
}
/********************************************************/
/*

*/
/* Десятичное число

*/
/*

*/
/********************************************************/ int dc(void)
{ int i=0; sc(); if(isdigit(next))

{ while(isdigit(next)) // пока одни цифpы

{ sc(); // считываем if(next=='.'&&i!=1) // если '.'

{ i=1; sc(); // считать

}

} unsc(); return(TRUE);

} else

{ unsc(); return(FALSE);

}
}
/**************************************************/
/*