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

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

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

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

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



>void Print_File(void)

{

window(3,2,77,24);

textattr(31);

for(int i=0;i<22;i++)

{

cputs(file1[i]);

putch(\r);

}

}

//

// Меню.

//

void Menu(void)

{

gettext(1,1,80,25,bufer);// Вся информация с экрана заносится в буфер.

int y=1;// Счетчик строк.

gotoxy(1,1);

textattr(63);

clreol();

cputs(file1[0]);

textattr(31);

gotoxy(5,23);

cprintf(" %-2d ",y);

while(1)

{

switch (i_readkey())

{

case EASC_F1:

gettext(1,1,80,25,bufer);

Help();

puttext(1,1,80,25,bufer);

break;

case EASC_F2:

gettext(1,1,80,25,bufer);

Grammar();

puttext(1,1,80,25,bufer);

break;

case EASC_F3:

gettext(1,1,80,25,bufer);

Language();

puttext(1,1,80,25,bufer);

break;

case EASC_F4:

gettext(1,1,80,25,bufer);

Compile();

puttext(1,1,80,25,bufer);

window(48,2,78,23);

textattr(95);

clrscr();

Windows(49,3,79,24,"Message");

Message(y-1);

break;

case EASC_Esc:

window(1,1,80,25);

textattr(7);

clrscr();

fcloseall();

exit(1);

break;

case EASC_Up:

if(y>1)

{

if(com>0)

window(3,2,47,24);

else

window(3,2,77,24);

y--;

gotoxy(1,y);

textattr(63);

clreol();

cputs(file1[y-1]);

gotoxy(1,y+1);

textattr(31);

clreol();

cputs(file1[y]);

gotoxy(5,23);

cprintf(" %d ",y);

if(com>0)

Message(y-1);

}

break;

case EASC_Down:

if(y<22)

{

if(com>0)

window(3,2,47,24);

else

window(3,2,77,24);

gotoxy(1,++y);

textattr(63);

clreol();

cputs(file1[y-1]);

gotoxy(1,y-1);

textattr(31);

clreol();

cputs(file1[y-2]);

gotoxy(5,23);

cprintf(" %d ",y);

if(com>0)

Message(y-1);

}

break;

}

}

}

//

// Help.

//

void Help(void)

{

window(1,1,80,25);

textattr(78);

clrscr();

Windows(1,1,80,25,"Help");

window(4,3,77,23);

cprintf("НОВОСИБИРСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ

УНИВЕРСИТЕТ\n\n\r");

cprintf("КАФЕДРА АСУ\n\n\r");

cprintf("Курсовая работа по системному программированию на тему:\n\r");

cprintf(" \"Арифметический оператор условного перехода языка FORTRAN\".\n\n\r");

cprintf(" Студента группы А-513\n\n\r");

cprintf(" Бойко Константина Анатольевича.\n\n\r");

cprintf("В программе использованы клавиши:\n\r");

cprintf(" F1 - данный Help.\n\r");

cprintf(" F2 - грамматика языка.\n\r");

cprintf(" F3 - язык оператора.\n\r");

cprintf(" F4 - компиляция файла.\n\r");

cprintf(" ESC - выход из программы.\n\n\r");

cprintf(" Для выхода из Help нажмите любую клавишу.");

getch();

}

//

// Грамматика.

//

void Grammar(void)

{

window(10,2,70,23);

textattr(46);

clrscr();

Windows(10,2,70,23,"Grammar");

window(12,4,68,22);

cprintf(" 1. \n\r");

cprintf(" 2. \n\r");

cprintf(" 3. -T\n\r");

cprintf(" 4. T -> O | T*O | T/O | T**O\n\r");

cprintf(" 5. O -> (\n\r");

cprintf(" 6. Б{Б|Ц}\n\r");

cprintf(" 7. Ц{Ц}\n\r");

cprintf(" 8. Ц{Ц}[.Ц{Ц}]\n\n\r");

cprintf(" Условные обозначения:\n\r");

cprintf("T - терм.\n\r");

cprintf("O - операнд.\n\r");

cprintf("Б - буква.\n\r");

cprintf("Ц - цифра.\n\r");

cprintf("ЦБЗ- целое без знака.\n\r");

cprintf("ЧПЗ- число с плавающей запятой.\n\r");

cprintf("** - возведение в степень.\n\r");

cprintf(" - метка.\n\r");

cprintf("- арифметическое выражение.");

getch();

}

//

// Язык.

//

void Language(void)

{

window(20,7,60,17);

textattr(62);

clrscr();

Windows(20,7,60,17,"Language");

window(22,9,58,16);

cprintf("IF() LABEL1,LABEL2,LABEL3\n\n\r");

cprintf(" АВ - Арифметическое Выражение.\n\r");

cprintf(" LABEL1,LABEL2,LABEL3 - первая,вторая и третья метки соответственно.\n\r");

getch();

}

//

// Компиляция программы.

//

void Compile(void)

{

window(20,7,55,13);

textattr(94);

clrscr();

Windows(20,7,55,13,"Compile");

window(22,8,58,16);

gotoxy(1,1);

if(com!=0)

{

cprintf("\n\n Файл откомпилирован!");

Beep(900,1000);

return;

}

cputs("\nИдет компиляция файла.\r\n\nПожалуйста, подождите...");

#ifdef TEST

window(1,1,80,25);

clrscr();

#endif

for(int i=0;file1[i][0]!=NULL;i++)

{

Operator(file1[i]);

if(l!=3 && l!=0)

Error(11);

e1++;

e2=0;

}

com++;

delay(300);

Beep(1000,200);

}

//

// Оператор.

//

void Operator(char* str)

{

pos=2;

l=0;

string[0]=NULL;

strcpy(string,str);

string[strlen(string)-1]=NULL;

char temp[3];

temp[0]=str[0];

temp[1]=str[1];

temp[2]=NULL;

#ifdef TEST

puts(string);

puts(temp);

getch();

#endif

fprintf(fl," \n");

fprintf(fl,"%s\n",string);

if(strcmp(temp,"IF")!=0)

{

#ifdef TEST

printf("Не найден оператор IF.\n");

#endif

Error(10);

return;

}

Scan();

if(nx== )

Scan();

if(nx!=()

Error(7);

if(nx==NULL)

{

Error(12);

Error(9);

return;

}

AB();

while(nx!=) && nx!=NULL && nx!= )

Scan();

if(nx!=))

Error(3);

if(nx==NULL)

{

Error(9);

return;

}

Scan();

if(nx==NULL)

{

Error(9);

return;

}

if(nx== )

Scan();

Label();

if(nx!=,)

{

Error(5);

Scan();

}

else

Scan();

if(nx==NULL)

return;

Label();

if(nx!=,)

{

Error(5);

Scan();

}

else

Scan();

if(nx==NULL)

return;

Label();

if(nx!=NULL)

{

Error(6);

Scan();

}

return;

}

//

// Scan.

//

void Scan(void)

{

nx=string[pos++];

#ifdef TEST

printf("Текущий символ %c - %d.\n",nx,nx);

#endif

fprintf(fl,"Текущий символ %c - %d.\n",nx,nx);

}

//

// Метка.

//

void Label(void)

{

if(ABS() == NO)

{

Error(8);

Scan();

}

else

l++;

}

//

// Целое Без Знака.

//

int ABS(void)

{

#ifdef TEST

cprintf("ABS - проверка на Целое Без Знака с цифры %c.\r\n",nx);

#endif

fprintf(fl,"ABS - проверка на Целое Без Знака с цифры %c.\n",nx);

if(isdigit(nx))

{

while(isdigit(nx))

Scan();

return(YES);

}

return(NO);

}

//

// Арифметическое Выражение.

//

int AB(void)

{

#ifdef TEST

cprintf("AB - Проверка на Арифметическое Выражение.\r\n");

#endif

fprintf(fl,"AB - Проверка на Арифметическое Выражение.\n");

Scan

s