Написать калькулятор с определение деления на ноль- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
DO
    INPUT "Enter first value: ", c1
    INPUT "Enter operation(+,-,*,/): ", c2$
    INPUT "Enter second value: ", c3
LOOP UNTIL INSTR("+-*/", MID$(c2$, 1, 1))
IF c2$ = "+" THEN c4 = c1 + c3
IF c2$ = "/" THEN
    IF c3 <> 0 THEN c4 = c1 / c3 ELSE PRINT "division by zero": END
END IF
IF c2$ = "*" THEN c4 = c1 * c3
IF c2$ = "-" THEN c4 = c1 - c3
  
PRINT c4

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

Похожие записи/страницы:

Leave a Comment