Реферат: Синтаксический распознаватель оператора условного перехода языка FORTRAN - текст реферата. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Реферат

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

Банк рефератов / Компьютерные сети

Рубрики  Рубрики реферат банка

закрыть
Категория: Реферат
Язык реферата: Русский
Дата добавления:   
 
Скачать
Microsoft Word, 86 kb, скачать бесплатно
Обойти Антиплагиат
Повысьте уникальность файла до 80-100% здесь.
Промокод referatbank - cкидка 20%!

Узнайте стоимость написания уникальной работы

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

 

Язык оператора

Язык оператора присваивания FORTRAN

Идентификатор = арифметическое выражение Арифметическое выражение – выражение, содержащее в себе операции *, /, -, +, **, а также () .

** – возведение в степень.

Грамматика языка

G[<ОПЕРАТОР>]:

  1. <ОПЕРАТОР> ® <ИДЕНТИФИКАТОР> = <ВЫРАЖЕНИЕ>

  2. <ВЫРАЖЕНИЕ> ® Тз <ВЫРАЖЕНИЕ>+Т з <ВЫРАЖЕНИЕ>- Т

  3. Т ® О з Т* О з Т/О к Т* * О

  4. О ® (<ВЫРАЖЕНИЕ>) з <ИДЕНТИФИКАТОР> з <ДБЗ>

  5. <ИДЕНТИФИКАТОР> ® Б{Б з Ц}[L ]

  6. <ДБЗ> ® Ц{Ц}[. Ц{Ц}][L ]

Т

ТЕРМ

О

ОПЕРАНД

Б

БУКВА

Ц

ЦИФРА

ДБЗ

ДРОБНОЕ БЕЗ ЗНАКА

L

КОНЕЦ СТРОКИ (пусто)

**

ВОЗВЕДЕНИЕ В СТЕПЕНЬ

 

  Классификация грамматики

Данная грамматика G[<ОПЕРАТОР>], согласно классификации Хомского, является контекстно-свободной, так как правая часть каждой редукции начинается либо с терминального символа, либо с нетерминального, принадлежащего объединённому словарю.

A ® a, AО V n , aО V*.

Грамматика G[<ОПЕРАТОР>] не является автоматной, так как не все её редукции начинаются с терминального символа. По этой же причине данная грамматика не является S - грамматикой.

Метод анализа

Для данной грамматики реализован разбор методом рекурсивного спуска, поскольку она относится к классу контекстно-свободных.

Идея метода состоит в том, что каждому нетерминальному символу ставится в соответствие определённая программная единица (функция) , которая распознаёт цепочку, порождаемую этим нетерминалом.

Эти процедуры и функции вызываются в соответствии с правилами грамматики и иногда вызывают сами себя.

Данный метод реализован на языке C++, поскольку он обладает рекурсивными возможностями.

 

  Диагностика и нейтрализация ошибок

Для данной грамматики производится только диагностика и нейтрализация ошибок. Исправление ошибок не производится.

Нейтрализация ошибок осуществляется по методу Айронса, то есть, спускаясь по синтаксическому дереву без возврата по контексту, при обнаружении тупиковой ситуации отбрасываются те литеры (символы) , которые привели в тупиковую ситуацию и разбор продолжается.

Тестирование

12=1 Имя идентификатора должно начинаться с буквы.

\---------------------------------------------------------\ s223=(s) +(((d) ) ) ОШИБОК НЕТ!!!!!

\---------------------------------------------------------\ sdsds=skshj**mxnx dc Пропущена операция или неправильное имя идентификатора.

\---------------------------------------------------------\ ;;=0 Имя идентификатора должно начинаться с буквы.

Идентификатор состоит только из букв или цифр.

\---------------------------------------------------------\ as=115/3 ОШИБОК НЕТ!!!!!

\---------------------------------------------------------\ 32=-*= Имя идентификатора должно начинаться с буквы.

Пропущен идентификатор или число.

Пропущен идентификатор или число.

Неизвестная операция или неправильное имя идентификатора.

Пропущен идентификатор или число.

\---------------------------------------------------------\ sdvsf+gsdf=0 Слевa от '='операций быть не может.

\---------------------------------------------------------\ jhg=321+321/54*4(s+25) Пропущена операция или неправильное имя идентификатора.

\---------------------------------------------------------\ d56gfsdfg=(ld+5 Длина имени идентификатора не должна быть больше 6.

Отсутствует ') '.

\---------------------------------------------------------\ Листинг программы.

// SP_KURS. CPP: КУРСОВАЯ РАБОТА ПО СИСТЕМНОМУ ПРОГРАММИРОВАНИЮ.// // ОПЕРАТОР ПРИСВАИВАНИЯ ЯЗЫКА "ФОРТРАН" // // имя файла test

#include #include #include #include #include #include #include #defineUP 72/* стрелка вверх */ #define DOWN80/* стрелка вниз */ #defineEXIT'\33'/* Esc */ #define END 100

enum LEX{ERROR, CBZ, ID, PLUS, MIN, DIV, MUL, STEP, SKL, SKR, RAV, _EOLN_, _EOF_}; int next, number=0, num=0, temp, line=1, err[80], sum; int mistake[15][80], ofset=0; char cordinat[80][80], filename[80]; char* type_mis[]={"ОШИБОК НЕТ!!!!! ", "Имя идентификатора должно начинаться с буквы. ", "Идентификатор состоит только из букв или цифр. ", "Слевa от '='операций быть не может. ", "Неизвестная конструкция (нет '=') . ", "Длина имени идентификатора не должна быть больше 6. ", "Отсутствует ') '. ", "Неизвестная операция или неправильное имя идентификатора. ", "Пропущен идентификатор или число. ", "Отсутствует '('. ", "Пропущена операция или неправильное имя идентификатора. ", "Отсутствует выражение (А=?) . ", "Отсутствует идентификатор(? =B) . ", " ", }; const int X1=2, Y1=20, X2=80, Y2=25; const int YWINDOW=Y2-Y1+1; void viewwin(int, int) ; void putmistake(int) ; intMENU(char *) ; void identif() ; void ravno() ; void expr(void) ; void term(void) ; void operand(void) ; int scaner(void) ; void error(int) ; void makefile(void) ; FILE *in, *out;  

void main(void)

{strcpy(cordinat[0], "\n") ; mistake[0][0]=13;mistake[0][1]=END; clrscr() ; printf("Введите имя обрабатываемого файла: ") ; gets(filename) ; if((in=fopen(filename, "r") ) ==NULL) {printf("\n ОШИБКА!!! ФАЙЛ С ТАКИМ ИМЕНЕМ НЕ СУЩЕСТВУЕТ!!! ") ; exit(-1) ; } while(! feof(in) ) {ravno() ; mistake[line][ofset]=END; line++; ofset=0; } fcloseall() ; makefile() ; num=0; window(1,1,80,25) ; clrscr() ; gotoxy(1,1) ; MENU(" ОПЕРАТОР ПРИСВАИВАНИЯ ЯЗЫКА /""ФОРТРАН/""\n") ; clrscr() ; window(1,1,80,25) ; clrscr() ; printf("\n\n\n\n\n\n\n\n\n\n ВСЕ ОШИБКИ ХРАНЯТЬСЯ В ФАЙЛЕ /""ERRORS. TXT/""!!!!! ") ; printf("\n\n\n\n\n\n\n\n\n\n НАЖМИТЕ ЛЮБУЮ КЛАВИШУ!!!!!! ") ; fcloseall() ; exit(1) ; }

void ravno()

{temp=0; num=0; sum=0; next=scaner() ; if((next! =_EOLN_) &&(next! =_EOF_) ) {if(next==RAV) {error(12) ; err[0]=END; } else identif() ; if(next! =RAV) error(4) ; else {temp=1; if(err[0]! =END) {if(err[0]! =ID) error(1) ; for(int i=1;i

int scaner(void)

{int liter; liter=fgetc(in) ; num++; if((isspace(liter) ) ||(liter=='\t') ) {while((isspace(liter) ) ||(liter=='\t') ) {if(liter=='\n') return(11) ; liter=fgetc(in) ; } } if(isdigit(liter) ) {while(isdigit(liter) ) {liter=fgetc(in) ; num++; } if(liter=='. ') {liter=fgetc(in) ; while(isdigit(liter) ) {liter=fgetc(in) ; num++; } ungetc(liter, in) ; num--; return(1) ; } else {if(isalpha(liter) ) {number=0; while(isalnum(liter) ) {number++; num++; liter=fgetc(in) ; } ungetc(liter, in) ; num--; return(2) ; } else switch(liter) {case '+': num=0;return(3) ; case '-': num=0;return(4) ; case '/': num=0;return(5) ; case '*': num=0; if((liter=fgetc(in) ) =='*') return(7) ; else {ungetc(liter, in) ; return(6) ; } case '(': return(8) ; case ') ': return(9) ; case '=': return(10) ; case '\n': return(11) ; case EOF: return(12) ; default: return(0) ; } }//else }

// РАСПОЗНАЕТ ОШИБКИ В ИДЕНТИФИКАТОРЕ.

void identif(void)

{if(temp==0) {while((next! =RAV) &&(next! =_EOLN_) &&(next! =_EOF_) ) {err[sum]=next; sum++; next=scaner() ; } } if(temp==1) {if((next! =CBZ) &&(next! =ID) ) {if(next==ERROR) error(2) ; else error(3) ; } number=num-1; num=0; } if(number>6) error(5) ; }

// НЕТЕРМИНАЛ "O" <Операнд> void operand()

{if(next==SKL) {next=scaner() ; expr() ; if(next! =SKR) error(6) ; else next=scaner() ; } else {if(next==ID) {identif() ;next=scaner() ;} else {if(next! =CBZ) {if((next! =_EOLN_) &&(next! =_EOF_) ) {if(next==ERROR) {error(7) ; next=scaner() ; operand() ; } else {if(next==RAV) error(7) ; else error(8) ; } } else error(8) ; } else next=scaner() ; }//else }//else }

// НЕТEРМИНАЛ "Е" <Выражение> void expr(void)

{term() ; while((next==PLUS) ||(next==MIN) ) {next=scaner() ; expr() ; } }

// НЕТЕРМИНАЛ "T" <Терм> void term(void)

{operand() ; while((next==DIV) ||(next==MUL) ||(next==STEP) ) {next=scaner() ; term() ; } }

void error(int choice)

{switch(choice) {case 1: mistake[line][ofset++]=1; break; case 2: mistake[line][ofset++]=2; break; case 3: mistake[line][ofset++]=3; break; case 4: mistake[line][ofset++]=4; break; case 5: mistake[line][ofset++]=5; break; case 6: mistake[line][ofset++]=6; break; case 7: mistake[line][ofset++]=7; break; case 8: mistake[line][ofset++]=8; break; case 9: mistake[line][ofset++]=9; break; case 10: mistake[line][ofset++]=10; break; case 12: mistake[line][ofset++]=12; break; case 11: mistake[line][ofset++]=11; break; default: break; } }  

void makefile(void)

{char *s; int num_str=0, oftemp, rep; if((out=fopen("errors. txt", "w") ) ==NULL) {printf("\n ОШИБКА!!! ФАЙЛ С ТАКИМ ИМЕНЕМ НЕ СУЩЕСТВУЕТ!!! ") ; exit(-1) ; } if((in=fopen(filename, "r") ) ==NULL) {printf("\n ОШИБКА!!! ФАЙЛ НЕЛЬЗЯ ОТКРЫТЬ ДЛЯ ЗАПИСИ!!! ") ; exit(-1) ; } while(num_str++, fgets(s, 80, in) ! =NULL) {fputs("\\---------------------------------------------------------\\", out) ; fputc('\n', out) ; fputs(s, out) ; fputc('\n', out) ; rep=strlen(s) ; s[rep-1]='\0'; strcpy(cordinat[num_str], s) ; if((oftemp=mistake[num_str][0]) ==END) {fputs(type_mis[0], out) ; fputc('\n', out) ; } else {for(int k=0;mistake[num_str][k]! =END;k++) {oftemp=mistake[num_str][k]; fputs(type_mis[oftemp], out) ; fputc('\n', out) ; } } } fputs("\\---------------------------------------------------------\\", out) ; fputc('\n', out) ; fcloseall() ; }

// MENU intMENU(char *s)

{intdy, n; dy=line-1; textbackground(WHITE) ; textcolor(YELLOW) ; window(1,1,80,25) ; clrscr() ; gotoxy(2,1) ; cprintf(" SDenis\n ") ; gotoxy(2,2) ; cputs(s) ; gotoxy(2,3) ; cprintf("Используйте курсор вверх/вниз для выбора просматриваемой строки. \n") ; gotoxy(2,4) ; cprintf(" - для просмотра ошибок в строке(строка выделяется) . \n") ; gotoxy(2,5) ; cprintf(" - выход. \n") ; gotoxy(2,6) ; textbackground(WHITE) ; textcolor(RED) ; cprintf("******************** ОШИБКИ В СТРОКАХ *************************\n") ; textbackground(WHITE) ; textcolor(YELLOW) ; gotoxy(2,19) ; cprintf("******************* СТРОКИ ВАШЕГО ФАЙЛА ****************************\n") ; window(X1, Y1, X2, Y2) ; textcolor(BLACK) ; viewwin(0, YWINDOW) ; n = 0; int Y=1; while(1) {char c; gotoxy(1, Y) ; textbackground(GREEN) ; cprintf("%s", cordinat[n]) ; textbackground(WHITE) ; c=(c=getch() ) ==0? c=getch() : c; gotoxy(1, Y) ; cprintf("%s", cordinat[n]) ; switch (c) {caseEXIT: return(-1) ; case'\r': /*enter*/ window(2,7,80,18) ; clrscr() ; putmistake(n) ; window(X1, Y1, X2, Y2) ; break; caseUP: if (Y==1) viewwin(n>0? n-1: n, YWINDOW) ; else Y--; if(n>0) n--; break; caseDOWN: if(Y==YWINDOW) viewwin((n==dy? n: n+1) -YWINDOW+1, YWINDOW) ; else Y++; if(n+1==dy) {n=0; Y=1; viewwin(n, YWINDOW) ; } else n++; break; } } }

void viewwin(int num, int numline)

{clrscr() ; for(int a=0;a

void putmistake(int n)

{int offtemp, x=1, y=1; if((offtemp=mistake[n][0]) ==END) {cprintf("%s", type_mis[0]) ; } else {for(int k=0;mistake[n][k]! =END;k++) {offtemp=mistake[n][k]; if(offtemp==13) cprintf("%s\n", type_mis[offtemp]) ; else {cprintf("%d. %s\n", k+1, type_mis[offtemp]) ; x++; y++; gotoxy(x, y) ; } } } }  

  Литература.

  1. Курс лекций по системному программированию.

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

  3. В. Н. Лебедев “Введение в системы программирования”

1Авиация и космонавтика
2Архитектура и строительство
3Астрономия
 
4Безопасность жизнедеятельности
5Биология
 
6Военная кафедра, гражданская оборона
 
7География, экономическая география
8Геология и геодезия
9Государственное регулирование и налоги
 
10Естествознание
 
11Журналистика
 
12Законодательство и право
13Адвокатура
14Административное право
15Арбитражное процессуальное право
16Банковское право
17Государство и право
18Гражданское право и процесс
19Жилищное право
20Законодательство зарубежных стран
21Земельное право
22Конституционное право
23Конституционное право зарубежных стран
24Международное право
25Муниципальное право
26Налоговое право
27Римское право
28Семейное право
29Таможенное право
30Трудовое право
31Уголовное право и процесс
32Финансовое право
33Хозяйственное право
34Экологическое право
35Юриспруденция
36Иностранные языки
37Информатика, информационные технологии
38Базы данных
39Компьютерные сети
40Программирование
41Искусство и культура
42Краеведение
43Культурология
44Музыка
45История
46Биографии
47Историческая личность
 
48Литература
 
49Маркетинг и реклама
50Математика
51Медицина и здоровье
52Менеджмент
53Антикризисное управление
54Делопроизводство и документооборот
55Логистика
 
56Педагогика
57Политология
58Правоохранительные органы
59Криминалистика и криминология
60Прочее
61Психология
62Юридическая психология
 
63Радиоэлектроника
64Религия
 
65Сельское хозяйство и землепользование
66Социология
67Страхование
 
68Технологии
69Материаловедение
70Машиностроение
71Металлургия
72Транспорт
73Туризм
 
74Физика
75Физкультура и спорт
76Философия
 
77Химия
 
78Экология, охрана природы
79Экономика и финансы
80Анализ хозяйственной деятельности
81Банковское дело и кредитование
82Биржевое дело
83Бухгалтерский учет и аудит
84История экономических учений
85Международные отношения
86Предпринимательство, бизнес, микроэкономика
87Финансы
88Ценные бумаги и фондовый рынок
89Экономика предприятия
90Экономико-математическое моделирование
91Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
- Коллега, мне кажется, эта криволинейная поверхность в пределе стремится к плоскости.
- И не говорите, коллега. Сисек почти нет.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, реферат по компьютерным сетям "Синтаксический распознаватель оператора условного перехода языка FORTRAN", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2017
Рейтинг@Mail.ru