Синтаксический распознаватель арифметического оператора условного перехода языка FORTRAN (стр. 4 из 4)

"Отсутствует AB.",

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," ¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾\n");

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. Курс лекций по системному программированию.

2. Герберт Шилдт «C для профессиональных программистов».