Скачайте в формате документа WORD

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

Министерство науки, высшей школы и технической политики Российской Федерации.


Новосибирский Государственный Технический Университет.

Курсовая работа по системному программированию.

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


Факультет: АВТ.

Кафедра: АСУ.

Группа: АЦ513.

Студент: Бойко Константин Анатольевич.

Преподаватель: Шорников Юрий Владимирович.

ссистент: Панова Вера Борисовна.

Дата: 30 апреля 1997 г.

Отметка о защите:



Новосибирск.


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


Язык арифметического оператора словного перехода языка FORTRAN.


IF(<АВ>) LABEL1,LABEL2,LABEL3


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

LABEL1,LABEL2,LABEL3 - первая, вторая и третья метки

соответственно.


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


G[<Оператор><]:

1.  <Оператор> о IF(<АВ>)<LABEL>,<LABEL>,<LABEL>

2.  <LABEL> о <ЦБЗ>

3.  <АВ> о T | <АВ>+T | <АВ>-T

4.  T о O | T*O | T/O | T**O

5.  O о (<АВ>) | <Идентификатор> | <ЧПЗ>

6.  <Идентификатор> о Б{Б|Ц}

7.  <ЦБЗ> о Ц{Ц}[L<]

8.  <ЧПЗ> о Ц{Ц}[.Ц{Ц}]


Условные обозначения:

а

Т

Ц

ТЕРМ.

О

Ц

ОПЕРАНД.

Б

Ц

БУКВА.

Ц

Ц

ЦИФРА.

ЦБЗ

Ц

ЦЕЛОЕ БЕЗ ЗНАКА.

**<

Ц

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

LABEL

Ц

МЕТКА.

ЧПЗ

Ц

ЧИСЛО С ПЛАВАЮЩЕЙ ЗАПЯТОЙ.

L

Ц

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

В

Ц

РИФМЕТИЧЕСКОЕ ВЫРАЖЕНИЕ.



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


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

A о a, AÎVn, aÎV*.


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



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


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

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

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


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



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


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

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


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


¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

IF(((6/t+g*456)/(9.347*y-))**6) 64,44,548

¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

Текущий символ ( - 40.

AB - Проверка на Арифметическое Выражение.

Текущий символ ( - 40.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

AB - Проверка на Арифметическое Выражение.

Текущий символ ( - 40.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

AB - Проверка на Арифметическое Выражение.

Текущий символ 6 - 54.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа 6.

FLOAT - проверка на число с плавающей запятой с цифры 6.

Текущий символ / - 47.

Текущий символ t - 116.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа t.

Текущий символ + - 43.

AB - Проверка на Арифметическое Выражение.

Текущий символ g - 103.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа g.

Текущий символ * - 42.

Текущий символ 4 - 52.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа 4.

FLOAT - проверка на число с плавающей запятой с цифры 4.

Текущий символ 5 - 53.

Текущий символ 6 - 54.

Текущий символ ) - 41.

Текущий символ / - 47.

Текущий символ ( - 40.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

AB - Проверка на Арифметическое Выражение.

Текущий символ 9 - 57.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа 9.

FLOAT - проверка на число с плавающей запятой с цифры 9.

Текущий символ. - 46.

Текущий символ 3 - 51.

Текущий символ 4 - 52.

Текущий символ 7 - 55.

Текущий символ * - 42.

Текущий символ y - 121.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа y.

Текущий символ - - 45.

AB - Проверка на Арифметическое Выражение.

Текущий символ 5 - 53.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа 5.

FLOAT - проверка на число с плавающей запятой с цифры 5.

Текущий символ 5 - 53.

Текущий символ 5 - 53.

Текущий символ ) - 41.

Текущий символ ) - 41.

Текущий символ * - 42.

Текущий символ * - 42.

Текущий символ 6 - 54.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа 6.

FLOAT - проверка на число с плавающей запятой с цифры 6.

Текущий символ ) - 41.

Текущий символ <- 32.

Текущий символ 6 - 54.

ABS - проверка на Целое Без Знака с цифры 6.

Текущий символ 4 - 52.

Текущий символ, - 44.

Текущий символ 4 - 52.

ABS - проверка на Целое Без Знака с цифры 4.

Текущий символ 4 - 52.

Текущий символ, - 44.

Текущий символ 5 - 53.

ABS - проверка на Целое Без Знака с цифры 5.

Текущий символ 4 - 52.

Текущий символ 8 - 56.

Текущий символ NULL - 0.

¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<


¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

IF(r**34/50.22) 3,56,1

¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

Текущий символ ( - 40.

AB - Проверка на Арифметическое Выражение.

Текущий символ r - 114.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа r.

Текущий символ * - 42.

Текущий символ * - 42.

Текущий символ 3 - 51.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа 3.

FLOAT - проверка на число с плавающей запятой с цифры 3.

Текущий символ 4 - 52.

Текущий символ / - 47.

Текущий символ 5 - 53.

Term - Проверка на Терм.

Operand - Проверка на Операнд.

IDENT - Проверка на Идентификатор с символа 5.

FLOAT - проверка на число с плавающей запятой с цифры 5.

Текущий символ 0 - 48.

Текущий символ. - 46.

Текущий символ 2 - 50.

Текущий символ 2 - 50.

Текущий символ ) - 41.

Текущий символ <- 32.

Текущий символ 3 - 51.

ABS - проверка на Целое Без Знака с цифры 3.

Текущий символ, - 44.

Текущий символ 5 - 53.

ABS - проверка на Целое Без Знака с цифры 5.

Текущий символ 6 - 54.

Текущий символ, - 44.

Текущий символ 1 - 49.

ABS - проверка на Целое Без Знака с цифры 1.

Текущий символ NULL - 0.

¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<



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

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// FILE "KURSOVIC.CPP".

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// ВАРИАHТ # 2.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Арифметический оператор словного перехода языка FORTRAN.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Кафедp : АСУ.

// Гpупп : А-513.

// Студент : Бойко Константин Анатольевич.

// Пpеподаватели : кандидат технических наук, доцент Шоpников Юpий Владимиpович,

// ассистент Панова Веpа Боpисовна.

// Дат : 30 апреля 1997г.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Заголовочные файлы.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

# include<stdio.h>

# include<conio.h>

# include<string.h>

# include<stdlib.h>

# include "keyboard.h"

# include<dos.h>

# include <ctype.h>

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Константы.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

# define FILE_NAME "TEXT.TXT"

# define YES 1

# define NO 2

# define OK 3

//# define TEST

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Глобальные переменные.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

char file1[22][60];

char mes[22][30][50];

char bufer[4096];

intа

intа

char string[80];

char nx;

intа

intа

intа

FILE* fl=fopen("MESSAGE.TXT","wt");

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Прототипы функций.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Windows(int,int,int,int,char*);

oid Beep(int,int);

oid Open_File(void);

oid Second_Window(void);

oid MyPuts(char*,int);

oid Print_File(void);

oid Menu(void);

intа

oid Help(void);

oid Grammar(void);

oid Language(void);

oid Compile(void);

oid Operator(char*);

oid Scan(void);

oid Label(void);

intа ABS(void);

intа IDENT(void);

intа AB(void);

oid Error(int);

intа Term(void);

intа Operand(void);

intа Float(void);

oid Message(int);

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Функция MAIN.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid main()

<{

<_setcursortype(_SOLIDCURSOR);

Windows(20,7,60,17,"Open a File");

Open_File();

Second_Window();

<_setcursortype(_NOCURSOR);

Menu();

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Звуковой сигнал.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Beep(int tone,int pause)

<{

delay(pause);

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Построение рамок.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Windows(int x,int y,int x1,int y1,char* string)

{

y1++;

<{

<}

<{

<}

gotoxy(2,1);

putch('г');

gotoxy(x1-x,1);

putch('м');

gotoxy(x1-x,y1-y);

putch('-');

gotoxy(2,y1-y);

putch('L');

gotoxy((x1-x-strlen(string)+2)/2,1);

puts(string);

}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Функция открытия файла.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Open_File(void)

{

char filename[38];

filename[0]=35;

char* p=cgets(filename);

strcpy(filename,p);

if(filename[0]==NULL)

FILE *file;

if ((file = fopen(filename, "rt"))== NULL)

<{

<_setcursortype(_NORMALCURSOR);

<}

<{

<}

fclose(file);

}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Построение нижней панели.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Second_Window(void)

<{

Windows(1,1,80,24,"File");

MyPuts(" ~F1~ Help ~F2~ Grammar ~F3~ Language ~F4~ Compile ~ESC~ Exit",

LIGHTBLUE);

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// MyPuts.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid MyPuts(char* string,int color)

<{

<{

<{

<}

<{

<}

<}

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Функция вывода файла на экран.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Print_File(void)

<{

<{

<}

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Меню.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Menu(void)

<{

<{

<{

Help();

Grammar();

Language();

Compile();

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

Message(y-1);

<{

Message(y-1);

<}

<{

Message(y-1);

<}

<}

<}

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Help.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Help(void)

<{

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

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

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

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

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Grammar(void)

<{

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

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Язык.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Language(void)

<{

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

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

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

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Compile(void)

<{

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

<{

Beep(900,1);

return;

<}

#ifdef TEST

window(1,1,80,25);

clrscr();

#endif

<{

Operator(file1[i]);

Error(11);

<}

delay(300);

Beep(1,200);

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Оператор.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Operator(char* str)

<{

#ifdef TEST

puts(string);

puts(temp);

getch();

#endif

<{

#ifdef TEST

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

#endif

Error(10);

return;

<}

Scan();

Scan();

Error(7);

<{

Error(12);

Error(9);

return;

<}

AB();

Scan();

Error(3);

<{

Error(9);

return;

<}

Scan();

<{

Error(9);

return;

<}

Scan();

Label();

<{

Error(5);

Scan();

<}

Scan();

return;

Label();

<{

Error(5);

Scan();

<}

Scan();

return;

Label();

<{

Error(6);

Scan();

<}

return;

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Scan.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Scan(void)

<{

#ifdef TEST

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

#endif

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Метка.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Label(void)

<{

<{

Error(8);

Scan();

<}

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

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

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

int ABS(void)

<{

#ifdef TEST

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

#endif

<{

Scan();

return(YES);

<}

return(NO);

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

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

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

int AB(void)

<{

#ifdef TEST

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

#endif

Scan();

if(nx==')')

<{

Error(12);

return(NO);

<}

Term();

<{

AB();

<}

<{

AB();

<}

return(OK);

Error(1);

return(YES);

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Терм.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

int Term(void)

<{

#ifdef TEST

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

#endif

Operand();

<{

Scan();

Term();

<}

<{

Scan();

<{

Scan();

Term();

<}

<}

return(OK);

Error(2);

return(OK);

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Операнд.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

int Operand(void)

<{

#ifdef TEST

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

#endif

<{

AB();

Error(3);

<{

Scan();

return(OK);

<}

<}

<{

Error(4);

<}

return(OK);

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

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

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

int IDENT(void)

<{

#ifdef TEST

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

#endif

<{

Scan();

return(YES);

<}

return(NO);

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Ошибки.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Error(int num)

<{

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

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

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

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

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

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

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

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

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

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

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

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

NULL

<};

#ifdef TEST

Beep(1,100);

cprintf("Ошибка: %s\r\n",E[num-1]);

getch();

#endif

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Float.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

int Float(void)

<{

#ifdef TEST

cprintf("FLOAT - проверка на число с плавающей запятой с цифры %c.\r\n",nx);

#endif

<{

Scan();

<{

Scan();

Scan();

<}

return(YES);

<}

return(NO);

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

// Message.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<

oid Message(int x)

<{

<}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾<<<<<<<<<<



Литература.


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

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