Zsebszámológép programok, forráskódok, hírek

2 az 500. hatványon az a szám, amelyet úgy kapunk, hogy kettőt megszorozzuk kettővel, majd ismét kettővel - összesen ötszázszor. Így egy 151 jegyű számot kapunk.

Az alábbi program kiszámítja ezt a számot, annak minden számjegyével együtt - de kiszámítható vele akár 2 a 64. hatványon is (amely egy jóval kisebb szám), és a sakk születésének legendájából ismert.

Prog "BIGNUMBR"

ClrText;

"2^N CALCULATION";

"N"?->N;

250->Dim List 1;

1->List 1[250;

0->W;

For 1->B To N;

Locate 18,3,B;

249-.4B->G;

For 250->A To G Step -1;

List 1[A]*2+W->List 1[A;

0->W;

If List 1[A]-10->List 1[A];

1->W;

IfEnd;

Next;

Next;

1->A;

Do;

Isz A;

LpWhile List 1[A]=0;

1->C;

Cls;

2->R;

For A->B To 250;

Text R,4C,List 1[B;

Isz C;

C>30=>R+8->R;

C>30=>1->C;

Next

A programot írta: Csetneki Sándor