第９講 ユークリッド互除法

第８話 ユークリッド互除法を利用した分数の足し算の完成

を実現するプログラム例
#! ruby -Ks
def f(a,b)
　a=a%b;
　if a==0 then
　　return b
　end
　f(b,a);
end
def g(a,b)
　if b>a then
　　w=a
　　a=b
　　b=w
　end
end
a=0
while a==0
　a=rand(100)
end
b=0
while b==0
　b=rand(100)
end
c=0
while c==0
　c=rand(100)
end
d=0
while d==0
　d=rand(100)
end
m=c
n=d
g(c,d)
w=f(m,n)
v=c*d/w
bn=a*(v/c)+b*(v/d)
print a,"/",c,"+",b,"/",d,"=",bn,"/",v
bnc=bn
bbc=v
g(bnc,bbc)
w=f(bnc,bbc)
if w>1 then
print "=",bn/w,"/",v/w,"\n"
end

参考ダウンロード添付ファイル



第７話へ　第10講第１話へ

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
vba 2013 2010 2007 入門へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門（Visual C++ 2010で学ぶ C言語 C++ 入門）
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門第１部へ
本サイトトップへ