1354156
ホーム \| 日記 \| プロフィール	【フォローする】【ログイン】

ひできちの楽天ブログ

【毎日開催】

15記事にいいね！で1ポイント

10秒滞在

いいね! --/--

次の日記を探す

おめでとうございます！
ミッションを達成しました。

※「ポイントを獲得する」ボタンを押すと広告が表示されます。

< 新しい記事

新着記事一覧(全873件)

過去の記事 >

2022/02/21

カシオの計算サイトでエラトステネスの篩をつくってみたとな？

(1)

テーマ：数学(278)

カテゴリ：数学と算数

カシオの計算サイトでエラトステネスの篩をつくってみましたよ

カシオと言えば関数電卓でございますので
こちらのサイトには沢山の計算プログラムが掲載されておりますよ

ですがなぜか「エラトステネスの篩」による素数生成のプログラムはありませんでしたので
つくってみることにしましたよ

カシオの計算サイトは関数電卓でプログラムが組めるのと同じように
自作の計算プログラムを作って公開して実行させることができるのですよ

しかも完全無料でございますよ

私は計算が趣味という理系の変人でございますので
1000桁の整数の計算などをしたくなってしまうのですが
カシオの計算サイトは50桁の精度で計算が可能なプログラムを組むことができるのですよ

今ではそういうプログラム言語はまったく珍しくもないのでございますが
それでも完全無料で計算プログラムの公開機能まで
きちんと日本語でいろいろと提供しているサイトは
カシオの計算サイトくらいしかないと思いますな

急になぜか思い立ってしまいまして
いくつか自作して公開しておりますが
そのうちの１つがこちらの「エラトステネスの篩」でございますよ

カシオの計算サイトでは自作プログラムのソースコードを公開する機能がありませんので
どうしたもんかと思いましたが

自作プログラムの説明欄に別サイトへのリンクを設定することは可能でしたので
このブログ記事にリンクをしてソースコードを掲載したいと思いますよ



do

{

MAXsieve;

numeric sieve[0];

numeric sieve[MAXsieve];

maxdv = int(sqrt(MAXsieve));

for (idx = 0; idx < MAXsieve ; idx=idx+1) {

    sieve[idx] = 1;

}

sieve[0] = 0;

sieve[1] = 0;

for(idx = 2; idx <= maxdv ; idx=idx+1) {

      if(sieve[idx] == 1) {

        for(j = idx * 2; j < MAXsieve ; j =j+ idx) {

            sieve[j] = 0;

        }

    }

}

}

while(false);



count=0;

println(0,MAXsieve);

for(idx = 2; idx < MAXsieve ; idx=idx+1) 

{

    if(sieve[idx]== 1)

    {

        count=count+1;

println(count,idx);

    }

}

とまぁエラトステネスの篩ですのでサンプルプログラムのレベルでしかありませんが
カシオの計算サイトの自作プログラムで利用できる言語はほとんど紹介されておりませんので

このくらいの短いソースコードも役にたつかもしれないと思いまして
公開いたしますよ

カシオの計算サイトで公開できる計算プログラム機能は
決して高性能な機能ではありませんので
すごいものは作れそうにありませんが
それでも計算プログラムを完全無料で公開できるというのは
なかなかよいサービスだと思いますよ

ただ性能が高くないので作りたいものが作れないというジレンマはありますな
まぁもちろんそういった性能が必要なプログラムは
自分のＰＣで実行すればよいのですけどね

お気に入りの記事を「いいね！」で応援しよう

最終更新日 2022/02/28　05:49:27 PM
コメント(1) | コメントを書く

[数学と算数] カテゴリの最新記事

■コメント

Re:カシオの計算サイトでエラトステネスの篩をつくってみたとな？(02/21)

knowif さん

これの改良できますか？

素数の表示のつもりです

for(count=1;
int(sqrt(n))<count;
count=count+1)
{
for(x=0;
x<count;
x=x+1){
if(mod(count，x)<>0)
{print(count);}
else{println()

;}

println();

}

}

Casio計算サイトあなたに挑戦！の方でコメントお願いします (2024/02/18　06:57:22 PM)