while do 计算100以内的奇数平方和

//计算100以内的奇数平方和 
var
  Form1: TForm1;
   i,k,sum:integer; //i,sum为整形数值 k为最后一个奇数为
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
   i:=0;
   sum:=0; //初始化 i,sum的值
   while i<=100 do //当 i是100以内的数值时，则执行以下循环
   begin
        if odd(i) then //当i为奇数时
        begin
            sum:=sum+i*i;//总和等于已有的和+i的平方
            k:=i;
        end;
        i:=i+1; //递增i的值
   end;
   label1.Caption :='一到100以内的奇数平方和为：'+inttostr(sum)+#13#10;
   label1.Caption :=label1.Caption +'最后一个奇数为'+inttostr(k);
    //显示 信息#13为回车符，#10为使光标换行
end;
end.

通过 Wiz 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/06/03/2532894.html