1樓:匿名使用者
a=sqrt(m-n);
a=sqrt(m+n);
放到for(n=1;n<100;n++)中,和下面一句同時用{}括起來
求所有小於或等於100的自然數對。自然數對是指兩個不同的自然數的和與差都是平方數。vb**詳細
2樓:聽不清啊
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的自然數對。
3樓:匿名使用者
private sub form_activate()dim i%, j%, x%, y%
for i = 1 to 100
for j = 1 to i
x = i + j
y = i - j
if y > 0 then
if sqr(x) = int(sqr(x)) and sqr(y) = int(sqr(y)) then
print i, j
end if
end if
next j
next i
end sub
求vb程式設計100以內的所有自然數對。自然數對指其和與差都是平方數的兩個自然數。例如6 10=16.而16和4都是... 30
4樓:
你好,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
5樓:智慧未來超人
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 所以這麼沒有除錯,不知道有沒版有錯誤,不懂追問我權
6樓:匿名使用者
有些函式符號有點忘記了。
。。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
7樓:匿名使用者
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
編寫程式,求e的值。e1,編寫程式,求e的值。e11112131n1用for
include double fun int n int main 編寫程式,求e的值.e 1 1 1 1 2 1 3 1 4 1 n 1 用for迴圈,計算前30項 include stdio.h int mul int n else float func int n int main print...
編寫程式，實現從鍵盤上輸入數，求出它們的和及平均值，並顯示在螢幕上
include void main 忒簡單的 抄小程bai 序吧du，呵 zhi呵 不用陣列 dao，include main include stdio.h void main include include void main 老師會心寒的 用c語言程式設計 編寫一個程式，輸入4個數，求其平均值...
3x 1小於或等於 ，4 3x 1 1 小於或等於
4 3x 1 1 小於或等於 0如果x是整數的話，答案是 大於0 如果x是可以是小數的話，關鍵在於 3x 1 與1 4的關係當3x 1 1 4 或是 3x 1 1 4 即 x 5 12 或是 x 1 4 4 3x 1 大於1，也就是4 3x 1 1 0同理 x 5 12 或是 x 1 4 4 3x ...