請教各位大大，小弟要求1 2 3 ....... 50的總和 請問要怎麼寫，煩請各位大大解答！感恩

您好,

給您一個 hint
宣告二個 integer 變數, 一個給 for 當計數器用, 一個用來存放加總值, 初值為 0;

然後用一個 for ..... end; 就可完成


對寫程式來說 for 是 一定要會 也 一定會用到 的.
建議您自己試一下.

===================引 用 andychen8888 文 章===================
請教各位大大，小弟要求1 2 3 ....... 50的總和 請問要怎麼寫，煩請各位大大解答！感恩

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

這真叫人不知如何回答...
1、用迴圈累加到50...
2、帶公式(N 1)*(N/2)
===================引 用 andychen8888 文 章===================
請教各位大大，小弟要求1 2 3 ....... 50的總和 請問要怎麼寫，煩請各位大大解答！感恩

------
初學、初學、學了很久...還是在初學階段..Orz

編輯記錄

procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
for x:=0 to 49 do
y:=x 1;
Label1.Caption:=IntToStr(y);
end;
這樣寫法是哪裡錯，請各位大大指教！

你想想當
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

var
i,j:integer;

begin
i:=0;
j:=0;
while i<=50 do
begin
i:=i 1;
j:=j i;
end;
label1.caption:=inttostr(j);
end;

編輯記錄

感謝各位大大熱情相助，小弟獲益良多

(上底 下底)x高/2

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;
這樣寫法是哪裡錯，請各位大大指教！