對任意正整數(shù)n,請設計一個程序框圖,求s=1×2+2×3+3×4+…+n(n+1)的值,并寫出程序

1、輸入任意正整數(shù)n，首先判斷是否是1或2，是就輸出1或2，否就進行下一步

2、循環(huán)計算s=s+n(n+1)

3、n=n-1，判斷n是否等于0，是則跳出循環(huán)，輸出計算結(jié)果s，否就返回上一步繼續(xù)循環(huán)

Private Sub Command1_Click()

Dim n As Integer

n = InputBox("請輸入一個正整數(shù)")

Print "fun(N)=1*2+2*3+3*4+...+n*(n+1)結(jié)果為："; myfun(n)

End Sub

Private Function myfun(ByVal n As Integer) As Long

Dim m As Long

For i = 1 To n

m = m + i * (i + 1)

Next i

myfun = m

End Function

擴展資料

C語言的運算符主要用于構(gòu)成表達式，同一個符號在不同的表達式中，其作用并不一致。下面按計算的優(yōu)先順序，分別說明不同作用的表達式。需要特別指出，在C語言標準中，并沒有結(jié)合性的說法。

相同優(yōu)先級運算符，從左至右依次運算。注意后綴運算優(yōu)先級高于前綴。因此++i++應解釋為++(i++)。

而與或非的運算優(yōu)先級都不一樣，因此a && b || b && c解釋為(a && b) || (b && c)

合理使用優(yōu)先級可以極大簡化表達式。

怎么用python寫1*2*3*…*10的結(jié)果？

方法與圖示的是一樣的，使用for循環(huán)求解。上圖出現(xiàn)錯誤的原因為自帶IDE中只能進行簡單的交互操作，不能實現(xiàn)大范圍的程序編寫，在這里print(t)無法與for縮進一致，只能先使用for循環(huán)計算得到t，在新的一行中再次print得到t值。

如果想一次執(zhí)行得到t值，建議在file中編輯（或者使用其他集成開發(fā)環(huán)境，如jupyter等），以下使用python自帶IDE新建一個file執(zhí)行：

第一步：創(chuàng)建一個new file：

點擊file - new file

第二步：編寫上述代碼

新建一個file編寫代碼

第三步：點擊run運行

點擊運行

運行結(jié)果：運行結(jié)果如紅框所示（這里將這個文件保存為1.py）

運行結(jié)果

Python編寫一個函數(shù),求1*2*3*4...*n的乘積,編寫主程序,從鍵盤輸入一個整數(shù),并

代碼如下：

#coding=utf-8
n=int(input('請輸入一個正整數(shù)：'))
num=1
foriinrange(1,n+1):
num=num*i
print('結(jié)果：',num)

運行結(jié)果：

python程序設計s=1+1/2+1/3+....+1/n,求與八最接近的s的值與其對應的n值。

所以n是1673 ，s是7.999888

首先定義了一個初始最小差值 min_diff，以及對應的 s 和 n 值。然后使用兩個嵌套的循環(huán)來遍歷每一個可能的 n 值，并計算對應的 s 值。在計算出新的 s 值后，使用 abs 函數(shù)計算出與 8 的差值的絕對值，并與當前的最小差值進行比較。如果當前的差值比最小差值還要小，則更新最小差值和對應的 s 和 n 值。最后輸出最終的結(jié)果。

已知S=1*1+2*2+3*3+4*4+……+(N-1)(N-1)+N*N,從鍵盤輸入N計算S的值。寫出程序

'回答： '在VB或VBA中運行如下代碼 '即可運算并顯示出樓主想要的1與輸入的任何正整數(shù)之間的平方和 Sub jisuan() Dim s As Long s = 0 Dim N N = InputBox("請輸入一個整數(shù)N") N = Int(Val(N)) For i = 1 To N s = s + i * i Next MsgBox "1至" & N & "的平方和為：" & s End Sub