|
BasicBasicÌÈÍÈÑÒÅÐÑÒÂÎ ÎÁÙÅÃÎ È ÏÐÎÔÅÑÑÈÎÍÀËÜÍÎÃÎ ÞÁÐÀÇÎÂÀÍÈß ÐÔ ÒÀÌÁÎÂÑÊÈÉ ÃÎÑÓÄÀÐÑÒÂÅÍÍÛÉ ÒÅÕÍÈ×ÅÑÊÈÉ ÓÍÈÂÅÐÑÈÒÅÒ ÊÀÔÅÄÐÀ ÃÀÏÑ Êóðñîâàÿ ðàáîòà ïî èíôîðìàòèêå Âàðèàíò ¹2 Âûïîëíèë: ñò.ãð.Ì-14 Òîïîç À.Â. Ïðîâåðèë: Êðàñíÿíñêèé Ì.Í. Òàìáîâ 1999 Çàäàíèå. Ðàçðàáîòàòü ïðîãðàììó äëÿ ïîñòðîåíèÿ ãðàôèêà ôóíêöèè y = a-x. Ïðîãðàììà äîëæíà: n îáåñïå÷èâàòü ïîñòðîåíèå ãðàôèêà çàäàííîé ôóíêöèè íà ýêðàíå ÏÊ; n ïðîèçâîäèòü ìàñøòàáèðîâàíèå àðãóìåíòà è çíà÷åíèÿ ôóíêöèè; n ñòðîèòü îñè êîîðäèíàò, íàíîñèòü íà íèõ ðàçìåòêó ñ îïðåäåëåííîé äèñêðåòíîñòüþ è ïîäïèñûâàòü èõ.; n îáåñïå÷èâàòü ââîä êîýôôèöèåíòîâ çàäàííîé ôóíêöèè â äèàëîãîâîì ðåæèìå ñ êëàâèàòóðû, à îáëàñòü çíà÷åíèé àðãóìåíòà èç ôàéëà «dan.txt»; n âûâîäèòü çíà÷åíèÿ ôóíêöèè â ôàéë «dat.txt»; n èñïîëüçîâàòü ïðîöåäóðó – ôóíêöèþ äëÿ îïðåäåëåíèÿ çàäàííîé ôóíêöèè; n èñïîëüçîâàòü ïðîöåäóðó – ïîäïðîãðàììó äëÿ ïîñòðîåíèÿ îñåé êîîðäèíàò, ìàñøòàáíîé ñåòêè, ìàñøòàáèðîâàíèÿ. Îïèñàíèå ïðîãðàììû. Äëÿ êîððåêòíîé ðàáîòû ïðîãðàììû íåîáõîäèìî èìåòü â êàòàëîãå áýéñèêà ñëåäóþùèå ôàéëû: KURS_T.BAS DAN.TXT Ïîñëå âõîäà â QuickBASIC íåîáõîäèìî îòêðûòü ôàéë KURS_T.BAS. Äëÿ ÷åãî íåîáõîäèìî íàæàòü êëàâèøó «Alt», ïîñëå ÷åãî â âåðõó äèàëîãîâîãî îêíà âûäåëèòñÿ ïóíêò ìåíþ «Ôàéë». Äàëåå íåîáõîäèìî âîéòè â íåãî íàæàòèåì êëàâèøè «Enter». Ïîñëå íàæàòèÿ êëàâèøè «Enter» âûñâåòèòñÿ ñïèñîê ïîäïóíêòîâ èç êîòîðûõ íåîáõîäèìî âûáðàòü ïîäïóíêò «Îòêðûòü . . .» ñ ïîìîùüþ êëàâèø «(», «(» è íàæàòü «Enter». Ïîñëå âõîäà â ïîäïóíêò ìåíþ «Îòêðûòü . . .» ïîÿâèòñÿ îêíî ñî ñïèñêîì ôàéëîâ ñ ðàñøèðåíèåì *.BAS. Äëÿ îòêðûòèÿ ôàéëà íåîáõîäèìî íàæàòü êëàâèøó «Tab» è âûáðàòü êëàâèøàìè «(», «(» ôàéë ñ íàçâàíèåì KURS_T è íàæàòü êëàâèøó «Enter». Ïîñëå îòêðûòèÿ ôàéëà KURS_T â äèàëîãîâîì îêíå ïîÿâèòñÿ òåêñò ïðîãðàììû. Äëÿ çàïóñêà ïðîãðàììû íåîáõîäèìî íàæàòü ôóíêöèîíàëüíóþ êëàâèøó F5, à äëÿ ïåðåçàïóñêà ïðîãðàììû îäíîâðåìåííîå íàæàòèå êëàâèø «Shift» + F5. Ïîñëå îêîí÷àíèÿ ðàáîòû ïðîãðàììû íåîáõîäèìî âûéòè èç áåéñèêà, äëÿ ÷åãî íåîáõîäèìî âîéòè â ïóíêò ìåíþ «Ôàéë» è ïîäïóíêò «Âûõîä». Îñíîâíûì ìîäóëåì ïðîãðàììû ÿâëÿåòñÿ ôàéë KURS_T.BAS ñîñòîÿùèé èç ãëàâíîé ïðîãðàììû, ïðîöåäóðû – ïîäïðîãðàììû è ïðîöåäóðû – ôóíêöèè. Ãëàâíàÿ ïðîãðàììà îñóùåñòâëÿåò îáðàùåíèå ê ôàéëàì, óïðàâëåíèå ïðîöåäóðàìè è ïîñòðîåíèå ãðàôèêà çàäàííîé ôóíêöèè. Ïðîöåäóðà – ïîäïðîãðàììà îñóùåñòâëÿåò ïîñòðîåíèå êîîðäèíàòíîé ñåòêè è åå ðàçìåòêè. Ïðîöåäóðà – ôóíêöèÿ ïîçâîëÿåò ðàññ÷èòàòü çíà÷åíèå çàäàííîé ôóíêöèè. Ôàéë DAN.TXT íåîáõîäèì äëÿ ââîäà èç íåãî èíòåðâàëà èçìåíåíèÿ õ. Ïîñëå çàâåðøåíèÿ ïðîãðàììû ïîÿâëÿåòñÿ ôàéë DAT.TXT â êîòîðîì íàõîäÿòñÿ çíà÷åíèÿ ôóíêöèè. Òåêñò ïðîãðàììû DECLARE SUB xoy (d!, t!, a!, b!) DECLARE FUNCTION y! (b!, a1!) CLS : SCREEN 9 COLOR 10 PRINT " - x" PRINT "Ôóíêöèÿ ó = à" INPUT "Ââåäèòå êîýôôèöèåíò a"; a1 n$ = "dan.txt" OPEN n$ FOR INPUT AS #1 INPUT #1, a: INPUT #1, b: PRINT "x ý ["; a; ","; b; "]" CLOSE i1 = 0: d = (300 * a) / b DIM y1(1400) FOR i = a TO b i1 = i1 + 1 y1(i1) = y(i, a1): 'PRINT y1(i1) NEXT i i1 = 0 t = y1(1) d1 = 160 / y1(1) CALL xoy(d, t, a, b) OPEN "dat.txt" FOR OUTPUT AS #2 PRINT #2, " - x" PRINT #2, "Ôóíêöèÿ y = "; a1 PRINT #2, "x ý ["; a; ", "; b; "]" FOR i = a TO b i1 = i1 + 1 PRINT #2, "y("; i; ")= "; y1(i) NEXT i CLOSE PSET (300 + d, 175 - y1(1) * d1) FOR i = a + 1 TO b LINE -(300 + i * d, 175 - y1(i) * d1) NEXT i END SUB xoy (d, t, a, b) LINE (300, 180)-(300, 0), 10 LINE (290, 175)-(650, 175), 10 FOR mx = 300 TO 625 STEP d LINE (mx, 175)-(mx, 10), 3 NEXT mx FOR my = 175 TO 10 STEP -16 LINE (300, my)-(625, my), 3 NEXT my COLOR 13: LOCATE 1, 37: PRINT "y" COLOR 13: LOCATE 14, 78: PRINT "x" LOCATE 14, 35: PRINT 0: LOCATE 14, 74: PRINT b LOCATE 2, 33: PRINT t END SUB FUNCTION y (b, a1) y = a1 ^ (-b) END FUNCTION Âàðèàíò çàäàíèÿ. Âàðèàíò ¹ 2, I ÷åòâåðòü. [pic] - x Ôóíêöèÿ y = 2 x ý [ 2 , 20 ] y( 2 )= .125 y( 3 )= .0625 y( 4 )= .03125 y( 5 )= .015625 y( 6 )= .0078125 y( 7 )= 3.90625E-03 y( 8 )= 1.953125E-03 y( 9 )= 9.765625E-04 y( 10 )= 4.882813E-04 y( 11 )= 2.441406E-04 y( 12 )= 1.220703E-04 y( 13 )= 6.103516E-05 y( 14 )= 3.051758E-05 y( 15 )= 1.525879E-05 y( 16 )= 7.629395E-06 y( 17 )= 3.814697E-06 y( 18 )= 1.907349E-06 y( 19 )= 9.536743E-07 y( 20 )= 1.563283E-08 Ñïèñîê èñïîëüçóåìîé ëèòåðàòóðû. Ò.Í. Áûëÿ, Î.È. Áûëÿ «Èçó÷àåì èíôîðìàòèêó, ïðîãðàììèðóÿ íà Áýéñèêå», èçäàíèå 2-å, èñïðàâëåííîå, «Àéðèñ ðîëüô», 1997. |
|
