Возведение в степень - QBasic

  1. Надо найти следующее: 9^999999+9^999999


textual

Код к задаче: «Возведение в степень - QBasic»

Sub www()
    Dim a(250000) As Long, b  As Long, c As Long
    Dim i As Long, j As Long, l As Long, n As Long, m As Long
    Dim t As Single
    
    Open "Output.txt" For Output As #1
    
    n = 249999
    m = 6561
 
    a(0) = 1458
    
    t = Timer
    For i = 1 To n
        j = -1
        While j < l Or c > 0
            j = j + 1
            b = a(j) * m + c
            a(j) = b Mod 10000
            c = b \ 10000
        Wend
        l = j
    Next
    Print #1, a(l) & "";
    For i = 1 To l
        Print #1, Right$("0000" & a(l - i), 4);
    Next
    Close
    Debug.Print Timer - t
End Sub

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

9   голосов, оценка 4.333 из 5



Похожие ответы
  1. Задача Написать программу, которая распечатывает 20 членов случайной последовательности, обладающей следующими свойствами 1. последовательность состоит из чисел 1, 2, 3, 4 2. числа 1 и 3 не могут стоять рядом 3. числа 2 и 4 тоже не могут стоять рядом 4. каждое число может стоять в последовательности не более трёх раз подряд пример 1, 1, 1, 2, 3, 4, 4, 3, 3, 2, 1, 1, 4, 4, 4, 1, 4, 1, 2, 2 программа работает не совсем верно: она может выдать и 4 числа подряд. Проблему не решает даже второй счётчик (k, k2 - счётчики призванные контролировать повторение чисел)... подумал: может поставить счётчики на каждое число? нет, глупо, но где-то прокол?

  1. Текст записан в переменной S. И использовано его представление в виде множества. Конечно можно было просто в данном случае отсортировать текст. Но мне хотелось показать, что есть и такой вариант.

  1. Заданы два множества (смотрите в операторе DATA) Перевести эти множества в вид массивов. И произвести операцию объединения. примечание данная программа, в отличие от предыдущих работает с целыми числами и нулём в частности

  1. Даны натуральные числа от 1 до 1 000 000. Сосчитать, сколько чисел содержат в своем написании цифру 3. решение если вы посмотрите программу, то в строке 12 увидите, вместо цифры 3, цифру 7. (!!) и подумаете - "опечатка". Нет. Всё верно. Цифра 3 при записанном условии даст неверный результат. Почему? надо отметить, что все цифры (кроме 0) равноценны и их количество одинаково. Так почему автор поставил 7?

  1. Найти трёхзначное число, которое первым встретится дважды Условие задачи 1. Дан ряд чисел ln2, ln3, ln4, ln5, ln6, ln7, ... (длина не определена) то есть количество чисел вы должны взять столько, сколько нужно для решения задачи 2. Этот ряд преобразуется в следующий ряд по алгоритму. Поскольку числа вещественные, то надо после десятичной точки взять три цифры, которые образуют в общем случае трёхзначное натуральное число. 3. Эти числа и образуют новый ряд 4. Теперь надо найти в этом ряду такое число, которое первым встретится (считая с самого начала) два раза ... Вывести на экран это число и его местонахождение (два места)

  1. Найти сумму всех двузначных чисел, имеющих в записи цифру 1.

  1. Люди добрые, помогите перевести сие творение ку бейсик. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 const   n=5; var   a,b:array[1..n]of integer;   c:array[1..2*n]of integer;   d:integer; begin   for d:=1 to n do     begin       a[d]:=random(100);       write(a[d]:3);     end;   writeln;   for d:=1 to n do     begin       b[d]:=random(100);       write(b[d]:3);     end;   writeln;   for d:=1 to n do     begin       c[2*d-1]:=a[d];       c[2*d]:=b[d];     end;   for d:=1 to 2*n do     write(c[d]:3);   readln; end.