(isalpha (nx))
{
while (isalpha (nx) | | isdigit (nx))
Scan ();
return (YES);
}
return (NO);
}
// Помилки.
void Error (int num)
{
char * E [] = {
"Очікується '+' або '-'. ",
"Очікується '*', '/' Або '**'. ", p> "Очікується ). ", p> "Очікується ідентифікатор або ціле без знака. ",
"Відсутня ','. ", p> "Не кінець рядка. ",
"Очікується (. ", p> "Позначка - не ціле без знака. ",
"Відсутні мітки. ",
"Не знайдено оператор IF. ",
"Відсутня мітка. ",
"Відсутня AB. ", p> NULL
};
sprintf (mes [e1] [e2], "% s", E [num-1]);
e2 + +;
# ifdef TEST
Beep (1000,100);
cprintf ("Помилка:% s r n", E [num-1]);
getch ();
# endif
fprintf (fl, "
fprintf (fl, "Помилка: % S r n ", E [num-1]);
}
// Float.
int Float (void)
{
# ifdef TEST
cprintf ("FLOAT - перевірка на число з плаваючою комою з цифри% c. r n ", nx);
# endif
fprintf (fl, "FLOAT - перевірка на число з плаваючою комою з цифри% c. n ", nx);
if (isdigit (nx))
{
while (isdigit (nx))
Scan ();
if (nx == '.')
{
Scan ();
while (isdigit (nx))
Scan ();
}
return (YES);
}
return (NO);
}
// Message.
void Message (int x)
{
window (50,3,76,22);
textattr (95);
clrscr ();
gotoxy (1,1);
for (int i = 0; mes [x] [i] [0]! = NULL; i + +)
cprintf ("% s r n", mes [x] [i]);
}
Література.
1. Курс лекцій з системного програмування. p> 2. Герберт Шилдт В«C для професійних програмістів В».
