Rem 2^301 calculation

p=100

graphsize 1000,5

Dim Prod(p+1)

Prod[0]=1

for b = 0 to 300

for t = 0 to p-1

Prod[t]=Prod[t]*2

next t

Rem Carying

for x = 0 to p-2

While Prod[x]>9

Prod[x]=Prod[x]-10

Prod[x+1]=Prod[x+1]+1

end While

next x

Rem Printing

Print "2^"+(b+1)+" = ";

for x = 0 to p

Print Prod[p-x];

next x

print

next b

## Tuesday, December 14, 2010

Subscribe to:
Post Comments (Atom)

## No comments:

## Post a Comment