PRINT (По решению прикладных задач на языке 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,

@if(@and(p<>1,p<>2),@pk("{scroll-lock}")),

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

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

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

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

@beep,

@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 Àãàíèí Þ.Â.

5 Ïëîòòåð 6350 289700 Ïîãàíèí Ì.Ä.

Èòîãî: 2704679

Äàòà: 17.05.94

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