Разработка синтаксического распознавателя вычисляемого оператора перехода языка FORTRAN — страница 4

  • Просмотров 2130
  • Скачиваний 165
  • Размер файла 23
    Кб

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾ // FILE "KURSOVIK.CPP". //¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾ // ВАРИАHТ № 3.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾ // Оператор перехода вычисляемый языка FORTRAN. //¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾ // Кафедра: АСУ. // Группа: А-513. // Студент:

Борзов Андрей Hиколаевич. // Преподаватели: кандидат технических наук, доцент Шорников Юрий Владимирович, // ассистент Панова Вера Борисовна. // Дата: 29 апреля 1997г. //¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾ // Подключаемые файлы.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾ #include<string.h> #include<conio.h> #include<stdio.h> #include<dos.h> #include<stdlib.h> #include<ctype.h> #include<time.h> #include"keyboard.h"

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾ // Макроопределения. //¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾ #define ERROR 0 // Код ошибки. #define COL_STR 20 // Максимальное количество строк.

#define STR_LEN 35 // Длина строки. #define MAX_STR_LEN 255 // Максимальная длина строки. #define FILENAME "TEST.TXT" // Имя файла, открываемого по умолчанию. #define YES 1 #define NO 2 #define OK 3 //#define TEST // Определено, если включен отладочный режим. //¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾ // Прототипы функций.