zadach13.BAS

{* Задача13 *}

REM basic

' Вычислить значение:
'


при

Исходные данные:

' b=2.5
' Диапазон и шаг изменения аргумента:
 



10 INPUT "b:", B: PRINT "b="; B
30 PRINT "ТАБЛИЦА ФУНКЦИИ Q(X):": PRINT "X", "Q"
40 For X = .1 To 1.1 Step .1
50 If B * X < 1 Then Q = B * X - LOG(B * X) / LOG(10)
60 If B * X = 1 Then Q = 1
70 If B * X > 1 Then Q = B * X + LOG(B * X) / LOG(10)
80 PRINT X, Q
90 Next X
100 End