Basic

МІНІСТЕРСТВО СПІЛЬНОГО И.

ПРОФЕСІЙНОГО ЮБРАЗОВАНИЯ РФ.

ТАМБОВСЬКИЙ ДЕРЖАВНИЙ ТЕХНИЧЕСКИЙ.

УНИВЕРСИТЕТ.

КАФЕДРА ГАПС.

Курсова работа.

по информатике.

Варіант № 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 і = a TO b i1 = i1 + 1 y1(i1) = y (i, a1): «PRINT y1(i1).

NEXT і 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 і = a TO b i1 = i1 + 1.

PRINT #2, «y («; і; «)= «; y1(i).

NEXT i.

CLOSE.

PSET (300 + d, 175 — y1(1) * d1).

FOR і = a + 1 TO b.

LINE -(300 + і * 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)= .3 125 y (5)= .15 625 y (6)= .78 125 y (7)= 3.90625E-03 y (8)= 1.95 3125E-03 y (9)= 9.76 5625E-04 y (10)= 4.88 2813E-04 y (11)= 2.44 1406E-04 y (12)= 1.22 0703E-04 y (13)= 6.10 3516E-05 y (14)= 3.5 1758E-05 y (15)= 1.52 5879E-05 y (16)= 7.62 9395E-06 y (17)= 3.81 4697E-06 y (18)= 1.90 7349E-06 y (19)= 9.53 6743E-07 y (20)= 1.56 3283E-08.

Список використовуваної літератури. Т.ЗВ. Быля, О. И. Быля «Вивчаємо інформатику, програмуючи на Бэйсике», видання 2-ге, виправлене, «Айріс рольф», 1997.