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