HTML

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

Egy blog zsebszámológép programokról, algoritmusokról, érdekességekről.

Játék

Szabadon letölthető, megújult Gazdálkodj okosan! stratégiai társasjáték szabállyal együtt.

Friss topikok

Linkblog

2 az 500. hatványon valamennyi számjegyének kiszámítása grafikus számológépen

2009.04.28. 17:59 Sany80

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

Szólj hozzá!

Címkék: program 2 casio 500 számológép grafikus basic hatvány

A bejegyzés trackback címe:

http://szamologep.blog.hu/api/trackback/id/tr931092042

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben.

Nincsenek hozzászólások.