Реферат: По решению прикладных задач на языке FRED

;---Фильтрация базы данных---

q:="@not(@isnumeric([N АВ]))",@setformula(base,q),

@setselection("base"),@pk("{F5}"),@beep,

p:=@inputline("Введите номер интересующего вас отдела"),m:=p,

q:="@not([Отдел]<>"&p&")",@setformula(base,q),

@setselection("base"),@pk("{F5}"),

;---Определение количества записей в отфильтрованой БД---

p:=7,@pk("{ins}{home}"),

@while(p>0,

@list(@pk("{dnarrow}"),p:=p-1)),

@pk("{esc}"),

@setselection("base"),@pk("{in}"),

@pk("{ins}{return}{return}"),p:=99,@put(base,1,p),

@setformula(base,@sort(base.[ N],#ascend)),@base,

@pk("{out}{return}"),@pk("{ins}{home}{dnarrow}{esc}"),

@setselection("base"),@reset(base,1),p:=@get(base,1),

q:=0,

@while(@not(p=99),

@list(q:=q+1,@next(base),p:=@get(base,1))),

@reset(base,1),@put(base,12,q),@reset(base,2),

@put(base,12,m),

p:=@get(base,1),

@while(@not(p=99),

@list(@next(base),p:=@get(base,1))),

@pk("{in}{del}{out}{return}"),

;---Переход к программе формирования выходного документа-

@printdoc,

PRINTDOC.FW3

;***Программа формирования выходного документа в таблице [tabl]***