Basic  : Информатика - на REFLIST.RU

Basic : Информатика - на REFLIST.RU

Система поиска www.RefList.ru позволяет искать по собственной базе из 9 тысяч рефератов, курсовых, дипломов, а также по другим рефератным и студенческим сайтам.
Общее число документов более 50 тысяч .

рефераты, курсовые, дипломы главная
рефераты, курсовые, дипломы поиск
запомнить сайт
добавить в избранное
книжная витрина
пишите нам
  Ссылки:
Австрия из Челябинска
Список категорий документа Информатика
Basic

Basic

комп-ры, График, График функции масштабирование работа с файлами, Basic, Программирование и комп-ры, Программирование, функции, работа, масштабирование, файлами Ключевые слова
страницы: 1 
Текущая страница: 1


МИНИСТЕРСТВО ОБЩЕГО И

ПРОФЕССИОНАЛЬНОГО ЮБРАЗОВАНИЯ РФ


ТАМБОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ

УНИВЕРСИТЕТ





КАФЕДРА ГАПС








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


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

Вариант №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 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 четверть.


- 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.




Текущая страница: 1

страницы: 1 
Список предметов Предмет: Информатика
Basic Тема: Basic
комп-ры, График, График функции масштабирование работа с файлами, Basic, Программирование и комп-ры, Программирование, функции, работа, масштабирование, файлами Ключевые слова: комп-ры, График, График функции масштабирование работа с файлами, Basic, Программирование и комп-ры, Программирование, функции, работа, масштабирование, файлами
   Книги:


Copyright c 2003 REFLIST.RU
All right reserved. liveinternet.ru

поиск рефератов запомнить сайт добавить в избранное пишите нам