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,".";
