1樓:匿名使用者
||#include
#include
using namespace std;
int main()}}
}return 0;}
編寫程式,求出所有小於或等於100的自然數對。自然數對是指兩個數的和與兩個數的差都是平方數。這個程
2樓:匿名使用者
a=sqrt(m-n);
a=sqrt(m+n);
放到for(n=1;n<100;n++)中,和下面一句同時用{}括起來
求vb程式設計100以內的所有自然數對。自然數對指其和與差都是平方數的兩個自然數。例如6 10=16.而16和4都是... 30
3樓:
你好,bai我來du
為你zhi解dao答:
版private sub ***mand1_click()dim i%, j%, m!
權, n!
for i = 1 to 100
for j = i + 1 to 100
m = sqr(i + j)
n = sqr(j - i)
if fix(m) = m and fix(n) = n then print i, j
next
next
end sub
4樓:智慧未來超人
dim a
dim b
for(i=0 to 100)
for(j=i+1 to 100)
a=(j-i)^(1/2)
b=(j+i)^(1/2)
if int(a)-a=0 and int(b)-b=0 then print i & "," & j & 「是自然數對」
next j
next i
我電腦上沒有vb 所以這麼沒有除錯,不知道有沒版有錯誤,不懂追問我權
5樓:匿名使用者
有些函式符號有點忘記了。
。。for x = 1 to 100
for y = 1 to x ' 不要重複的,就是顛倒順序後發現其實版是一致的那種需要刪掉權
tmpsum = cint(sqr(x + y))tmpdif = cint(sqr(x - y))if tmpsum * tmpsum = x + y and tmpdif * tmpdif = x - y then
print x, y
end if
next
next
6樓:匿名使用者
private sub ***mand1_click()for i = 1 to 99
for j = 1 to 99
if i = j then exit forif sqr(i + j) = int(sqr(i + j)) and sqr(abs(i - j)) = int(sqr(abs(i - j))) then
debug.print i & " " & jend if
next j
next i
end sub
結果5 4
10 6
13 12
17 8
20 16
25 24
26 10
29 20
34 30
37 12
40 24
41 40
45 36
50 14
52 48
53 28
58 42
61 60
65 16
65 56
68 32
73 48
74 70
80 64
82 18
85 36
85 84
89 80
90 5497 72
求所有小於或等於100的自然數對。自然數對是指兩個不同的自然數的和與差都是平方數。vb**詳細
7樓:聽不清啊
private sub ***mand1_click()dim i as integer, j as integerfor i = 0 to 99
for j = i + 1 to 100
if issq(i + j) and issq(j - i) then
print i; j,
k = k + 1
if k mod 5 = 0 then printend if
next j
next i
end sub
function issq(n as integer) as boolean
issq = int(sqr(n)) * int(sqr(n)) = n
end function
求vb程式設計100以內的所有自然數對自然數對指其和與
你好，bai我來du 為你zhi解dao答 版private sub mand1 click dim i j m 權,n for i 1 to 100 for j i 1 to 100 m sqr i j n sqr j i if fix m m and fix n n then print i,j...
設計演算法求出某個自然數的所有因子
逐個列舉 每一次都判斷是否是這個自然數的因子c 如下。for int i 1 i n i if n i cout 如果需要更高效的演算法 再聯絡我。c語言 編寫一個函式，求出一個給定數字的所有因子。1.對1 本身的各個數取餘，為零的即為其因子。include void factor int n pr...
求500到1000所有連續自然數的全部數字和是多少
千位數字和 1 百位數字和 5 6 7 8 9 100 3500十位數字和 1 2 3 9 500 10 2250個位數字和 1 2 3 9 500 10 2250全部數字和 1 3500 2250 2250 8001 11 0 1 2 3 4 5 6 7 8 9 5 100 5 6 7 8 9 1...