一個有趣的數學題：歐拉計劃第33題，有興趣的同學看過來

pacelife · 發表于 2015-12-14 22:16:08

程序見圖片，沒有進行優化

鋼鐵俠2014 · 發表于 2015-12-16 22:16:16

鋼鐵俠2014 發表于 2015-12-14 10:46
- H: ~5 ]# M$ P! f/ |很有意思的小題目啊，剛好最近在學python，晚上回家寫個小程序算算

我的程序丑爆了。。。matlab
clear all
a=(10:99)';
b=10:99;
k=1;
c={};
for i=1:90
for j=1:90
      if a(i)<b(j)
         if floor(a(i)/10)==floor(b(j)/10)
            if a(i)/b(j)==(a(i)-10*floor(a(i)/10))/(b(j)-floor(b(j)/10)*10)
                  c{k}=[a(i);b(j)];
                  k=k+1;
            end
         end
      end
end
end
for i=1:90
for j=1:90
      if a(i)<b(j)
         if (a(i)-floor(a(i)/10)*10)==floor(b(j)/10)
            if a(i)/b(j)==floor(a(i)/10)/(b(j)-floor(b(j)/10)*10)
                  c{k}=[a(i);b(j)];
                  k=k+1;
            end
         end
      end
end
end
for i=1:90
for j=1:90
      if a(i)<b(j)
         if floor(a(i)/10)==(b(j)-floor(b(j)/10)*10)
            if a(i)/b(j)==(a(i)-10*floor(a(i)/10))/(floor(b(j)/10))
                  c{k}=[a(i);b(j)];
                  k=k+1;
            end
         end
      end
end
end
for i=1:90
for j=1:90
      if a(i)<b(j)
         if (a(i)-floor(a(i)/10)*10)==(b(j)-floor(b(j)/10)*10)
            if a(i)/b(j)==(floor(a(i)/10))/(floor(b(j)/10))
                  c{k}=[a(i);b(j)];
                  k=k+1;
            end
         end
      end
end
end

[16;64]
[19;95]
[26;65]
[49;98]

Hello.KT · 發表于 2015-12-18 09:05:43

牛！！！！！！

我就是我212 · 發表于 2016-11-18 15:09:19

都是牛人

般若李 · 發表于 2018-4-12 16:59:52

amcordant · 發表于 2019-2-18 10:10:48

學習了都是大神啊

Hassanzzz · 發表于 2019-2-20 15:16:14

前排都是大神，我只會用筆算排除得到答案。

shajiallj · 發表于 2019-2-22 11:23:24

慚愧，連題目都沒看懂

火花水月 · 發表于 2019-6-6 11:43:40

感謝分享

		自動登錄	找回密碼
密碼			注冊會員

一個有趣的數學題：歐拉計劃第33題，有興趣的同學看過來

本帖子中包含更多資源