1樓:匿名使用者
dim s,s1,i,j,n as longn=clng(text1)
s=0for i=1 to n
s1=0
for j= 1 to i
s1=s1+j
next j
s=s+s1
next i
text2=s
用c語言編寫程式,求s=1+(1+2)+(1+2+3)+(1+2+3+4)+(1+2+3+4+...n)。
2樓:育知同創教育
#include "stdio.h"
void main()
}利用for迴圈,根據式子的特性進行相加,得專出最終結果屬。
3樓:有沒有胡楊
迴圈求出每一個括號內的和,設為i,這個應該好求吧,在迴圈結束前加上s=s+i!祝你好運,哥們!
4樓:匿名使用者
#include
int main()
printf("s=%d\n",s);
getch();
return 0;}
5樓:匿名使用者
main()
printf(%d,s);}
6樓:匿名使用者
littleboyzzm想得不錯,可惜成了死迴圈
7樓:匿名使用者
#include
main()
printf("%d\n",s);}
編寫一個vb程式,求 1+1/2+1/3+1/4+......+1/n 的值。(測試資料:n=50 答案:4.50)
8樓:匿名使用者
private sub ***mand1_click()print "第3題:";
dim n as integer, s as doublen = inputbox("n=", , 50)for i = 1 to n
s = s + 1 / i
next i
print "sum(" & n & ")="; format(s, "0.00")
end sub
private sub ***mand2_click()print "第4題:";
dim n as integer, s as doublen = inputbox("n=", , 50)for i = 1 to n
s = s + (-1) ^ (i - 1) * (1 / i)next i
print "sum(" & n & ")="; format(s, "0.00")
end sub
private sub ***mand3_click()print "第5題:";
dim n as integer, s as doublen = inputbox("n=", , 20)for i = 1 to n
for j = 1 to i
s = s + j
next j
next i
print "sum(" & n & ")="; send sub
private sub ***mand4_click()print "第6題:";
dim n as integer, s as doublen = inputbox("n=", , 50)for i = 1 to n
if i mod 3 = 0 or i mod 7 = 0 thens = s + i
end if
next i
print "sum(" & n & ")="; send sub
private sub ***mand5_click()print "第7題:";
dim n as integer, s as doublen = inputbox("n=", , 10)s = 1
for i = 1 to n
s = s * i
next i
print n & "!="; s
end sub
9樓:
^^private sub form_click()dim i as integer
dim x as single
for i = 1 to 50
x = x + 1 / i
next
print x
end sub
private sub form_click()dim i as integer
dim x as single
for i = 1 to 50
x = x + (-1) ^ (i - 1) / inext
print x
end sub
函式遞迴
private sub form_click()print f(50)
end sub
public function f(x as integer) as single
if x > 1 then
f = f(x - 1) + (-1) ^ (x + 1) / xelse
f = 1
end if
end function
vb程式設計s=1+(1+2)+(1+2+3)+(1+2+3+4)+...+(1+2+3+4+...+n)用for單迴圈求前30項的和
10樓:匿名使用者
vb程式設計
程式設計是編寫程式的中文簡稱,就是讓計算機為解決某個問題而使用某種程式專設計語
屬言編寫程式**,並最終得到相應結果的過程。
為了使計算機能夠理解人的意圖,人類就必須要將需解決的問題的思路、方法、和手段通過計算機能夠理解的形式告訴計算機,使得計算機能夠根據人的指令一步一步去工作,完成某種特定的任務。這種人和計算機之間交流的過程就是程式設計。
程式設計:設計具備邏輯流動作用的一種「可控體系」【注:程式設計不一定是針對計算機程式而言的,針對具備邏輯計算力的體系,都可以算程式設計】
例子:1比如編寫一段**程式2編寫一個控制裝置體系。
用c語言編寫程式,求s=1+(1+2)+(1+2+3)+(1+2+3+4)+(1+2+3+4+...n)。 20
11樓:匿名使用者
staticvoidmain(stringargs)console.writeline("結果回
是答:",sum);console.readkey();}
vb問題求s=1+(1+2)+(1+2+3)+...+(1+2+3+...+n)
12樓:匿名使用者
private sub ***mand1_click()dim i as integer
dim j as integer
dim n as integer
dim s as integer
dim s0 as integer
n = val(text1.text)
s = 0
for i = 1 to n
s0 = 0
for j = 1 to i
s0 = s0 + j
next
s = s + s0
next
text1.text = s
end sub
13樓:匿名使用者
num = 0
s = 0
n=inputbox(
來"輸入
自n的值")
for i = 1 to n
num = num + i
s = s + num
next i
print s
vb求s=1+(1+2)+(1+2+3)+(1+2+3+4)+...+(1+2+3+4+n)用 20
14樓:jw木有道理
private sub ***mandbutton1_click()dim i, sumi, s as integeri = 1
s = 0
sumi = 1
doi = i + 1
sumi = sumi + i
s = s + sumi
loop until s > 5000
textbox1.text = "前" & i & "項的和=" & s
end sub
vb程式設計題設計程式求VB程式設計題設計程式求s1234n1n的值並輸出，其中n是從鍵盤輸入大於1的正整數
照樓主的題目，n不是大於1的正整數，應該是大於回1的正偶數才對答吧？private sub mand1 click n val inputbox n if n mod 2 1 then exit subt 1 2 s t for i 3 to n 1 step 2t t i i 1 i 1 i 1 ...
怎樣用VB語言設計抽號機，怎樣用VB語言設計一個抽號機
不重複的抽號機 我幫你實現 怎麼用vb做抽號機 private sub command1 click randomize text1.text int 1 999 1 rnd 999 end sub 如何用vb製作隨機學號抽取器？這個需要應用以下幾個步驟 寫一個獲取隨機學號函式。將這個函式繫結在某個...
怎樣用VB計算圓的面積和周長，設計VB計算圓的面積與周長
就兩個公式嘛 圓的周長 2 半徑 圓周率 直徑 圓周率 即 圓的周長 2 r 或 d 面積 s r 或s d 2 程式，自己弄一個textbox 1用來輸入圓的半徑textbox2用來顯示計算結果周長 textbox3用來顯示計算結果面積 新增兩個button1命名為計算圓的周長和麵積。定義常量 定...