早教吧作业答案频道 -->数学-->
VF怎么样写输入3个数求最小公倍数和最大公约数
题目详情
VF怎么样写输入3个数求最小公倍数和最大公约数
▼优质解答
答案和解析
CLEAR
input "第一个数:" to n1
input "第二个数:" to n2
input "第三个数:" to n3
n=0
lflag=.t.
gy=.t.
DO while lflag
n=n+1
k=MAX(n1,n2,n3)
FOR j=k to 1 step -1
IF INT(n1/j)=n1/j
if INT(n2/j)=n2/j
if INT(n3/j)=n3/j .and.gy
"最大公约数:",j
gy=.f.
EXIT
ENDIF
ENDIF
ENDIF
ENDFOR
IF INT(n/n1)=n/n1 .and.INT(n/n2)=n/n2 .and.INT(n/n3)=n/n3
"最小公倍数:",n
lflag=.f.
ENDIF
ENDDO
input "第一个数:" to n1
input "第二个数:" to n2
input "第三个数:" to n3
n=0
lflag=.t.
gy=.t.
DO while lflag
n=n+1
k=MAX(n1,n2,n3)
FOR j=k to 1 step -1
IF INT(n1/j)=n1/j
if INT(n2/j)=n2/j
if INT(n3/j)=n3/j .and.gy
"最大公约数:",j
gy=.f.
EXIT
ENDIF
ENDIF
ENDIF
ENDFOR
IF INT(n/n1)=n/n1 .and.INT(n/n2)=n/n2 .and.INT(n/n3)=n/n3
"最小公倍数:",n
lflag=.f.
ENDIF
ENDDO
看了 VF怎么样写输入3个数求最小...的网友还看了以下:
2个函数公式怎么拼一块,就是sum/counta公式,怎么把这个公式做进一个空格里面去????求高 2020-05-14 …
一种农药浓度是368.9ppm稀释1000倍怎么计算?一种农药它的浓度是368.9mg/l请问稀释 2020-05-21 …
复式公式怎么算?复利计算公式F=P*(1+i)N(次方)F:复利终值P:本金i:利率N:利率获取时 2020-06-07 …
电子秤一公斤怎么突然变两公斤了今天秤东西发现不对劲结果拿到别的秤上一看才发现比别人的秤高出一倍还多 2020-06-30 …
某个数增加n倍和减小n倍怎么计算比如1增加2倍是多少,1减小2倍是多少,1减小1倍是多少,1增加一 2020-07-04 …
高中三角函数好多公式,什么两角和差,半角公式啦,二倍角啦,还有什么万能公式,积化和差等等,那么多公 2020-07-04 …
圆形的周长扩大至原来的2倍,它的面积比原来增大多少:怎么能算出来啊,有没有公式?怎么具体运算啊 2020-07-13 …
母鸡比公鸡多234.母鸡是公鸡的4倍.母鸡和公鸡各多少只、公式怎么算 2020-07-19 …
总有效成份浓度值(毫克/千克)=(制剂含量*1000000)/知己稀释倍数有效成份含量20%的百草 2020-07-20 …
1:a-2(sin75)^2求简便方式2:sin22.5*sin202.5+cos22.5*cos 2020-08-02 …