Реферат: Basic
МИНИСТЕРСТВООБЩЕГО И
ПРОФЕССИОНАЛЬНОГОЮБРАЗОВАНИЯРФ
ТАМБОВСКИЙГОСУДАРСТВЕННЫЙТЕХНИЧЕСКИЙ
УНИВЕРСИТЕТ
КАФЕДРАГАПС
Курсоваяработа
по информатике
Вариант№2
Выполнил: ст.гр.М-14 ТопозА.В.
Проверил: КраснянскийМ.Н.
Тамбов1999
Задание.
Разработатьпрограмму дляпостроенияграфика функцииy= a-x.
Программадолжна:
обеспечивать построение графика заданной функции на экране ПК;
производить масштабирование аргумента и значения функции;
строить оси координат, наносить на них разметку с определенной дискретностью и подписывать их.;
обеспечивать ввод коэффициентов заданной функции в диалоговом режиме с клавиатуры, а область значений аргумента из файла «dan.txt»;
выводить значения функции в файл «dat.txt»;
использовать процедуру – функцию для определения заданной функции;
использовать процедуру – подпрограмму для построения осей координат, масштабной сетки, масштабирования.
Описаниепрограммы.
Для корректнойработы программынеобходимоиметь в каталогебэйсика следующиефайлы:
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 STEPd
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четверть.
/>
— 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.