Реферат: Basic

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)