Файл: Алферова, З. В. Математическое обеспечение экономических расчетов с использованием теории графов.pdf

В/од

из основной

Обращений, н СП-2

СП-1

j

программы

5

Обращение н ОБМПМ

СП-2

Выход

в основную

j

программу

И. Заказ 4230.

161

Вход из прогроммь/

/ Печать с от дет

,

. ОЬРЯЩ '

оператора В ячейке х.

Печать с^твет

изменение

^ оператора В ячейке х^

8

призп

Ф

В оздрат В основную

9

программу

H I :

ШАГФП: = 1;

Ш А Г А Н : = 2 ;

С : = ' т н п

и н ф о р м а ц и и . ^

';

О Б Р А Щ (0,7798784);

Д : = 2 ;

на

Н;

Н2:

С: ='категория —

информ-и;

О Б Р А Щ (0,32061259776);

Д : = 3 ;

на Н;

НЗ:

С: =

'основные

операции';

О Б Р А Щ

(0,114688);

Д : = 4 ;

на

Н;

Н4:

С:='вепом—ые

операции';

ОБРАЩ

(0,1792); Д : = 5 ;

на

Н;

Н5:

если П Р И З П = 1

то на М4; П Р И З П 1: =31 ;_на М5;

М4:

П Р И З П 1 : = 1;

М5:

С Ч 1 : - 0 ; для И: = 1 : С4 цикл, нач.

К О Н С Т : = А Р

[ П Р И З П ] . М

[3]ЛТС1;

если

КОНСТ

Л Т С З = 0

то

на

Мб;

если

КОНСТ

Л Т С Ч = 0

то

на_ Мб;

если

КОНСТ

Д Т С 5 = 0

то" на

Мб;

АР [ П Р И З П 1 ] : = А Р [ П Р И З П ] ; П Р И З П 1 : = П Р И З П 1 + 1;

С Ч 1 : = С Ч 1 + 1;

Мб:

кон;

С : = ' у к а з а н ы

Т,

НОТ,

КАТ';

ОБРАЩ

(666,0);

Д : = 6 ; на

Н;

Н6:

если

П Р И З П ^ П Р И З П !

то на

Н8; ШАГФП: = 1;

Ш А Г А Н : = 3 ;

С:='совпадает

нотация';

О Б Р А Щ

(0,114688); Д : = 7 ;

на Н;

Н7:

КОНСТ: = С Ф

[1] Л 917504;

С: = 'категория — пользв-я'; О Б Р А Щ

(0, КОНСТ);

М7:

если

КОНСТ=262144

то на М8; КОНСТ: = К В Р Б ;

на_М9;

М8:

КОНСТ: = К В Р А ;

М9:

С Ч 1 : = А Р

[ П Р И З П ] . М [3] Л

КОНСТ; К21: = П Р И З П + 1 ;

К 3 1 : = С Ч — 1 + П Р И З П ;

для

И: = К21:К31

цикл нач К 4 1 : = А Р

[И] . М [3] Л

КОНСТ;

'

если

К П Ж 4 1

то на

М10;

К И : = К 4 1 ;

М10:

кон;

Кб:

если

П Р И З П = 1

то

на

М П ; П Р И З П 1 : = 3 1 ;

на

М12;

М П :

ПРИЗП1:1: = 1;

М12:

С Ч 1 : = 0 ;

для

И: = П Р И З П : К 3 1

цикл

нач

если

АР

[И] . М

[3] Л К О Н С Т ^ К П

то на_М13;

А Р " [ П Р И З П 1 ] : = А Р

[И] ; П Р И З Ш : = П Р И З П 1 + 1; С Ч 1 : = С Ч 1 + 1;

М13:

кон;

С ='языки

С

мин

время

'; О Б Р А Щ

(666,0);

Д : = 8 ; на

Н;

т М14;

Н8:

С:='этимологический

'; О Б Р А Щ

(0,1792);

Н :

библ

('стоп', X ) ;

библ

('набор', X I ) ;

если

Х1 = 1 то

на М15; если

Х ^ 1

то

на М14;

"ПРЙЗП: = П Р И З П 1;

С Ч : = С Ч 1 ;

М15:

«а Р

[ Д ] ;

М14:

кон;

проц О Б Р А Щ

(У1, У2);

знач

У1, У2;

цел

У1, У2;

нач

цел

СЧ2,

СЧЗ;

.переключатель

Р1:П,

П1;

К2:

Б [элем 30:47] : = С ;

библ

('АЦПУ', '—', '—', '—\ Б, ' — ' ) ;

если

У1=666

то _на

Л 1 ;

если

У 1 = 7 7

то_ на Л2;

К 1 :

К О Н Ф П : = С Ф

[ШАГФП]ЛУ2;

Л2:

СЧ1: = 0; если

П Р И З П = 1

то на ЛЗ; П Р И З П 1:== 31 ;_н_а Л4;

Л З :

П Р И З Ш : = 1; В : = 0 ;

Л 4 -

для

И : = 0 : С Ч

цикл

нач

"ёТли

АР

[ И + П Р И З П ] . М [ШАГАН] Д К О Н Ф П ^ К О Н Ф П

то_н_а

Л5;

Л 5 :

— 1 : = С Ч 1

+

1; АР [ П Р И З П 1 + В ] : = А Р [ П Р И З П + И ] ; В : = В + 1 ;

кон;

СЧ¥=1 3£„Н Л 9 ;

Л 1 :

если

С Ч 1 = 0

то _на Л6; если

Х:1;_на Л7;

Л 6 :

Х : = 0 ; н а П ;

Л 9 :

Х : = 7 ;

Л7 -

С Ч 2 - = С Ч 1 -

Д - = 2 '

П 1 :

С Ч 2 - = С Ч 2 — 3 ; если СЧ2>0_то_на Л8;

С Ч З : = С Ч 2 + 3 ; Д : = 1; на

Л9;

Л 8 :

С Ч : = 3 ; К З : = Т + П Р И З П 1 ; К 1 : = 2 0 ; К 2 : = 3 1 ; С Ч З : = ^ С Ч З - 1 ;

_для

И : = 0 : С Ч З

цикл

нач

В : = И х 2 0 ;

А [элем К 1 + В : К 2 + В ] : = АР

[КЗ]. Т1;

К З : = К З + 1 ;

кон;

К 1 : = 4 0 ; К 2 : = 5 1 ; С Ч З : = 2 ;

Л Ю :

А [ э л е м _ К 1 : К 2 ] : = '

; М : = К 1 + 2 0 ,

К 2 : = К 2 + 2 0 ;

С Ч З : = С Ч З — 1 ;

если

СЧЗ¥=0

то

на

ЛЮ;

библ

('АЦПУ',

А, ' — ' ) ; на

Р1

[ Д ] ;

П :

J<OH;

Так как в АЛГЭК-С невозможно обращение из какой-либо про­

цедуры в другую, то создана искусственная процедура

в поле са­

этапа отбора; если языков больше одного, оператор

просматрива­

ет имена языков, отобранных на данном этапе. Если

выбыли наи­

щем этапе осуществляется из поля языков предшествующего

эта­

па. В этом случае оператор должен занести в сумматор

единицу,

означающую неудовлетворительность отбора. Если в сумматор

за­

носится нуль, то отбор продолжается из языков нового поля.

Если выполнение программы необходимо закончить, то в сум­

матор записывается 0, в счетчик адресов добавляется 1,

нажима­

ется кнопка «пуск», процедура анализирует содержимое

суммато­

ра и выполняется описанный выше порядок действий.

Программе обращения ОБРАЩ в АЛГЭК-программе соответ­

ствует специальная процедура, которая выполняет

все

ее

функции.

Процедура ОБРАЩ содержит два параметра: У\— параметр,

определяющий порядок действия в процедуре, У2 — константа

вы­

2) определение поля

с

отобранными языками.

Указатель

по­

л я — ячейка

ПРИЗП . Из

поля языков выбираются

те, которые

со­

ответствуют

данному этапу

отбора.

языков равно единице, то X:

= 1 , и если языков больше

одного, то

Х: = 7. Этой части

процедуры

соответствует

участок с Л1

по Л7;

5) печать имен

языков нового поля, если содержимое

счетчика

не равно Н У Л Ю . Этой части соответствует

участок алгоритма с Л7

по П.

В зависимости от значения параметра У\ устанавливается сле­

дующий порядок выполнения процедуры:

при Уi = 0 выполняется вся

процедура;

при Уi = 77 пропускается

первый этап.

Содержимое

ячейки

КОНФП задается в основной программе;

при У] = 666 пропускаются первый и второй этапы.

В основной программе цикл с меткой КЗ заполняет

пробелами

строки печати заголовка (А) и строку имен языков (Б).

Цикл с меткой

К4 подсчитывает количество языков,

введенных

в поле А.

Участок с метки M l по метку М2 обеспечивает отбор

в рабочее

ре ОБРАЩ.

Участок

алгоритма

от

метки

К5 по

метку

H I

соответствует

от­

бору внедренных языков.

Участок

алгоритма

от

метки

H I по

метку

Н2

обеспечивает

от­