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

Pi közelítő program Casio grafikus számológépre akár 200 tizedesjegyig

2010.03.20. 14:02 Sany80

Cass Lewart Texas Instrumenst grafikus számológépekre írt pi közelítő (meghatározó) programját átírtam Casio számológépekre.

A forráskód:

255 -> Dim List 1;

255 -> Dim List 2;

"SZAMJEGYEK"? -> N;

N*ln 10 / ln 4 -> S;

1+int(ln(S*S*16)/ln 10 -> M;

M-1 -> E;

E+N -> N;

1 -> C;

While C <= N;

0 -> List 1[C;

0 -> List 2[C;

Isz C;

WhileEnd;

5 -> List 1[2;

5 -> List 2[2;

2 -> G;

1 -> A;

"A KOVETKEZO JEGY....";

While G < N;

A*A -> U;

A+2 -> A;

(A-1)*A*4 -> D;

G -> C;

While C <N;

List 2[C]*U -> List 2[C;

Isz C;

WhileEnd;

G -> C;

0 -> R;

While C<N;

R*10+List 2[C -> R;

While R<D And C<N;

0 -> List 2[C;

Isz C;

R*10 -> List 2[C;

WhileEnd;

Int (R/D -> X;

X -> List 2[C;

R-X*D -> R;

Isz C;

WhileEnd;

While List 2[G]=0 And G<N;

Isz G;

WhileEnd;

G -> C;

While C<=N;

List 2[C]+List 1[C] -> List 1[C;

Isz C;

WhileEnd;

If G<=N-E;

Then Locate 5,5,G;

IfEnd;

WhileEnd;

1 -> C;

While C <N;

List 1[C]*6 -> List 1[C;

Isz C;

WhileEnd;

N -> C;

While C>1;

If List 1[C]>9;

Then List 1[C]/10 -> P;

10 * Frac P -> List 1[C;

List 1[C-1]+Int P -> List 1[C-1;

IfEnd;

C - 1 -> C;

WhileEnd;

0 -> List 1[N;

0 -> List 1[N-1;

0 -> List 1[N-2;

"VEGE"

 

 És egy másik, apró program, ami listázza a pi jegyeit a képernyőn:

ClrText;

Locate 1,1,"3.";

2 -> A;

3 -> X;

1 -> Y;

While A<21*7;

Locate X,Y,List 1[A;

Isz A;

Isz X;

X>21 => Isz Y;

X>21 => 1->X;

WhileEnd;

Locate 2,1,".";

 

 

 

 

 

Szólj hozzá!

Címkék: pi program casio forráskód

A bejegyzés trackback címe:

https://szamologep.blog.hu/api/trackback/id/tr151854569

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 és az adatvédelmi tájékoztatóban.

Nincsenek hozzászólások.