QBASICBOOK.ru: сайт про QB64

Задача. Написать простейший калькулятор, выполняющий четыре действия – сложение, вычитание, умножение, деление.

Это задача на повторение пройденного. Здесь вы должны самостоятельно разобраться в исходном коде программы. Здесь ничего нового не будет, а если и будет, то я расскажу об этом.

Вот исходный код программы:

---

1. INPUT "VVEDITE PERVOE CHISLO - "; C1
2. METKA:
3. INPUT "VVEDITE OPERATSIYU (+, -, *, /) - "; OP$
4. IF NOT OP$ = "+" XOR OP$ = "-" XOR OP$ = "*" XOR OP$ = "/" THEN GOTO METKA
5. INPUT "VVEDITE VTOROE CHISLO - "; C2
6. IF OP$ = "+" THEN C = C1 + C2
7. IF OP$ = "-" THEN C = C1 - C2
8. IF OP$ = "*" THEN C = C1 * C2
9. IF OP$ = "/" THEN C = C1 / C2
10. PRINT "REZULTAT = "; C

---

Рисунок 1 – Пример написания простейшего калькулятора

Рисунок 2 – Тестирование простейшего калькулятора

Самостоятельно разберите исходный код программы.

Новыми операторами здесь являются:

• IF NOT – ЕСЛИ НЕ – Логическое отрицание;
• XOR – ИСКЛЮЧАЮЩЕЕ ИЛИ – Не может быть две операции одновременно: или первая или вторая.

Таблица истинности будет такая:

Таблица 1 – Таблица истинности для операций NOT и XOR

A	B	NOT A	A XOR B
ЛОЖЬ	ЛОЖЬ	ИСТИНА	ЛОЖЬ
ЛОЖЬ	ИСТИНА	ИСТИНА	ИСТИНА
ИСТИНА	ЛОЖЬ	ЛОЖЬ	ИСТИНА
ИСТИНА	ИСТИНА	ЛОЖЬ	ЛОЖЬ

Рассмотрите эту таблицу. По большому счету она очень простая. Что бы ее понять просто почитайте про логические операции ИСКЛЮЧАЮЩЕЕ ИЛИ и НЕ.

«А можно ли ещё как-нибудь запрограммировать такое», – спросите вы? Я отвечу – «конечно, да». Программист сам должен выработать свой стиль программирования. Не обязательно всегда повторять за мной.

Вот ещё один способ написания этой программы, который я считаю более правильным. Этот способ выполнен через оператор выбора множественного выбора SELECT...CASE:

---

1. METKA:
2. INPUT "VVEDITE PERVOE CHISLO - "; C1
3. INPUT "VVEDITE OPERATSIYU (+, -, *, /) - "; OP$
4. INPUT "VVEDITE VTOROE CHISLO - "; C2
5. SELECT CASE OP$
6.   CASE "+"
7.     C = C1 + C2
8.   CASE "-"
9.     C = C1 - C2
10.   CASE "*"
11.     C = C1 * C2
12.   CASE "/"
13.     C = C1 / C2
14.   CASE ELSE
15.     PRINT "NEIZVESTNAYA OPERATSIYA"
16.     GOTO METKA
17. END SELECT
18. PRINT "REZULTAT = "; C

---

 

Рисунок 3 – Пример написания простейшего калькулятора при помощи SELECT...CASE

Рисунок 4 – Тестирование простейшего калькулятора

Ну на этом я думаю можно закончить. В следующих статьях мы поговорим о более интересных вещах, таких как – массивы, циклы, подпрограммы и ещё много о чем-нибудь интересном.

Спасибо за прочтение этой статьи.