Тексты модулей

Тексты модулей. program katalog uses printer, crt type zapisrecord priznintegerпризнак блока kodvlvinteger код возврата end masvhstarray 1 40 of string masypstarray 1 80 of integer masprstarray 1 80 of string var vhstmasvhst исходный текст ПВЯ ypstmasypst управляющий вектор prstmasprst вектор параметров kolzapinteger количество записей ПВЯ rashinteger количество расшифрованных слов ПВЯ kointegerключ окончания tablzapis таблица информатора Заглушки procedure input xistring kodvlinteger Процедура ввода данных о книгах begin writelnВыполнилась процедура ввода. writelnДля продолжения нажмите любую клавишу readkey end procedure prosm xstring kodvlinteger Процедура просмотра данных о книгах begin writelnВыполнилась процедура просмотра. writelnДля продолжения нажмите любую клавишу readkey end procedure korr xstring kodvlinteger Процедура редактирования данных о книгах begin writelnВыполнилась процедура редактирования. writelnДля продолжения нажмите любую клавишу readkey end procedure soxr xstring kodvlinteger Процедура сохранения данных о книгах begin writelnВыполнилась процедура сохранения. writelnДля продолжения нажмите любую клавишу readkey end procedure uporyad xstring kodvlinteger Процедура упорядочивания данных по книгам begin writelnВыполнилась процедура упорядочивания. writelnДля продолжения нажмите любую клавишу readkey end procedure ekran xstring kodvlinteger Процедура просмотра каталога begin writeln Выполнилась процедура просмотра каталога. writelnIДля продолжения нажмите любую клавишу readkey end procedure pechat xstring kodvlinteger Процедура печати каталога begin writelnВыполнилась процедура печати каталога. writelnДля продолжения нажмите любую клавишу readkey end Процедуры управляющей программы procedure HELPER procedure OBMEN var vhstmasvhst procedure INFORM tablzapis procedure LEXRAZ vhstimasvhst procedure SINAN ypstmasypst procedure YPRAVL ypstmasypst Конец описаний Модуль обмена procedure OBMEN var vhstmasvhst var kolzapinteger var tablzapis var flboolean iinteger vvodstring begin procedure with tabl do begin with kodvlv0 priznl fltrue writelnввод проем ред сохр обр экр печ 10 while not fl and kodvlv0 do begin while iil readlnvvod if vvodконец then begin первый if flfalse kolzapi-l end первый if else begin первый else if vvodвыход then begin второй if flfalse kodvlv8 kolzapi-l end второй if else vhstivvod end первый else end while проверка на пустую порграмму if kolzap0 and kodvlv0 then kodvlv16 if kolzap 0 and kodvlv8 then kodvlv4 end with end procedure Модуль лексического разбора procedure LEXRAZ vhstmasvhst kolzapinteger var ypst var prstmasprst var ksinteger var tablzapis var termslarray 1 7 of string терминальный словарь kolslinteger количество слов в терминальном словаре sostinteger состояние системы tekzapstring текущая запись strstring10 i, j,1,k, number, lengl,1eninteger begin procedure with tabl do begin with prizn2 kodvlv0 rash0 kolsl7 sost0 termsl1 ввод termsl2 проем termsl3 ред termsl4 coxp termsl5 обр termsl6 экр termsl7 печ for il to kolzap do begin первый for tekzapvhsti j i lenlengthtekzap while j len and kodvlv0 do begin первый while strcopytekzap, j,len-j1 if copystr,1,1 then jjl else begin первый else case sost of 0 begin case 0 lengl0 for 11 to kolsl do begin первый for Numberpostermsl1,str if numberl then begin первый if rashrashl prstrash ypstrash1 lengllengthtermsl1 jjlengl sost1 end первый if end первый for if lengl0 then kodvlv4 end case 0 lbegin case 1 if copystr,1, then begin первый if sost2 jjl end первый if else kodvlv6 end case 1 2begin case 2 if copystr,1,1 then begin первый if sost0 jjl end первый if else первый else begin prstrashprstrashcopystr,1,1 jjl end первый else endcase 2 end case end while end else end for if sostl and kodvlv0 then kodvlv5 if sost2 and kodvlv0 then kodvlv7 end with end procedure Модуль синтаксического анализа Procedure SINAN ypst masypst rash Integer Var Tablzapis Var GPO Array1 1,1 2 of Integer NVer Integer KVer Integer I Integer begin With tabl do begin prizn3 kodvlv0 GPO1,1 1 GPO1,2 2 GPO2,1 1 GPO2,2 2 GPO3,1 2 GPO3,2 3 GPO4,1 2 GPO4,2 3 GPO5,1 3 GPO5,2 4 GPO6,1 3 GPO6,2 4 GPO7,1 4 GPO7,2 5 NVerl KVer5 ll While Krash and kodvlv0 do begin If GPOypsti, lNVer then NVerGPOypsti,2 else kodvlv8 iil end If NVer KVer and kodvlv0 then kodvlv16 end end Модуль управления Procedure YPRAVL uprstr masypst prst masprst rash Integer Var tabl zapis Var x String j, kodvl Integer begin With tabl do begin prizn4 kodvlv0 For jl to rash do Begin x prstj Case uprstrj of 1 inputx, kodvl 2 prosmx, kodvl 3 korrx, kodvl 4 soxrx, kodvl 5 uporyadx, kodvl 6 ekranx, kodvl 7 pechatx, kodvl end If kodvlv kodvl then kodvlkodvlv end end end Модуль информатора Procedure INFORM tabl zapis Блок информ тор begin procedure With tabl do begin with Case prizn of 1 WritelnВыполнился блок обмена 2 WritelnВыполнился блок лексического разбора 3 WritelnВыполнился блок синтаксического анализа 4 WritelnВыполнился блок управления end case WritelnС кодом возврата равным, kodvlv end with end procedure Модуль помощи Procedure Help begin WritelnСтурктура оператора Writeln Имя модуля параметр WritelnКонец сегмента определяется словом конец WritelnКонец всей программы определяется словом выход readkey end Начало работы ведущего модуля Begin clrscr HELPER kol While kol do begin while OBMEN vhst, kolzap, tabl INFORM tabl With tabl do begin with If kodvlv 0 then ko0 If kodvlv 8 then begin ifl LEXRAZ vhst, kolzap, ypst, prst, rash, tabl INFORMtabl If kodvlv 5 then begin if2 SINAN ypst, rash, tabl INFORMtabl If kodvlv0 then begin if3 YPRAVLypst, prst, rash, tabl INFORMtabl end if3 end if2 end ifl end with end while readkey end. 3.3.