写 Delphi 程序 输入一个整数n,计算1~n之间的平方和,立方和,偶数和
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/03 02:17:32
写 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;
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之间的奇数或偶数(奇偶要可变,要求输入)的平方和 公式是?