Реализация языкового процессора оператора FOR языка BASIC
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферат по педагогике, теория государства и права шпаргалки
Добавил(а) на сайт: Лаврентий.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
*/
/* Опе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);
}
}
/**************************************************/
/*
Рекомендуем скачать другие рефераты по теме: курсовики скачать бесплатно, ответ ru.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата