写 Delphi 程序输入一个整数n,计算1~n之间的平方和,立方和,偶数和

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/09/03 02:17:32

procedure TForm1.Button1Click(Sender:TObject);
var
v_Index,N:Integer;
SquareSum,CubeSum,EvenSum:Integer;
ibegin ,iEnd :integer;
begin
N := StrToIntDef(Edit1.Text,0);
SquareSum := 0;
CubeSum :=0;
EvenSum := 0;
if (n < 1)
begin
iBegin := N;
iEnd := 1;
end
else
begin
iBegin := 1;
iEnd := N;
end;
for v_Index := iBegin to iEnd do
begin
SquareSum := SquareSum + v_Index * v_Index;
CubeSum := CubeSum + v_Index * v_Index * v_Index;
if v_Index mod 2 = 0 then
begin
EvenSum := EvenSum + v_Index;
end;
end;
ShowMessage('1~' + IntToStr(N) + '的平方和:' + IntToStr(SquareSum) + ','+#10#13
+ '立方和：' + IntToStr(CubeSum) + ',' + #10#13 +
'偶数和:' + IntToStr(EvenSum));
end;

在VB中输入一个大于等于1的整数,然后分别计算从0到该数之间的奇数之和和偶数之和程序怎么编? 输入整数m和n,计算m,n之间所有素数的和编写一个VB程序,计算m和n值的最大公约数t,其中m,n是整数且大于0,要求输入m和n. vfp设计程序从键盘上任意输入一个数n,求1-n的偶数积求写程序, 先输入一个正整数n,再输入任意n个整数,计算并输出这n个整数的和 C程序求偶数和题目描述请算一算,输入的偶数之和是多少. 输入首先输入一个正整数N,代表将要输入N个正整数.然后依次输入 C语言输入一个n×n的整数矩阵,分别计算两个对角线的和 4、程序填空：程序实现输入一个整数n,求 1-1/3+1/5-… 的前n项和. 用户输入一个正整数n,若n为奇数,程序计算出数列1+3+5+...+n之和；若n为偶数,程序则计算2+4+...+n之和 pascal金字塔编写一个程序,输入两个整数N和K（N,K 写一个程序计算1到100的和,并改进可以计算任意2个整数之间的和求1~n之间的奇数或偶数（奇偶要可变,要求输入）的平方和公式是?

写 Delphi 程序 输入一个整数n,计算1~n之间的平方和,立方和,偶数和

写 Delphi 程序输入一个整数n,计算1~n之间的平方和,立方和,偶数和