nt);
void putmistake (int);
int MENU (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 ПОМИЛКА! Фото З ТАКИМ ІМЕНЕМ НЕ ІСНУЄ! "); p> 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/""!!! "); p> printf (" n n n n n n n n n n НАТИСНІТЬ БУДЬ-ЯКУ КЛАВІШУ!! "); p> 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
{next = err [i];
identif ();
}
}
temp = 2;
next = scaner ();
if ((next == _EOF_) | | (next == _EOLN_)) error (11);
else
{while (1)
{expr ();
if (next == SKL) error (10);
else
{if (next == SKR)
{error (9);
next = scaner ();
}
if (next == ID)
{error (10);
next = scaner ();
}
if (next == ERROR) error (7);
if ((next == _EOF_) | | (next == _EOLN_)) break;
next = scaner ();
}// else
}// while
}// else
}// else
}// if
else mistake [line] [ofset + +] = 13;
}
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 + +;
}
i...
