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.




你可能感兴趣的:(while)