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

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

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

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

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



ка с цифры 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

# include

# include

# include

# include "keyboard.h"

# include

# include

//

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

//

# defineFILE_NAME"TEXT.TXT"

# defineYES1

# defineNO2

# defineOK3

//# defineTEST

//

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

//

char file1[22][60];// Массив строк.

char mes[22][30][50];// Массив сообщений об ошибках.

char bufer[4096];// Снимок с экрана.

int com=0;// Показатель : откомпилирован файл или нет.

int pos=2;// Текущая позиция в строке.

char string[80];// Текущая строка файла.

char nx;// Текущий символ в строке.

int e1=0;// Счетчик страниц массива собщений об ошибках.

int e2=0;// Счетчик строк в странице.

int l=0;// Счетчик меток.

FILE* fl=fopen("MESSAGE.TXT","wt");// Файл с сообщениями об ошибках.

//

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

//

void Windows(int,int,int,int,char*);// Построение окон.

void Beep(int,int);// Звуковой сигнал.

void Open_File(void);// Открытие файла.

void Second_Window(void);// Построение нижней панели.

void MyPuts(char*,int);// Аналог puts(char*).

void Print_File(void);// Печать файла.

void Menu(void);// Меню.

int i_readkey(void);// Опрос клавиатуры.

void Help(void);// Помощь.

void Grammar(void);// Грамматика языка.

void Language(void);// Язык оператора.

void Compile(void);// Компиляция.

void Operator(char*);// Сканирование оператора.

void Scan(void);// Сканирование следующего символа.

void Label(void);// Реализация Label.

int ABS(void);// Реализация ABS.

int IDENT(void);// Реализация IDENT.

int AB(void);// Реализация AB.

void Error(int);// Обработка ошибки.

int Term(void);// Реализация Term.

int Operand(void);// Реализация Operand.

int Float(void);// Реализация Float.

void Message(int);// Вывод сообщений об ошибках.

//

// Функция MAIN.

//

void main()

{

_setcursortype(_SOLIDCURSOR);

window(1,1,80,25);

textattr(113);

clrscr();

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

cputs("");

textcolor(BLACK);

cputs(" Enter filename");

window(20,7,60,17);

textattr(127);

clrscr();

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

gotoxy(4,3);

puts("Name ");

gotoxy(6,7);

puts("По умолчанию будет введен файл");

gotoxy(17,8);

puts(FILE_NAME);

window(23,10,57,10);

textattr(31);

clrscr();

Open_File();

Second_Window();

Print_File();

_setcursortype(_NOCURSOR);

Menu();

}

//

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

//

void Beep(int tone,int pause)

{

sound(tone);

delay(pause);

nosound();

}

//

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

//

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

{

y1++;

for(int i=2;i<x1-x;i++)

{

gotoxy(i,1);

putch(=);

gotoxy(i,y1-y);

putch(=);

}

for(i=1;i<y1-y;i++)

{

gotoxy(2,i);

putch();

gotoxy(x1-x,i);

putch();

}

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);

}

//

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

//

void Open_File(void)

{

char filename[38];

filename[0]=35;

char* p=cgets(filename);

strcpy(filename,p);

if(filename[0]==NULL)

strcpy(filename,FILE_NAME);

FILE *file;

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

{

window(1,1,80,25);

textattr(7);

_setcursortype(_NORMALCURSOR);

clrscr();

perror("ERROR");

fcloseall();

getch();

exit(1);

}

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

{

char temp[255];

if((fgets(temp,80,file))==NULL)

break;

strcpy(file1[i],temp);

}

fclose(file);

}

//

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

//

void Second_Window(void)

{

window(1,1,80,25);

textattr(17);

clrscr();

window(1,1,80,24);

textattr(31);

clrscr();

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

window(1,25,80,25);

textattr(127);

clrscr();

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

LIGHTBLUE);

}

//

// MyPuts.

//

void MyPuts(char* string,int color)

{

int j=0;

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

{

if(string[i]==~ && j==0)

{

textcolor(color);

i++;

j++;

}

if(string[i]==~ && j!=0)

{

textcolor(BLACK);

i++;

j--;

}

cprintf("%c",string[i]);

if(string[i]==NULL)

break;

}

}

//

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

//

s