и возвращает только остаток деления: A MOD B.
Он вычисляет остаток от деления, например:
1. 14 MOD 5 = 4
2. 11 MOD 4 = 3
3. 17 MOD 3 = 2
4. 15 MOD 2 = 1
Пример 1: Определение чётности или нечётности числа.
CLS
INPUT "Введите число N=", N
IF N MOD 2 THEN PRINT "Число нечётное" ELSE PRINT "Число чётное"
END
Пример 2: Разработать программу нахождения и вывода
на экран всех чисел, оканчивающихся на 5,
и делящихся на 3, из диапазона чисел от 5 до 1000.
CLS
FOR i = 5 TO 1000 STEP 5
x = i MOD 3
IF x = 0 THEN PRINT i;
NEXT i
END
Пример 3: Определите, является ли число простым, или нет.
Натуральное число N называется простым,
если его делителями являются только два числа: 1 и N.
CLS
INPUT "Введите число N=", N
IF N <= 3 THEN GOTO 10
d = 2
IF N MOD 2 = 0 THEN GOTO 20
d = 3
FOR i = 1 TO N
d = d + 2
IF N MOD d = 0 THEN GOTO 20
IF N <= d * d THEN GOTO 10
NEXT i
10 PRINT "Число N-простое."
INPUT "Для продолжения - Enter.", z
END
20 PRINT "Число N-составное. Оно делится на"; d
INPUT "Для продолжения - Enter.", w
END
Некоторые полезные команды QBasic.
Оператор LOCATE a, b - указывает позицию экрана (a-строка, b-столбец), начиная с которой будет печататься текст или число. Обычно используется перед оператором PRINT. Пример: LOCATE 4, 10: PRINT "Здравствуй, мир!";
Оператор SWAP X1, X2 - заставляет переменные X1 и X2 обменяться своими значениями. Пример:
X = 3
Y = 5
SWAP X, Y
