Міністерство освіти і
ПРОФЕСІЙНОГО ЮБРАЗОВАНІЯ РФ
ІНСПЕКТОР ДЕРЖАВНИЙ ТЕХНІЧНИЙ
УНІВЕРСИТЕТ
КАФЕДРА ГАПС
Курсова робота
з інформатики
Варіант № 2
Виконав: ст.гр.М-14 Топоз А.В.
Перевірив :
Краснянський М.Н.
Тамбов 1999
Завдання.
Розробити програму для побудови графіка функції y = ax.
Програма повинна: n забезпечувати побудову графіка заданої функції на екрані ПК; n виробляти масштабування аргументу і значення функції; n будувати осі координат, наносити на них розмітку з певною дискретністю і підписувати їх.; n забезпечувати введення коефіцієнтів заданої функції в діалоговому режимі з клавіатури, а область значень аргументу з файлу
«dan.txt»; n виводити значення функції в файл «dat.txt»; n використовувати процедуру - функцію для визначення заданої функції; n використовувати процедуру -- підпрограму для побудови осей координат, масштабної сітки, масштабування.
Опис програми.
Для коректної роботи програми необхідно мати в каталозі Бейсікнаступні файли:
KURS_T.BAS
DAN.TXT
Після входу в QuickBASIC необхідно відкрити файл KURS_T.BAS. Для чогонеобхідно натиснути клавішу «Alt», після чого у верху діалогового вікнавиділиться пункт меню «Файл». Далі необхідно увійти в нього натисканням клавіші
«Enter». Після натискання клавіші «Enter» висвітиться список підпунктів зяких необхідно вибрати підпункт «Відкрити. . . »За допомогою клавіш «(»,< br>«(» І натиснути «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 < p> FUNCTION y (b, a1) y = a1 ^ (-b)
END FUNCTION
Варіант завдання.
Варіант № 2, I чверть.
- x
Функція y = 2x е. [2, 20]y (2) = .125y (3) = .0625y (4) = .03125y (5) = .015625y (6) = .0078125y (7) = 3.90625E-03y (8) = 1.953125E-03y (9) = 9.765625E-04y (10) = 4.882813E-04y (11) = 2.441406E-04y (12) = 1.220703E-04y (13) = 6.103516E-05y (14) = 3.051758E-05y (15) = 1.525879E-05y (16) = 7.629395E-06y (17) = 3.814697E-06y (18) = 1.907349E-06y (19) = 9.536743E-07y (20) = 1.563283E-08
Список використаної літератури.
Т.Н. Биля, О.І. Биля «Вивчаємо інформатику, програмуючи на Бейсік»,видання 2-е, виправлене, «Айрис Рольф», 1997.
