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

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Пожалуйста введите слова с картинки:

2. И нажмите на эту кнопку.
закрыть



();

if(nx==))

{

Error(12);

return(NO);

}

Term();

if(nx==+)

{

AB();

}

else if(nx==-)

{

AB();

}

if(nx==NULL)

return(OK);

else if(nx!=* && nx!=/ && nx!=))

Error(1);

return(YES);

}

//

// Терм.

//

int Term(void)

{

#ifdef TEST

cprintf("Term - Проверка на Терм.\r\n");

#endif

fprintf(fl,"Term - Проверка на Терм.\n");

Operand();

if(nx==/)

{

Scan();

Term();

}

else if(nx==*)

{

Scan();

if(nx==*)

{

Scan();

Term();

}

else Term();

}

if(nx==NULL)

return(OK);

else if(nx!=+ && nx!=- && nx!=))

Error(2);

return(OK);

}

//

// Операнд.

//

int Operand(void)

{

#ifdef TEST

cprintf("Operand - Проверка на Операнд.\r\n");

#endif

fprintf(fl,"Operand - Проверка на Операнд.\n");

if(nx==()

{

AB();

if(nx!=))

Error(3);

else

{

Scan();

return(OK);

}

}

elseif(IDENT() == NO)

{

if(Float() == NO)

Error(4);

}

return(OK);

}

//

// Идентификатор.

//

int IDENT(void)

{

#ifdef TEST

cprintf("IDENT - Проверка на Идентификатор с символа %c.\r\n",nx);

#endif

fprintf(fl,"IDENT - Проверка на Идентификатор с символа %c.\n",nx);

if(isalpha(nx))

{

while(isalpha(nx) || isdigit(nx))

Scan();

return(YES);

}

return(NO);

}

//

// Ошибки.

//

void Error(int num)

{

char *E[]={

"Ожидается + или -.",

"Ожидается *,/ или **.",

"Ожидается ).",

"Ожидается идентификатор или целое без знака.",

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

"Не конец строки.",

"Ожидается (.",

"Метка - не целое без знака.",

"Отсутствуют метки.",

"Не найден оператор IF.",

"Отсутствует метка.",

"Отсутствует 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 для профессиональных программистов.

 

s