Проверьте численно первый замечательный предел lim(n->0)(sinx/x)=1, задавая х значения 1; 0,5; 0,25; 0,125;… до тех пор, пока левая часть равенства не будет отличаться от правой менее чем на заданную погрешность e.- QBasic(Бейсик)

CLS
DEFDBL A-Z: x = 1
INPUT "vvedite e"; e
DO
    PRINT SIN(x) / x
    x = x / 2
LOOP UNTIL 1 - SIN(x) / x <= e

Тестирование выполнено в программе QB64 ( Скачать )