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

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

ÃÎÑÓÄÀÐÑÒÂÅÍÍÀß ÀÊÀÄÅÌÈß ÓÏÐÀÂËÅÍÈß èì. Ñ. ÎÐÄÆÎÍÈÊÈÄÇÅ

ÊÀÔÅÄÐÀ

ïðîãðàìèðîâàíèÿ è êîìïüþòåðíîé òåõíèêè

ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ

ïî äèñöèïëèíå

"Êîìïüþòåðíàÿ ïðàêòèêà"

( áðèãàäà N 1 )

ÂÛÏÎËÍÈËÈ: ñòóäåíòû ãðóïïû ÌÝÎ-I-1

Ãðèáêîâ Ñ.À.

Êóòóçîâ À.À.

ÏÐÎÂÅÐÈË : äîöåíò êàôåäðû Â.Â. Åâòååâ

"...".................1994 ã.

Ìîñêâà, 1994 ã.

ÑÎÄÅÐÆÀÍÈÅ:

1.) Çàäàíèå.                                 2

2.) Ðàñïå÷àòêà ïðîãðàììû             3

3.) Èíñòðóêöèÿ ïî ïîëüçîâàíèþ    8

4.) Îáðàçöû âûäàâàåìûõ ñïðàâîê   8

5.) Èñõîäíàÿ áàçà äàííûõ            10

ÇÀÄÀÍÈÅ

íà êóðñîâóþ ðàáîòó ïî äèñöèïëèíå:

"Êîìïüþòåðíàÿ ïðàêòèêà"

ñòóäåíòàì ãðóïïû ÌÝÎ-I-1

Ãðèáêîâó Ñ.À.

Êóòóçîâó À.À.

Òåìà êóðñîâîé ðàáîòû : Ïðèìåíåíèå èíòåãðèðîâàííûõ ïðèêëàäíûõ ñèñòåì äëÿ ðåøåíèÿ ýêîíîìè÷åñêèõ çàäà÷.

Èñõîäíûå äàííûå :

1.   Èñïîëüçîâàíèå ÈÏÑ-ÐÀÄÓÃÀ (FRAMEWORK III).

2. Èñõîäíàÿ áàçà äàííûõ - ñîâîêóïíîñòü èíâåðòàðíûõ êàðòî÷åê ó÷åòà îñíîâíûõ ñðåäñòâ ( ïî ôîðìå ÎÑ-7 )

3. Êîëè÷åñòâî çàïèñåé - 20. (ñì. òàáëèöó èñõîäíûõ äàííûõ).

4.   Êîëè÷åñòâî ïîëåé- 11.

5.   Íàèìåíîâàíèå ïîëåé:

-íîìåð êàðòî÷êè (N);

-íàçâàíèå ñðåäñòâà (íàçâàíèå);

-ìåñòî õðàíåíèÿ - îòäåë (Îòä.);

-íîðìà àìîðòèçàöèîííûõ îò÷èñëåíèé â % ( À. Î.);

-äàòà îïðèõîäûâàíèÿ ( N àêò.îïð.);

-äàòà âûáûòèÿ (Äàòà âûá.);

-èíâåðòàðíûé íîìåð ( Èíâ. N );

-íîìåð àêòà âûáûâàíèÿ (N àêò. âûá.);

-ôàìèëèè ìàòåðèàëüíî îòâåòñòâåííîãî ëèöà ( Aàì. ìàò. îòâ.);

6. Òèï  âûäàâàåìîé  ñïðàâêè-1 ( Íàëè÷èå ñðåäñòâ â çàäàííîì îòäåëå è èõ ñóììàðíàÿ ñòîèìîñòü ).

ÐÀÇÐÀÁÀÒÛÂÀÅÌÛÅ ÂÎÏÐÎCÛ :

1.  Îñâîåíèå èñïîëüçóåìîé ÈÏÑ.

2.  Ñîçäàíèå èñõîäíîé áàçû äàííûõ è ïóñòîé òàáëèöû.

3. Ðàçðàáîòêà ïðîãðàììû íà ÿçûêå ÈÏÑ äëÿ ñîçäàíèÿ è ðàñïå÷àòêè ñïðàâêè çàäàííîãî òèïà.

Ñïðàâêà äîëæíà ñîäåðæàòü íå ìåíåå ïÿòè ïîëåé (N,Íàçâàíèå, Èíâ.N, Ïåðâ. ñò., Ôàì. ìàò. îòâ.).

ÑÎÄÅÐÆÀÍÈÅ ÎÒ×ÅÒÀ ÏÎ ÐÀÁÎÒÅ :

1. Òèòóëüíûé ëèñò.

2. Çàäàíèå ( ñ êîíêðåòíûìè äàííûìè ïî ñâîåìó âàðèàíòó ).

3. Ñîäåðæàíèå îò÷åòà ñ íîìåðàìè ñòðàíèö.

4. Èñõîäíàÿ áàçà äàííûõ (ÁÄ).

5. Êðàòêèå ïîÿñíåíèÿ ïî ïîðÿäêó ñîçäàíèÿ ÁÄ òàáëè÷íîãî òèïà.

6. Ðàñïå÷àòêà ïðîãðàììû íà ÿçûêå ÈÏÑ.

7. Èíñòðóêöèÿ ïî èñïîëüçîâàíèþ ïðîãðàììû äëÿ ðåøåíèÿ ïîñòàâëåííîé çàäà÷è.

8. Ðàñïå÷àòêà ñïðàâîê çàäàííîãî òèïà ( íå ìåíåå òðåõ ðàñïå÷àòîê).

9. Âûâîäû ( çàêëþ÷åíèÿ ) ïî ðàáîòå.

10. Ñïèñîê ëèòåðàòóðû.

Ðàñïå÷àòêà ïðîãðàììû:

MAINMENU.FW3

  @menu(mainmenu)

MAINMENU.[Íà÷àëüíàÿ óñòàíîâêà.]:

;---Çàãðóçêà ôðåéìà [resume] ñ êîìàíäîé @resume---

  @local(p),p:=@frametype,

  @setdrive("a:"),

  @pk("{in}"),

  @setselection("resume.fw3"),

  @pk("{return}{scroll-lock}{out}{return}{scroll-lock}"),

;---Óñòàíîâêà à ìåíþ îïåðàöèè Íîâîå:Ïóñòîé/Òåêñò-Ôðåéì---

  @prompt("Íàæìèòå INS, óñòàíîâèòå ""Íîâîå:Ïóñòîé/Òåêñò-Ôðåéì"",íàæìèòå ESC è F5"),

  @suspend,

;---Çàâåðøåíèå íà÷àëüíîé óñòàíîâêè---

  @delete("resume")

MAINMENU.[Çàãðóçêà ÁÄ]:

;---Çàãðóçêà áàçû äàííûõ [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.[Êîððåêöèÿ ÁÄ]:

;***Êîððåêöèÿ áàçû äàííûõ: Âñòàâêà, Èçìåíåíèå, Óäàëåíèå çàïèñåé***

MAINMENU.[Êîððåêöèÿ ÁÄ].[Âñòàâêà Çàïèñè]:

;---Ïîäãîòîâêà îïåðàöèè Âñòàâêà---

  @local(a,p,q,r),p:=7,

  @pk("{ins}{home}"),

  @while(p>0,

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

  @pk("{esc}"),

;---Âõîä â áàçó äàííûõ---

  @setselection("base"),

  @pk("{in}"),

  r:=@get(base,5),

;---Âñòàâêà íîâûõ çàïèñåé---

  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),

               p:=@inputline("Âñòàâëÿòü åùå? ÄÀ(y)/ÍÅÒ(n)"))),

;---Ñîðòèðîâêà áàçû äàííûõ---

  @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}"),

;--- Èçìåíåíèå çàïèñåé â  áàçå äàííûõ ---

  p:="y",

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

         @list(q:=@value(@inputline("Ââåäèòå íîìåð çàïèñè")),

         r:=@value(@inputline("Ââåäèòå íîìåð ïîëÿ")),

         @reset(base,q),s:=@get(base,r),

         @if(@isnumeric(s),

             @list(s:=@value(@inputline("Ââåäèòå çíà÷åíèå")),

                   @put(base,r,s)),

             @list(s:=@inputline("Ââåäèòå çàïèñü"),

                   @put(base,r,s))),

         p:=@inputline("Èçìåíÿòü åùå? ÄÀ(ó)\ÍÅÒ(n)"))),

;--- Çàâåðøåíèå èçìåíåíèÿ çàïèñåé ---

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

  @reset(base,1),

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

MAINMENU.[Êîððåêöèÿ ÁÄ].[Ñîõðàíåíèå ÁÄ]:

;---Çàïèñü áàçû äàííûõ íà äèñê  À ---

  @setselection("base"),

  @pk("{scroll-lock}"),

  @setdrive("a:"),

  @pk("{in}{scroll-lock}{f8}{scroll-lock}{return}y{out}{return}{scroll-lock}")

MAINMENU.[Äîêóìåíò]:

;***Ôîðìèðîâàíèå âûõîäíîãî äîêóìåíòà â òàáëèöå [tabl]***

;---Çàãðóçêà ôðåéìîâ [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}"),

;---Ôèëüòðàöèÿ áàçû äàííûõ---

  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))),

  @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]***

  @local(p,q,n,i,r,f,m),

;---Ââîä èç [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}"),

;---Âîçâðàò â ìåíþ: [Äîêóìåíò]---

  @return(p)

;---Çàâåðøåíèå ôîðìèðîâàíèÿ âûõîäíîãî äîêóìåíòà---

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

  @beep,

  @prompt("Ñïðàâêà ñôîðìèðîâàíà",30),

  @nextkey(5),

  @eraseprompt

MAINMENU.[Ïå÷àòü]:

;---Ïîäãîòîâêà ïðèíòåðà ê ïå÷àòè---

  @prompt("Ïîäãîòîâòå ïðèíòåð, íàæìèòå RETURN.")

  @nextkey,

  @eraseprompt,

;---Ïå÷àòü âûõîäíîãî äîêóìåíòà---

  @local(p),

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

  @while(p>0,

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

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

;---Çàâåðøåíèå ïå÷àòè âûõîäíîãî äîêóìåíòà---

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

  @while(p>0,

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

  @pk("{esc}")

MAINMENU.[Âûõîä]:

;---Óäàëåíèå ôðåéìîâ [base], [tabl], [printdoc]---

  @delete("base"),

  @delete("tabl"),

  @delete("printdoc"),

;---Âûõîä èç ìåíþ---

  @eraseprompt,

  @prompt("Ñïàñèáî çà ðàáîòó!",30),

  @nextkey(5),

  @quitmenu,

  @eraseprompt

RESUME.FW3

  @resume

TABL.FW3

Ñ Ï Ð À Â Ê À

------------------

Î íàëè÷èè ñðåäñòâ, â îòäåëå N

------------------------------------------------------

  N    Íàçâàíèå   Èíâ.N   Ïåðâ.ñò.   Ôàì.ìàò.îòâ.

------------------------------------------------------

Èíñòðóêöèÿ ïî ïîëüçîâàíèþ ïðîãðàììîé:

READ.ME

mainmenu.fw3 - Ôàéë ñ ìåíþ ïîëüçîâàòåëÿ.

base.fw3          - Èñõîäíàÿ áàçà äàííûõ.

printdoc.fw3    - Ïðîãðàììà ôîðìèðîâàíèÿ âûõîäíîãî äîêóìåíòà.

tabl.fw3          - Øàáëîí âûõîäíîãî äîêóìåíòà â òàáëèöå.

resume.fw3     - Ñëóæåáíûé ôàéë.

read.me         -  Äàííàÿ èíñòðóêöèÿ.

Äëÿ âûïîëíåíèÿ çàäà÷è íåîáõîäèìî âîéòè â ïàêåò Ðàäóãà, óñòàíîâèòü äèñêåòó ñ êóðñîâîé ðàáîòîé â äèñêîâîä À, çàãðóçèòü ôðåéì  ñ  èìåíåì  a:\mainmenu.fw3 è íàæàòü F5.

Îáðàçöû âûäàâàåìûõ ñïðàâîê:

Ñ Ï Ð À Â Ê À

------------------

Î íàëè÷èè ñðåäñòâ, â îòäåëå N 4

------------------------------------------------------

  N    Íàçâàíèå   Èíâ.N  Ïåðâ.ñò.   Ôàì.ìàò.îòâ.

------------------------------------------------------

  1     Ïðèíòåð        1748    34000 Êóòóçîâ À.À

  2     Êîìïüþòåð    2458   507000 Ìåäâåäåâ Ä.Â.

Èòîãî:                           541000

Äàòà:            17.05.94

Ñ Ï Ð À Â Ê À

------------------

Î íàëè÷èè ñðåäñòâ, â îòäåëå N 8

------------------------------------------------------

  N    Íàçâàíèå   Èíâ.N  Ïåðâ.ñò.   Ôàì.ìàò.îòâ.

------------------------------------------------------

  1   ÀÒÑ         22587   898800 Øàìèí Ñ.Â.

  2   Òåëåêñ       1109   500000 Ïåòðîâ Í.Î.

Èòîãî:                     1398800

Äàòà:            17.05.94

Ñ Ï Ð À Â Ê À

------------------

Î íàëè÷èè ñðåäñòâ, â îòäåëå N 3

------------------------------------------------------

  N    Íàçâàíèå   Èíâ.N  Ïåðâ.ñò.   Ôàì.ìàò.îòâ.

------------------------------------------------------

  1     Êîìïüþòåð   1007   900300 Ðàçóìîâñêèé Î.Ð.

  2     Êñåðîêñ      2367   431000 Ãðèãîðüåâà Ñ.Â.

  3     Òåëåôîíû    4376    95680 Íàãàðèÿ À.Ñ.

  4     Êñåðîêñ      4643   987999 Àãàíèí Þ.Â.

Èòîãî:                        2704679

Äàòà:            17.05.94

ËÈÒÅÐÀÒÓÐÀ: Â.Â.Åâòååâ, À.Ì.Ìàõîíüêî "Ìåòîäè÷åñêèå óêàçàíèÿ ê ñàìîñòîÿòåëüíîé ðàáîòå ñòóäåíòîâ ïî äèñöèïëèíå "ÝÂÌ è ïðîãðàììèðîâàíèå". Ðàçäåë "Àëãîðèòìè÷åñêèé ÿçûê ÔÐÅÄ"."