Интерактивном режиме с построчным формированием выхода.

%token DIGIT LETTER /* имена лексем */

%left '|' /* задание приоритетов */

%left '&' /* операций */

%left '+' '-'

%left '*' '/' '%'

%left UMINUS /* установка приоритета

операции унарный минус */

%{ /* oписания, используемые */

int base, regs[26]; /* в действиях */

%}

%% /* начало секции правил */

list:

| list stat '\n'

| list stat error '\n' {yyerrok; }

stat:

expr {printf("%d\n",$1);}

| LETTER '=' expr {regs[$1]=$3; }

expr:

'(' expr ')' { $$=$2; }

| expr '+' expr { $$=$1+$3; }

| expr '-' expr { $$=$1-$3; }

| expr '*' expr { $$=$1*$3; }

| expr '/' expr { $$=$1/$3; }

| expr '%' expr { $$=$1%$3; }

| expr '&' expr { $$=$1&$3; }

| expr '|' expr { $$=$1|$3; }

| '-' expr %prec UMINUS { $$= -$2; }

| LETTER { $$=regs[$1]; }

| number;

number:

DIGIT { $$=$1; base=10;

if($1==0) base=8; }

- 34 -

| number DIGIT {$$=base*$1+$2; }

%% /* начало секции программ */

/*

* Программа лексического анализа

* для строчных латинских букв

* возвращает LETTER,

* значение yylval от 0 до 25;

* для цифр - DIGIT,

* значение yylval от 0 до 9;

* остальные символы возвращаются

* непосредственно

*/

Yylex()

{

Int c;

while((c=getchar()) == ' ');

if(c>='a' && c<='z') {

yylval = c - 'a';

Return(LETTER);

}

if(c>='0' && c<='9') {

yylval = c - '0';

Return(DIGIT);

}

Return(c);

}

- 35 -

Приложение 2

Анализ и преобразование в матричную форму входных дан-

Ных для задачи линейного программирования.

Входная информация из обычной алгебраической формы:

c1X1+c2X2+...+cnXn -> min(max)

a11x1+a12X2+...+a1nXn=b1

am1X1+am2X2+...+amnXn=bm

преобразуется в матричную:

C: c1 c2... cn

A: a11 a12... a1n

...

Am1 am2... amn

B: b1 b2... bm

Одновременно изменяются знаки коэффициентов при неизвестных

В ограничениях с отрицательным свободным членом, а также

Знаки коэффициентов линейного функционала в случае его мак-

Не нашли, что искали? Воспользуйтесь поиском: