Pi-t véletlenszámokkal közelítő program, Casio Basic nyelven.
a programot írta: Csetneki Sándor
Prog "PI"
WiewWindow 0,2,0,0,1,0;
F-Line 1.57,.8,.93,.8;
F-Line 1.57,.79,1.93,.79;
F-Line 1.66,.4,1.66,.8;
F-Line 1.68,.4,1.68,.8;
F-Line 1.83,.4,1.83,.8;
F-Line 1.84,.4,1.84,.8;
Green Text 1,70,"OSSZ.:";
Green Text 21,70,"KOR:";
Green Text 41,70,"~PI:";
0->B;
For 1->A To 6000;
Plot Ran#,Ran#;
Plot X,Y;
.25>(.5-X)(.5-X)+(.5-Y)(.5-Y);
Ans=>Orange Plot X,Y;
Ans=>Isz B;
Text 11,70,A;
Text 31,70,B;
Text 51,70,4B/A;
Next