{* Округление чисел с заданной точностью. *}

REM basic

' Округление вещественного числа с заданной точностью


10 n = 0
20 а = 0
30 CLS
40 INPUT " Введите значение числа n = "; n: {Ввод числа
}50 INPUT " Введите точность округления a = "; a: {Ввод точности
}60 n = n/a: {Вычисление количества "единиц точности"
}70 n = INT(n+.5): {Округление количества "единиц точности"
}80 n = n * a: {Вычисление результата
}90 PRINT " Результат округления "; n 100 End