累加寫法 |
答題得分者是:P.D.
|
andychen8888
一般會員 發表:14 回覆:25 積分:7 註冊:2007-02-05 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
給您一個 hint 宣告二個 integer 變數, 一個給 for 當計數器用, 一個用來存放加總值, 初值為 0; 然後用一個 for ..... end; 就可完成 對寫程式來說 for 是 一定要會 也 一定會用到 的. 建議您自己試一下. ===================引 用 andychen8888 文 章=================== 請教各位大大,小弟要求1 2 3 ....... 50的總和 請問要怎麼寫,煩請各位大大解答!感恩
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
cobraliu
中階會員 發表:15 回覆:75 積分:83 註冊:2007-11-22 發送簡訊給我 |
這真叫人不知如何回答...
1、用迴圈累加到50... 2、帶公式(N 1)*(N/2) ===================引 用 andychen8888 文 章=================== 請教各位大大,小弟要求1 2 3 ....... 50的總和 請問要怎麼寫,煩請各位大大解答!感恩
------
初學、初學、學了很久...還是在初學階段..Orz
編輯記錄
cobraliu 重新編輯於 2008-12-09 14:44:00, 註解 無‧
|
andychen8888
一般會員 發表:14 回覆:25 積分:7 註冊:2007-02-05 發送簡訊給我 |
|
cobraliu
中階會員 發表:15 回覆:75 積分:83 註冊:2007-11-22 發送簡訊給我 |
你想想當
x=0,你的y:=x 1是加多少呢? x=1,你的y:=x 1是加多少呢? x=2,你的y:=x 1是加多少呢? ...依此類推 ===================引 用 andychen8888 文 章=================== procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; begin for x:=0 to 49 do y:=x 1; Label1.Caption:=IntToStr(y); end; 這樣寫法是哪裡錯,請各位大大指教!
------
初學、初學、學了很久...還是在初學階段..Orz |
nadawudi
一般會員 發表:6 回覆:7 積分:2 註冊:2008-12-01 發送簡訊給我 |
|
andychen8888
一般會員 發表:14 回覆:25 積分:7 註冊:2007-02-05 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
1.你要從 1+...+50, 幹麼從0算
2.改紅字部份就ok! ===================引 用 andychen8888 文 章=================== procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; begin y:= 0; for x:=1 to 50 do y:= y x; Label1.Caption:=IntToStr(y); end; 這樣寫法是哪裡錯,請各位大大指教! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |