Написать программу умножения и деления десятичный чисел с плавающей запятой - QBasic

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста написать программу умножения и деления десятичный чисел с плавающей запятой. Исходные числа и результат должны иметь следующую форму: "0.nnnnn*10^mmm" (исходные данные вводятся с клавиатуры). Заранее благодарен!

Решение задачи: «Написать программу умножения и деления десятичный чисел с плавающей запятой»

textual
Листинг программы
  1. CLS
  2. PRINT "Enter first number :";
  3. INPUT a$
  4. PRINT "Enter second number:";
  5. INPUT b$
  6. PRINT "Enter 'm' for multiplicaion or 'd' for division:";
  7. INPUT action$
  8.  
  9. i = 2
  10. DO WHILE i > 0
  11.         SWAP a!, b!: SWAP ja, jb
  12.         j = 3
  13.         DO WHILE MID$(b$, j, 1) <> "*"
  14.                 j = j + 1
  15.         LOOP
  16.         ja = j
  17.         a! = VAL("0." + MID$(b$, 3, j - 3))
  18.         SWAP a$, b$
  19.         i = i - 1
  20. LOOP
  21. i = 2
  22. a% = VAL(MID$(a$, ja + 4, LEN(a$) - ja - 3))
  23. b% = VAL(MID$(b$, jb + 4, LEN(b$) - jb - 3))
  24.  
  25. IF LCASE$(action$) = "m" THEN
  26.         r! = a! * b!
  27.         r% = a% + b%
  28. END IF
  29.  
  30. IF LCASE$(action$) = "d" THEN
  31.         r! = a! / b!
  32.         r% = a% - b%
  33.         IF r! >= 1 THEN
  34.                 DO WHILE INT(r!) <> 0
  35.                         p = p + 1
  36.                         r! = r! / 10
  37.                 LOOP
  38.         END IF
  39. END IF
  40.  
  41. IF r% + p > 0 THEN
  42.         r$ = "0" + LTRIM$(STR$(r!)) + "*10^" + LTRIM$(STR$(r% + p))
  43. ELSE
  44.         r$ = "0" + LTRIM$(STR$(r!))
  45. END IF
  46. PRINT "Result: "; r$

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.857 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы