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

/* */

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

/* */

/***********************************************************/

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)

{