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

p:="y",r:=0,

@integer(r),

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

@list(@pk("{ins}{return}{return}"),

r:=r+1,

q:=@value(@inputline("Введите N")),

@put(base,1,q),

q:=@inputline("Введите НАЗВАНИЕ"),

@put(base,2,q),

q:=@value(@inputline("Введите ОТДЕЛ")),

@put(base,3,q),

q:=@value(@inputline("Введите ИНВ.N")),

@put(base,4,q),

q:=@value(@inputline("Введите первонач.стоимость")),

@put(base,5,q),

q:=@value(@inputline("Введите аморт. отчисл.")),

@put(base,6,q),

q:=@inputline("Введите дату оприход."),

@put(base,7,q),

q:=@value(@inputline("Введите N акта оприход.")),

@put(base,8,q),

a:=@inputline(" Ресурс выбыл? Да(y)/Нет(n)"),

@if(a="y",

@list(q:=@inputline("Введите дату выбытия"),

@put(base,9,q),

q:=@value(@inputline("Введите N акта выбытия")),

@put(base,10,q))),

q:=@inputline("Введите фам. мат. отв."),

@put(base,11,q),