Вычислить 7 ^ 77 - QBasic

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

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

Решение задачи: «Вычислить 7 ^ 77»

textual
Листинг программы
DIM i AS LONG, j AS LONG, l AS LONG, a(999) AS LONG, b AS LONG, c AS LONG
a(0) = 1
FOR i = 1 TO 77
    j = -1
    WHILE j < l OR c > 0
        j = j + 1
        b = a(j) * 7 + c
        a(j) = b MOD 10
        c = b \ 10
    WEND
    l = j
NEXT i
FOR i = 0 TO l
    PRINT LTRIM$(STR$(a(l - i)));
NEXT i
PRINT

Объяснение кода листинга программы

  1. Установка начального значения переменной i равным 1.
  2. Установка начального значения переменной j равным -1.
  3. Установка начального значения переменной l равным -1.
  4. Установка начального значения переменной a(999) равным 1.
  5. Установка начального значения переменной b равным 0.
  6. Установка начального значения переменной c равным 0.
  7. Установка значения переменной a(0) равным 1.
  8. Цикл FOR для перебора значений i от 1 до 77.
  9. Установка начального значения переменной j равным -1.
  10. Условие WHILE для выполнения цикла, пока значение переменной j меньше значения переменной l или значение переменной c больше нуля.
  11. Увеличение значения переменной j на единицу.
  12. Вычисление значения переменной b как суммы произведения значения переменной a(j) на 7 и значения переменной c.
  13. Сохранение остатка от деления значения переменной b на 10 в переменной a(j).
  14. Вычисление значения переменной c как целой части от деления значения переменной b на 10.
  15. Повтор цикла WHILE до тех пор, пока значение переменной j меньше значения переменной l или значение переменной c больше нуля.
  16. Установка значения переменной l равным значению переменной j.
  17. Выход из цикла FOR.
  18. Цикл FOR для перебора значений i от 0 до значения переменной l.
  19. Вывод значения переменной a(l-i) с помощью функции PRINT.
  20. Выход из цикла FOR.
  21. Вывод символа новой строки с помощью функции PRINT.

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


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

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

15   голосов , оценка 4.267 из 5