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

;---Ввод из [base] в [tabl] номера отдела---

@reset(base,2),m:=@get(base,12),@reset(tabl,5,3),

@put(tabl,m),

;---Ввод из [base] в [tabl] исходных данных---

; N, Название, Инв.N, Перв.ст., Фам.мат.отв.

@reset(base,1),p:=@get(base,12),q:=7,

@while(p>0,

@list(n:=@get(base,2),i:=@get(base,4),

r:=@get(base,5),f:=@get(base,11),

@reset(tabl,1,q),@put(tabl,q-6),

@reset(tabl,2,q),@put(tabl,n),

@reset(tabl,3,q),@put(tabl,i),

@reset(tabl,4,q),@put(tabl,r),

@reset(tabl,5,q),@put(tabl,f),

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

;---Вывод на экран таблицы [tabl]---

@setselection("tabl"),@position("tabl",1,1,60,15),

@pk("{return}"),

;---Ввод в таблицу [tabl] значения Итого:---

@reset(base,1),p:=@get(base,12),n:=q+1,

q:=p+7,r:="Итого:",@reset(tabl,1,q),@put(tabl,r),

p:=@integer(p+6),r:="@sum(tabl.d7:tabl.d"&p&")",

q:=@integer(q),i:="@setformula(tabl.d"&q&","&r&")",

@setformula(tabl,i),@tabl,@pk("{in}{F5}"),

;---Ввод в таблицу даты---

@reset(tabl,1,n),p:="Дата: ",@put(tabl,p),

@reset(tabl,3,n),p:=@inputline("Введите дату"),

@put(tabl,p),@pk("{out}"),

;---Возврат в меню: [Документ]---