Один элемент диалоговой программы

echs · Регистрация: 23.10.2013

Author24 — интернет-сервис помощи студентам

Программе задается вопрос
"Сколько будет, если 123 умножить на 567?"
и она на него отвечает. При желании вы можете
усложнить программу. Пример вам дан...

QBasic/QuickBASIC

DECLARE FUNCTION M$ (k!)
 
CLS
DIM SHARED T AS STRING
DIM s AS STRING
DIM a AS STRING
DIM b AS STRING
DIM k AS INTEGER
 
T = "Сколько будет, если 123 умножить на 567?"
T = T + " "
i = 1
 
DO
   s = M(i)
   k = INSTR("1234567890", s)
   IF k AND n = 0 THEN
      DO WHILE k
         a = a + s
         i = i + 1
         s = M(i)
         k = INSTR("1234567890", s)
      LOOP
      n = 1
   ELSEIF k THEN
      DO WHILE k
         b = b + s
         i = i + 1
         s = M(i)
         k = INSTR("1234567890", s)
      LOOP
   END IF
   i = i + 1
LOOP UNTIL i >= LEN(T)
 
PRINT a + " * " + b + " = "; VAL(a) * VAL(b)
 
END
 
FUNCTION M$ (k)
   M = MID$(T, k, 1)
END FUNCTION

	02.05.2016, 10:47