写 Delphi 程序 输入一个整数n,计算1~n之间的平方和,立方和,偶数和
作者&投稿：瞿龚 （若有异议请与网页底部的电邮联系）
# include
int main()
{
int n;
printf("输入一个整数N(N<10000)");
scanf("%d",&n);
for(int i=1;i<=n;i++)
if(i%2==0)
{
printf("%ld ",i*i);
}
return 0;
}
直接给你贴代码，这个很简单的：
procedure TForm1.btnOKClick(Sender: TObject);
var
v_Index,N,Sum:Integer;
begin
N := StrToIntDef(Edit1.Text,0);
Sum := 0;
for v_Index := 1 to N do
begin
Sum := Sum + v_Index * v_Index;
end;
ShowMessage('1~' + IntToStr(N) + '平方和为:' + IntToStr(Sum));
end;
//平方和
function TForm1.squareSum(i:integer):integer;
begin
if i=1 then
result:=1
else
result:=i*i+squareSum(i-1);
end;
//立方和
function TForm1.cubeSum(i:integer):integer;
begin
if i=1 then
result:=1
else
result:=i*i*i+cubeSum(i-1);
end;
//偶数和
function TForm1.evenSum(i:integer):integer;
{这里需保证传入参数i是偶数,i是不是偶数放在主函数判断，
因为放在这里来判断i是不是偶数，影响运算速度
}
begin
if i=0 then
result:=0
else
result:=i+evenSum(i-2)
end;
{界面上放4个Tedit,分别是待输入的整数 edit1
edit2，edit3,edit4分别对应 平方和 立方和 偶数和
放一个Tbutton,用于计算
}
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
try
n:=strtoint(edit1.Text);
except
MessageDlg('请输入一个不小于1的整数',mtinformation,[mbok],0);
edit1.SetFocus;
edit1.SelectAll;
exit;
end;
if n<1 then
begin
MessageDlg('请输入一个不小于1的整数',mtinformation,[mbok],0);
edit1.SetFocus;
edit1.SelectAll;
exit;
end;
edit2.Text:=inttostr( squareSum(n));
edit3.Text:=inttostr( cubeSum(n));
if n mod 2 = 0 then
edit4.Text:=inttostr( evenSum(n))
else
edit4.Text:=inttostr( evenSum(n-1))
end;
以上通过delphi7编译，希望有所帮助
procedure TForm1.Button1Click(Sender: TObject);
var
v_Index,N:Integer;
SquareSum,CubeSum,EvenSum:Integer;
begin
N := StrToIntDef(Edit1.Text,0);
SquareSum := 0;
CubeSum :=0;
EvenSum := 0;
for v_Index := 1 to N 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;
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;
友详依清： 先写三个递归函数 //平方和 function TForm1.squareSum(i:integer):integer; beginif i=1 thenresult:=1elseresult:=i*i+squareSum(i-1); end; //立方和 function TForm1.cubeSum(i:integer):integer; beginif i=1 thenresult:=1elseresult:=i*i*i+...
将乐县18298157962： 用delphi7 编写一个程序.任一输入一个整数,判断整数的奇偶性 - ？
友详依清： 1、使用mod判断余数,如果为1则为奇数,否则为偶数2、代码示例如下:procedure TForm1.btn1Click(Sender: TObject); var nb : Integer; begin nb := StrToInt(edt1.Text); if (nb mod 2 = 1) then begin ShowMessage('是奇数!'); end else begin ShowMessage('是偶数!'); end; end;3、效果如下:
将乐县18298157962： delphi程序输入一个整数n,计算1!+2!+3!+...+n!; - ？
友详依清： 好抠门啊..function jc(var n:integer):longint; begin if n if n>1 then result:=n*jc(n-1); end; function ccc(var n:integer):longint; var i:integer; total:longint; begin total:=0; for i:=1 to n dototal:=total+jc(i); result:=total; end;
将乐县18298157962： delphi设计一个程序,功能是输入一个正整数,求0到该整数之间所有素数之和;？
友详依清： procedure TForm2.Button1Click(Sender: TObject);vari,j :integer;X,Y,k,s : Integer;f:boolean;begin memo1.Lines.Clear; x:=0; k:=0; y:=StrToInt(edit.Text); if (x=0) or (x=1) or (x<0) then begin X:=2 end; for i:=X to Y do begin F:=True; for j:=2 to Trunc(Sqrt(...
将乐县18298157962： 用delphi写一个程序求一个整数的各位数字,例如123的百位.十位.个位..急啊帮做出在加分 - ？
友详依清： 写了个小例子,你自己看看 窗体添加一个edit1 用于输入数字,一个memo1用于输出结果,以及一个按钮.代码如下; procedure TForm1.Button1Click(Sender: TObject); var m,i:integer; n:string; begin m:=length(edit1.Text);//获取输入的数字的长度 n:=edit1.Text; for i:=1 to m do memo1.Lines.Add(Copy(n,i,1) );{Copy(n,i,1) )从字符串n中从第i个字符开始取1个字符} end;
将乐县18298157962： delphi 求整数各位数字 输入一个任意4位整数,计算千位、百位、十位和个位上的数字 - ？
友详依清： program Project1; {$APPTYPE CONSOLE} uses SysUtils; var x,x1,x2,x3,x4:Integer; label l; begin { TODO -oUser -cConsole Main : Insert code here } l: Write('请输入一个四位数:'); Read(x); if (x<1000) or (x>9999) then begin WriteLn('输入有...
将乐县18298157962： delphi7 编程实现输入一个整数,显示它的位数,并显示它的各位数字,及其各位数字的和 - ？
友详依清： 建个数组a[50],用来保存每一位数字,该数num,建个变量保存该数,int temp=num;int count=0;计数器 简单点写代码了我 while(num) { a[count]=num%10; num/=10; count++; } 这样得到了该数的每一位,是逆序的保存在数组里,就是最后一位在、是a[0]位数就count;求各位和就是for(int i=0;i{ sum+=a[i]; }
将乐县18298157962： 编写程序,在一个整数型组(其元素全大于0)中查找输入的一个整数,找到后,求它前面的所有整数之和 - ？
友详依清： //delphi pascal function MySum(const inputX : integer ): integer; var sumA : integer; begin sumA := 0; for i := 0 to length(arrayA) -1 doif arrayA[i] =inputX then begin result := sumA; break; end else sumA := sumA+ arrayA[i]; end;
将乐县18298157962： delphi编写一个整数型的一维静态数组赋值给一个动态字符串型数组 - ？
友详依清： varstr : string; Pbuf: array[0..100]of char;//array[0..100]of byte Len : integer; begin str := 'abcdefg'; //将Str的值赋给数组Pbuf strpcopy(@pbuf,Str); end;
将乐县18298157962： delphi Delphi中,输入一个字符串,怎样将它转化为整型计算?急求!相赠？
友详依清： Haha, it's easy can build two stack for number, the other for operator +, -, *, /, etc.scan the string from left to right,if encounter number, then let it pushed into number stack.if it is an operator, then you need comparing the previllegeof the operator that ...
