Найти решение уравнения на заданном интервале - QBasic

Формулировка задачи:

Задача: Найти уравнение lgx-2^x=0 на интервале[1,2] с точностью e=0.005 Решение

                    Листинг программы
                
 
                        
                          
                    
DIM a, b, AS INTEGER
DIM h, x, f AS SINGLE
CLS
INPUT "Vvedite A ,B,H"a,b,h
FOR x= a TO b + h/10 STEP h
f= LOG(x) / LOG (10)-2^(x*-1)
PRINT "x";x, "f=";f
NEXT x

и мне выдает таблицу далее, в полученной таблице выделяем интервл [1.8,1.9] на котором функция f меняет знак , так как f(1.8)<0 ,a f(1.9)>0 нужно протабулировать функцию на отрезке [1.8,1.9] длиной 0.1 с шагом h=0.01 как дальше вводить? должна получиться таблица

                    Листинг программы
                
 x=1.87                         x=1.88 
Y=-1.732e-03                Y=2.474e-03

у меня не получается она..подскажите что ввести чтобы она получилась??[/COLOR]

Решение задачи: «Найти решение уравнения на заданном интервале»

textual
                            Листинг программы 
                        
 
                        
                          
                    
CLS
DEF fnf (x) = LOG(x) / LOG(10) - 2 ^ x
 
PRINT "  x         y"
PRINT
FOR x = 1 TO 2.00001 STEP .1
   y = fnf(x)
   PRINT USING " #.# ####.######"; x; y
NEXT x
END