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

/ Опитування клавіатури. p> void Help (void);// Допомога. p> void Grammar (void);// Граматика мови. p> void Language (void);// Мова оператора. p> void Compile (void);// Компіляція. p> void Operator (char *);// Сканування оператора. p> void Scan (void);// Сканування наступного символу. p> void Label (void);// Реалізація Label. p> int ABS (void);// Реалізація ABS. p> int IDENT (void);// Реалізація IDENT. p> int AB (void);// Реалізація AB. p> void Error (int);// Обробка помилки. p> int Term (void);// Реалізація Term. p> int Operand (void);// Реалізація Operand. p> int Float (void);// Реалізація Float. p> void Message (int);// Висновок повідомлень про помилки. p>// Функція MAIN.

void main ()

{

_setcursortype (_SOLIDCURSOR);

window (1,1,80,25);

textattr (113);

clrscr ();

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

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

{

gotoxy (i, 1);

putch ("=");

gotoxy (i, y1-y);

putch ("=");

}

for (i = 1; 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...