Basic

Категория реферата: Рефераты по информатике, программированию
Теги реферата: договор реферат, фирма реферат
Добавил(а) на сайт: Аверьянов.

Главная программа осуществляет обращение к файлам, управление процедурами и построение графика заданной функции.

Процедура – подпрограмма осуществляет построение координатной сетки и ее разметки.

Процедура – функция позволяет рассчитать значение заданной функции.

Файл 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

Поделитесь этой записью или добавьте в закладки