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

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

REM
REM      Контрольное вычисление
REM  7 ^ 77 = 1.181 813 865 805 959 D+65
REM
 
DECLARE FUNCTION M! (i!)
DECLARE FUNCTION ST$ (n!)
DECLARE SUB Si7 ()
 
CLS
DIM SHARED S AS STRING
S = "49"
 
FOR i = 1 TO 75
   CALL Si7
NEXT
 
PRINT S
END
 
FUNCTION M (i)
   M = VAL(MID$(S, i, 1))
END FUNCTION
 
SUB Si7
   DIM t AS STRING
  
   FOR i = LEN(S) TO 1 STEP -1
      a = 7 * M(i) + p
      b = a MOD 10
      p = a \ 10
      t = ST(b) + t
   NEXT
 
   IF p THEN
      S = ST(p) + t
   ELSE
      S = t
   END IF
END SUB
 
FUNCTION ST$ (n)
   ST = LTRIM$(STR$(n))
END FUNCTION

Код к задаче: «Вычислить 7 ^ 77 - QBasic»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ