以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  求一个解方程的公式  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=143282)
--  作者：龙龙啊
--  发布时间：2016/11/23 16:14:06
--  求一个解方程的公式

  a、b、c、d为已知数，要满足(a-x)/b和(c-x)/d都为整数，，，求x？？？？？？？？

 

把x从1到100 ，逐一代入计算，直到满足条件。。。。

 

求公式怎么编？？？
--  作者：jinzhe
--  发布时间：2016/11/23 16:19:45
--  

ss:=0;

for x=1 to 100 do begin

    if floor((a-x)/b)= (a-x)/b and floor((c-x)/d)= (c-x)/d then begin

         ss:=x;

         break;

    end

end

 

ss为所求值
--  作者：龙龙啊
--  发布时间：2017/2/1 13:46:26
--  

@jinzhe    老师好，还是同样的问题，，，，把x从1到100 ，逐一代入计算，把满足条件的x的值都显示出来，怎么做???????????????????
--  作者：jinzhe
--  发布时间：2017/2/3 9:04:09
--  

variable:n[100]=0;

ss:=0;

for x=1 to 100 do begin

    if floor((a-x)/b)= (a-x)/b and floor((c-x)/d)= (c-x)/d then begin

         x:=n[x];     

    end

end

for i=1 to 100 do begin

   if n[i]<>0 then drawtext(1,close+x,numtosrtr(x,0));

end