{* Задача18 *}

REM basic

' вывести на экран алфавитно-цифрового дисплея график функции: f(x)=2-cosx
' в заданном диапазоне изменения аргумента x от a до b с числом точек графика n. Ширину поля графика w и расположение его относительно края экрана (параметр m) задать самостоятельно. Предусмотреть перед выводом графика печать вычисленных значений yi в виде таблицы, а также печать наибольшего и наименьшего значений функции



10 CLS : INPUT "число точек"; n: a = 0: b = 3 * 3.1415926# / 2: w = 40: m = 20
30 PRINT "таблица значений x, f(x) ": PRINT
40 DEF fnx (X) = 2 - COS(X)
50 h = (b - a) / n: min = fnx(a): max = fnx(a)
60 For X = a To b Step h
70 y = fnx(X)
80 If y < min Then min = y
90 If y > max Then max = y
100 PRINT X, y: Next X
110 PRINT : PRINT "ymin="; min, "ymax="; max
120 If INKEY$ = "" GoTo 120
130 CLS : my = (max - min) / w: OX = -INT(min / my + .5) + m: l = 1
140 PRINT TAB(m); INT(min * 100) / 100; TAB(30); INT((min + (max - min / 4)) * 100) / 100;
145 PRINT TAB(40); INT((max - min) * 100) / 100; TAB(50); max - (max - min) /4; TAB(60); max
150 For X = a To b Step h: l = l + 1
160 y = fnx(X): k = INT((y - min) / my + .5) + m
170 PRINT X;
175 If -h / 2 < X And h / 2 > X Then LOCATE l, m - 3: PRINT "-----------------------------------------------> y";
180 LOCATE l, k: PRINT "*"
190 Next X: PRINT TAB(OX); "x"
200 End