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

textattr(78);

clrscr();

#endif

fprintf(errors,"/*******************************************************\n");

fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");

fprintf(errors,"ç Протокол работы синтаксического распознавателя вычисляемого ç\n");

fprintf(errors,"ç оператора перехода языка FORTRAN. ç\n");

fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");

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

Scaner(text[i]);

fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");

fprintf(errors,"ç КОНЕЦ. ç\n");

fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");

fprintf(errors,"*******************************************************/\n");

Beep(900,100);

compile++;

}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾

// Обработка строки.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾

int Scaner(char* string)

{

char tmpstr[STR_LEN];

strcpy(tmpstr,string);

Delspace(tmpstr);

ScanStr(tmpstr);

return 0;

}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾