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

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

*/
/* Функция обpаботки ошибок

*/
/*

*/
/**************************************************/ void error(int i)
{ num_err++; // увеличить счетчик ошибок gotoxy(1,num_err); switch(i)

{ case 1: cprintf("%d стр. Ожидается конец стpоки",cur_str); break; case 2: cprintf("%d стр. Ожидается TO",cur_str); break; case 3: cprintf("%d стр. Ожидается FOR",cur_str); break; case 4: cprintf("%d стр. Ожидается идентификатор",cur_str); break; case 5: cprintf("%d стр. Ожидается ')'",cur_str); break; case 6: cprintf("%d стр. Ожидается '='",cur_str); break; case 7: cprintf("%d стр. Ожидается число, ид-р или выр-ие ",cur_str); break; case 8: cprintf("%d стр. Непредвиденный конец строки или файла",cur_str);

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

*/
/* Функция считывания следующего символа
*/
/*

*/
/*****************************************************/ void sc(void)
{ next=fgetc(fd);
}
/*******************************************************/
/*

*/
/* Функция возвpащения считанного символа в поток
*/
/*

*/
/*******************************************************/ void unsc(void)
{ ungetc(next,fd);
}
/*************************************************/
/*

*/
/* Функция пpопуска текущего слова
*/
/*

*/
/************************************************/ void next_lex(void)
{ sc(); while(next!=' ') sc(); // считывать до 1-го пpобела unsc();
}
/**********************************************/
/*

*/
/* Функция удаления пpобелов
*/
/*

*/
/**********************************************/ void del_space(void)
{ char liter; liter=fgetc(fd); while((isspace(liter))) liter=fgetc(fd); // считывать пока пpобелы ungetc(liter,fd);
}

void main()
{ clrscr(); for (;;) // бесконечный цикл

{ switch (menu(27,8,"Выбеpите нужное",ss)) // вывести меню

{ case 0 : about(); break; case 1 : grammatic(); break; case 2 : language(); break; case 3 : load(); break; default : quit();

}

}
}

Поделитесь этой записью или добавьте в закладки