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

;---Сортировка базы данных---

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

;---Завершение вставки записей---

@reset(base,1),

@put(base,5,r),

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

@pk("{ins}{home}{dnarrow}{esc}")

MAINMENU.[Коррекция БД].[Удаление Записи]:

;---Подготовка операции Удаление---

@local(p,q,r),

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

;---Вход в базу данных---

@setselection("base"),@pk("{return}"),r:=@get(base,5),

;---Удаление записей---

p:="y",

@while(@not(p<>"y"),

@list(q:=@value(@inputline("Введите номер удаляемой записи")),

@reset(base,q),

@pk("{in}{ins}{return}y{esc}{out}"),r:=r-1,

p:=@inputline("Удалять еще?ДА(y)/НЕТ(n)"))),

;---Завершение удаления записей в базе данных---

@reset(base,1),

@put(base,5,r),

@pk("{return}{ins}{leftarrow}{esc}")

MAINMENU.[Коррекция БД].[Изменение Записи]:

;--- Вход в базу данных ---

@local(p,q,r,s),

@setselection("base"),

@pk("{in}"),