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

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

を実現するプログラム例
#! 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
print a,"/",c,"+",b,"/",d,"=",a*(v/c)+b*(v/d),"/",v,"\n"

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



この計算は、まだ途中です。
約分できるからです。
約分できる場合には、
約分もするように変更して下さい。


第６話へ　第８話へ

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 入門第１部へ
本サイトトップへ