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

来源：学生作业帮助网编辑：作业帮时间：2024/05/08 20:01:15

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

写 Delphi 程序输入一个整数n,计算1~n之间的平方和,立方和,偶数和
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;

写 Delphi 程序输入一个整数n,计算1~n之间的平方和,立方和,偶数和 C语言素数程序问题输入每行输入一个整数N(N 用Delphi设计一个程序,从键盘输入a,b,c3个整数,将它们按照从大到小的次序输出请用Delphi编写,运行成功后请截下图. 编写程序,输入一个整数n,输出n除以3的余数 pascal金字塔编写一个程序,输入两个整数N和K（N,K 3.编写程序,输入一个正整数n,在输入n个整数,按逆序输出这些数! 编写程序,接受用户输入一个整数n,则输出如下与n有关的图形若输入5,则请任意输入一个整数n,求出该数字是几位数字?vf程序输入一个整数n(1 编写一个求和的程序,要求能任意输入两个整数,求和用javascript写编写程序,输入一个正整数n（1 编写程序,输入一个正整数n(1 C语言交换元素程序输入n个整数(2 （C语言）输入一个正整数n,再输入n 个整数,输出这n个整数的最大值.主要是输入N个数那里怎么写? pascal程序设计输入一个整数n,n 编写程序,使用for循环实现如下功能：用户输入一个整数n,若n为奇数,程序计算出数列1 + 3 + 5 + … + n的写Java程序,输入一个非负的整数,并计算为用户的整数的阶乘一个数n的阶乘被定义为1,如果n= 0,或为n×（n-1个）×（n-2个）×...×3×2×1,如果n> 0.您需要设计命名方法“阶乘”,以完成该程序.该方设计一个程序:输入一个整数,判断它的奇偶性.

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

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