填数字使等式成立

abababa

把0到9填入*号处，7和5已经写好了，每个数字只用一次，使等式成立
7 / * = * * / * * + * * / * 5
我试了一些找不出答案，也猜测这个等式是无解的，数字这么少应该能编程吧，可惜我不懂编程，请会的帮忙算一算

realnumber

程序显示唯一解7/2=39/18+60/45
刚学smallbasic,编得难看就不发程序了．

其妙

回复 2# realnumber
发一下嘛，也学习一下怎么编程的，

abababa

回复 2# realnumber

谢谢，虽然不会编程，但感觉这类问题用程序做很简单，是有限的不太大的组合种数

其妙

唯一解7/2=39/18+60/45，这里的60/45居然是没约分的！晕！

realnumber

找算式.sb (4.33 KB, Downloads: 1253)

2014-6-16 17:49 Upload

Click on the file to download the attachment

回复 3# 其妙
语法功能都不太清楚，直接搜索smallbasic，安装后可以打开

其妙

回复 6# realnumber
谢谢

tommywong

我编了个matlag的，但速度没realnumber那个快

1. c=[0 1 2 3 4 6 8 9];k1=length(c);
2. k2=8;
3. n1=0;n2=10;
4. for x=0:k1^k2-1
5.     b=zeros(1,k2);
6.     for y=1:k2
7.         r=rem(fix(x*k1^(1-y)),k1)+1;
8.         b(r)=b(r)+1;
9.         if(b(r)>1)break;end
10.     end
11.     if(max(b)>1)continue;end
12.     a=zeros(1,k2);
13.     for y=1:k2
14.         a(y)=c(rem(fix(x*k1^(1-y)),k1)+1);
15.     end
16.     if(7/a(1)==(10*a(2)+a(3))/(10*a(4)+a(5))+(10*a(6)+a(7))/(10*a(8)+5))
17.         fprintf('%d ',a);fprintf('\n');
18.         n1=n1+1;
19.     end
20.     if(n1==n2)break;end
21. end

Copy the Code

其妙

回复 8# tommywong
qb的你会编写吗？

kuing

回复 6# realnumber

原来还有后缀名叫 sb 的文件……

realnumber

回复 10# kuing


   挺合适的，有qbasic基础的话，学半小时就会了．