А
Б В
Г Д
Е Ж
З И
К Л
М Н
О П
Р С
Т У
Ф Х
Ц Ч
Ш Э
Ю Я
Реферат: Курсовая работа по решению прикладных задач на языке FRED
Курсовая работа по решению прикладных задач на языке FRED
AINOAA?NOAAIIA? AEAAAIE? OI?AAEAIE? ei. N. I?A?IIEEEACA EAOAA?A i?ia?aie?iaaiey e eiiiu?oa?iie oaoieee EO?NIAA? ?AAIOA ii aenoeieeia "Eiiiu?oa?iay i?aeoeea" ( a?eaaaa N 1 ) AUIIEIEEE: nooaaiou a?oiiu IYI-I-1 A?eaeia N.A. Eooocia A.A. I?IAA?EE : aioaio eaoaa?u A.A. Aaoaaa "...".................1994 a. Iineaa, 1994 a. NIAA??AIEA: 1.) Caaaiea. 2 2.) ?ania?aoea i?ia?aiiu 3 3.) Eino?oeoey ii iieuciaaie? 8 4.) Ia?acou auaaaaaiuo ni?aaie 8 5.) Enoiaiay aaca aaiiuo 10 CAAAIEA ia eo?niao? ?aaioo ii aenoeieeia: "Eiiiu?oa?iay i?aeoeea" nooaaioai a?oiiu IYI-I-1 A?eaeiao N.A. Eooociao A.A. Oaia eo?niaie ?aaiou : I?eiaiaiea eioaa?e?iaaiiuo i?eeeaaiuo nenoai aey ?aoaiey yeiiiie?aneeo caaa?. Enoiaiua aaiiua : 1. Eniieuciaaiea EIN-?AAOAA (FRAMEWORK III). 2. Enoiaiay aaca aaiiuo - niaieoiiinou eiaa?oa?iuo ea?oi?ae o?aoa iniiaiuo n?aanoa ( ii oi?ia IN-7 ) 3. Eiee?anoai caienae - 20. (ni. oaaeeoo enoiaiuo aaiiuo). 4. Eiee?anoai iieae- 11. 5. Iaeiaiiaaiea iieae: -iiia? ea?oi?ee (N); -iacaaiea n?aanoaa (iacaaiea); -ianoi o?aiaiey - ioaae (Ioa.); -ii?ia aii?oecaoeiiiuo io?eneaiee a % ( A. I.); -aaoa ii?eoiauaaiey ( N aeo.ii?.); -aaoa auauoey (Aaoa aua.); -eiaa?oa?iue iiia? ( Eia. N ); -iiia? aeoa auauaaiey (N aeo. aua.); -oaieeee iaoa?eaeuii ioaaonoaaiiiai eeoa ( Aai. iao. ioa.); 6. Oei auaaaaaiie ni?aaee-1 ( Iaee?ea n?aanoa a caaaiiii ioaaea e eo noiia?iay noieiinou ). ?AC?AAAOUAAAIUA AII?ICU : 1. Inaiaiea eniieucoaiie EIN. 2. Nicaaiea enoiaiie aacu aaiiuo e ionoie oaaeeou. 3. ?ac?aaioea i?ia?aiiu ia ycuea EIN aey nicaaiey e ?ania?aoee ni?aaee caaaiiiai oeia. Ni?aaea aie?ia niaa??aou ia iaiaa iyoe iieae (N,Iacaaiea, Eia.N, Ia?a. no., Oai. iao. ioa.). NIAA??AIEA IO?AOA II ?AAIOA : 1. Oeooeuiue eeno. 2. Caaaiea ( n eiie?aoiuie aaiiuie ii naiaio aa?eaioo ). 3. Niaa??aiea io?aoa n iiia?aie no?aieo. 4. Enoiaiay aaca aaiiuo (AA). 5. E?aoeea iiyniaiey ii ii?yaeo nicaaiey AA oaaee?iiai oeia. 6. ?ania?aoea i?ia?aiiu ia ycuea EIN. 7. Eino?oeoey ii eniieuciaaie? i?ia?aiiu aey ?aoaiey iinoaaeaiiie caaa?e. 8. ?ania?aoea ni?aaie caaaiiiai oeia ( ia iaiaa o?ao ?ania?aoie). 9. Auaiau ( caee??aiey ) ii ?aaioa. 10. Nienie eeoa?aoo?u. ?ania?aoea i?ia?aiiu: MAINMENU.FW3 @menu(mainmenu) MAINMENU.[Ia?aeuiay onoaiiaea.]: ;---Caa?ocea o?aeia [resume] n eiiaiaie @resume--- @local(p),p:=@frametype, @if(@and(p2),@pk("{scroll-lock}")), @setdrive("a:"), @pk("{in}"), @setselection("resume.fw3"), @pk("{return}{scroll-lock}{out}{return}{scroll-lock}"), ;---Onoaiiaea a iai? iia?aoee Iiaia:Ionoie/Oaeno-O?aei--- @prompt("Ia?ieoa INS, onoaiiaeoa ""Iiaia:Ionoie/Oaeno-O?aei"",ia?ieoa ESC e F5"), @suspend, ;---Caaa?oaiea ia?aeuiie onoaiiaee--- @delete("resume") MAINMENU.[Caa?ocea AA]: ;---Caa?ocea aacu aaiiuo [base]--- @pk("{scroll-lock}"), @setdrive("a:"), @pk("{in}"), @setselection("base.fw3"), @pk("{return}{scroll-lock}{out}{return}{scroll-lock}"), @position("base",1,1,80,10), @reset(base,1) MAINMENU.[Ei??aeoey AA]: ;***Ei??aeoey aacu aaiiuo: Anoaaea, Eciaiaiea, Oaaeaiea caienae*** MAINMENU.[Ei??aeoey AA].[Anoaaea Caiene]: ;---Iiaaioiaea iia?aoee Anoaaea--- @local(a,p,q,r),p:=7, @pk("{ins}{home}"), @while(p>0, @list(@pk("{dnarrow}"),p:=p-1)), @pk("{esc}"), ;---Aoia a aaco aaiiuo--- @setselection("base"), @pk("{in}"), r:=@get(base,5), ;---Anoaaea iiauo caienae--- p:="y",r:=0, @integer(r), @while(@not(p @list(@pk("{ins}{return}{return}"), r:=r+1, q:=@value(@inputline("Aaaaeoa N")), @put(base,1,q), q:=@inputline("Aaaaeoa IACAAIEA"), @put(base,2,q), q:=@value(@inputline("Aaaaeoa IOAAE")), @put(base,3,q), q:=@value(@inputline("Aaaaeoa EIA.N")), @put(base,4,q), q:=@value(@inputline("Aaaaeoa ia?aiia?.noieiinou")), @put(base,5,q), q:=@value(@inputline("Aaaaeoa aii?o. io?ene.")), @put(base,6,q), q:=@inputline("Aaaaeoa aaoo ii?eoia."), @put(base,7,q), q:=@value(@inputline("Aaaaeoa N aeoa ii?eoia.")), @put(base,8,q), a:=@inputline(" ?ano?n auaue? Aa(y)/Iao(n)"), @if(a="y", @list(q:=@inputline("Aaaaeoa aaoo auauoey"), @put(base,9,q), q:=@value(@inputline("Aaaaeoa N aeoa auauoey")), @put(base,10,q))), q:=@inputline("Aaaaeoa oai. iao. ioa."), @put(base,11,q), p:=@inputline("Anoaaeyou aua? AA(y)/IAO(n)"))), ;---Ni?oe?iaea aacu aaiiuo--- @setformula(base,@sort(base.[ N],#ascend)),@base, ;---Caaa?oaiea anoaaee caienae--- @reset(base,1), @put(base,5,r), @pk("{out}{return}"), @pk("{ins}{home}{dnarrow}{esc}") MAINMENU.[Ei??aeoey AA].[Oaaeaiea Caiene]: ;---Iiaaioiaea iia?aoee Oaaeaiea--- @local(p,q,r), @pk("{ins}{rightarrow}{home}{dnarrow}{dnarrow}{esc}"), ;---Aoia a aaco aaiiuo--- @setselection("base"),@pk("{return}"),r:=@get(base,5), ;---Oaaeaiea caienae--- p:="y", @while(@not(p @list(q:=@value(@inputline("Aaaaeoa iiia? oaaeyaiie caiene")), @reset(base,q), @pk("{in}{ins}{return}y{esc}{out}"),r:=r-1, p:=@inputline("Oaaeyou aua?AA(y)/IAO(n)"))), ;---Caaa?oaiea oaaeaiey caienae a aaca aaiiuo--- @reset(base,1), @put(base,5,r), @pk("{return}{ins}{leftarrow}{esc}") MAINMENU.[Ei??aeoey AA].[Eciaiaiea Caiene]: ;--- Aoia a aaco aaiiuo --- @local(p,q,r,s), @setselection("base"), @pk("{in}"), ;--- Eciaiaiea caienae a aaca aaiiuo --- p:="y", @while(@not(p @list(q:=@value(@inputline("Aaaaeoa iiia? caiene")), r:=@value(@inputline("Aaaaeoa iiia? iiey")), @reset(base,q),s:=@get(base,r), @if(@isnumeric(s), @list(s:=@value(@inputline("Aaaaeoa cia?aiea")), @put(base,r,s)), @list(s:=@inputline("Aaaaeoa caienu"), @put(base,r,s))), p:=@inputline("Eciaiyou aua? AA(o)\IAO(n)"))), ;--- Caaa?oaiea eciaiaiey caienae --- @setselection("base"),@setformula(base,@sort(base.[ N],#ascend)),@base, @reset(base,1), @pk("{out}{return}") MAINMENU.[Ei??aeoey AA].[Nio?aiaiea AA]: ;---Caienu aacu aaiiuo ia aene A --- @setselection("base"), @pk("{scroll-lock}"), @setdrive("a:"), @pk("{in}{scroll-lock}{f8}{scroll-lock}{return}y{out}{return}{scroll-lock}") MAINMENU.[Aieoiaio]: ;***Oi?ie?iaaiea auoiaiiai aieoiaioa a oaaeeoa [tabl]*** ;---Caa?ocea o?aeiia [tabl],[printdoc]--- @local(p,q,r,m), @pk("{scroll-lock}"), @setdrive("a:"),@pk("{in}"), @setselection("tabl.fw3"),@pk("{return}{scroll-lock}"), @setselection("printdoc.fw3"),@pk("{return}{scroll-lock}"), @pk("{out}{return}{scroll-lock}"), ;---Oeeuo?aoey aacu aaiiuo--- q:="@not(@isnumeric([N AA]))",@setformula(base,q), @setselection("base"),@pk("{F5}"),@beep, p:=@inputline("Aaaaeoa iiia? eioa?ano?uaai aan ioaaea"),m:=p, q:="@not([Ioaae] @setselection("base"),@pk("{F5}"), ;---Ii?aaaeaiea eiee?anoaa caienae a iooeeuo?iaaiie AA--- 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}"), ;---Ia?aoia e i?ia?aiia oi?ie?iaaiey auoiaiiai aieoiaioa- @printdoc, PRINTDOC.FW3 ;***I?ia?aiia oi?ie?iaaiey auoiaiiai aieoiaioa a oaaeeoa [tabl]*** @local(p,q,n,i,r,f,m), ;---Aaia ec [base] a [tabl] iiia?a ioaaea--- @reset(base,2),m:=@get(base,12),@reset(tabl,5,3), @put(tabl,m), ;---Aaia ec [base] a [tabl] enoiaiuo aaiiuo--- ; N, Iacaaiea, Eia.N, Ia?a.no., Oai.iao.ioa. @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)), ;---Auaia ia ye?ai oaaeeou [tabl]--- @setselection("tabl"),@position("tabl",1,1,60,15), @pk("{return}"), ;---Aaia a oaaeeoo [tabl] cia?aiey Eoiai:--- @reset(base,1),p:=@get(base,12),n:=q+1, q:=p+7,r:="Eoiai:",@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}"), ;---Aaia a oaaeeoo aaou--- @reset(tabl,1,n),p:="Aaoa: ",@put(tabl,p), @reset(tabl,3,n),p:=@inputline("Aaaaeoa aaoo"), @put(tabl,p),@pk("{out}"), ;---Aica?ao a iai?: [Aieoiaio]--- @return(p) ;---Caaa?oaiea oi?ie?iaaiey auoiaiiai aieoiaioa--- @pk("{ins}{leftarrow}{esc}"), @beep, @prompt("Ni?aaea noi?ie?iaaia",30), @nextkey(5), @eraseprompt MAINMENU.[Ia?aou]: ;---Iiaaioiaea i?eioa?a e ia?aoe--- @prompt("Iiaaioiaoa i?eioa?, ia?ieoa RETURN.") @nextkey, @eraseprompt, ;---Ia?aou auoiaiiai aieoiaioa--- @local(p), @pk("{ins}"),p:=7, @while(p>0, @list(@pk("{rightarrow}"),p:=p-1)), @pk("{home}{return}"), ;---Caaa?oaiea ia?aoe auoiaiiai aieoiaioa--- @pk("{ins}"),p:=7, @while(p>0, @list(@pk("{leftarrow}"),p:=p-1)), @pk("{esc}") MAINMENU.[Auoia]: ;---Oaaeaiea o?aeiia [base], [tabl], [printdoc]--- @delete("base"), @delete("tabl"), @delete("printdoc"), ;---Auoia ec iai?--- @eraseprompt, @prompt("Nianeai ca ?aaioo!",30), @beep, @nextkey(5), @quitmenu, @eraseprompt RESUME.FW3 @resume TABL.FW3 N I ? A A E A ------------------ I iaee?ee n?aanoa, a ioaaea N ------------------------------------------------------ N Iacaaiea Eia.N Ia?a.no. Oai.iao.ioa. ------------------------------------------------------ Eino?oeoey ii iieuciaaie? i?ia?aiiie: READ.ME mainmenu.fw3 - Oaee n iai? iieuciaaoaey. base.fw3 - Enoiaiay aaca aaiiuo. printdoc.fw3 - I?ia?aiia oi?ie?iaaiey auoiaiiai aieoiaioa. tabl.fw3 - Oaaeii auoiaiiai aieoiaioa a oaaeeoa. resume.fw3 - Neo?aaiue oaee. read.me - Aaiiay eino?oeoey. Aey auiieiaiey caaa?e iaiaoiaeii aieoe a iaeao ?aaoaa, onoaiiaeou aeneaoo n eo?niaie ?aaioie a aeneiaia A, caa?oceou o?aei n eiaiai a:\mainmenu.fw3 e ia?aou F5. Ia?acou auaaaaaiuo ni?aaie: N I ? A A E A ------------------ I iaee?ee n?aanoa, a ioaaea N 4 ------------------------------------------------------ N Iacaaiea Eia.N Ia?a.no. Oai.iao.ioa. ------------------------------------------------------ 1 I?eioa? 1748 34000 Eooocia A.A 2 Eiiiu?oa? 2458 507000 Iaaaaaaa A.A. Eoiai: 541000 Aaoa: 17.05.94 N I ? A A E A ------------------ I iaee?ee n?aanoa, a ioaaea N 8 ------------------------------------------------------ N Iacaaiea Eia.N Ia?a.no. Oai.iao.ioa. ------------------------------------------------------ 1 AON 22587 898800 Oaiei N.A. 2 Oaeaen 1109 500000 Iao?ia I.I. Eoiai: 1398800 Aaoa: 17.05.94 N I ? A A E A ------------------ I iaee?ee n?aanoa, a ioaaea N 3 ------------------------------------------------------ N Iacaaiea Eia.N Ia?a.no. Oai.iao.ioa. ------------------------------------------------------ 1 Eiiiu?oa? 1007 900300 ?acoiianeee I.?. 2 Ena?ien 2367 431000 A?eai?uaaa N.A. 3 Oaeaoiiu 4376 95680 Iaaa?ey A.N. 4 Ena?ien 4643 987999 Aaaiei ?.A. 5 Ieiooa? 6350 289700 Iiaaiei I.A. Eoiai: 2704679 Aaoa: 17.05.94 EEOA?AOO?A: A.A.Aaoaaa, A.I.Iaoiiuei "Iaoiae?aneea oeacaiey e naiinoiyoaeuiie ?aaioa nooaaioia ii aenoeieeia "YAI e i?ia?aiie?iaaiea". ?acaae "Aeai?eoie?aneee ycue O?AA"."
|
