求高手指点和Delphi小程序注释解释

var
i,k,sum:integer; //定义函数为整型
begin
i:=0; //将i赋值为0
sum:=0; //将sum赋值为0
while i<=100 do; //循环计算将i的值限定在100以内，超出后就不计算
begin
if odd(i) then;
begin
sum:=sum+i*i; //sum的值等于sum加i乘i
k:=i; //k的值等于i
end
i:=i+1; //i的值等于i加1
end
label1.caption:='100以内的所有奇数的平方和为：'+inttosrt(sum)+#13#10; //输出sum的值
label1.caption:=label1,caption+'最后一个奇数为：'+inttostr(k); //输出k的值
end
以上可能抄写有错也请指点
请问下高手能不能帮我把没有注释的注释下好吧 本人初学 所以只能注释这么多
请 帮帮忙详细说下if odd(i) then; 这个判断的意义。
下面是本人自己猜想着写一个段只比上面少一个求最后一个奇数的功能。
文中恳定有错的语法 请高帮忙修正最好能帮求最后一个奇数也加上去
不要使用上面的语法结构 为了学习 请高手帮下。
var
a,b,c,d,e:integer;
begin
a,b,c,d,e:=0;
while a<=100 do
while a+1 do
begin
if a dir a then
end
else
b:=a*a
c:=b
end
d:=c+c
end
label1.caption:='100以内的所有奇数的平方和为：'+inttosrt(d);
end

以上请高手指点指点

补充：
var
     a,b,c,d:integer;                                                           上面就不要了
begin                                                                               begin
     a:=1                                                                                a:=1
     b,c,d,:=0;                         这里好象可以这样赋值吧         b,c,d:integer:=0
           while a<=100 do
                 while a+1 do
                     begin
                         if a dir a then 
                             end
                         else
                             b:=a*a
                             c:=b
                         end
                  d:=c+c
                  end
           label1.caption:='100以内的所有奇数的平方和为：'+inttosrt(d); 
 end
以上请高手指点指点 
 
以上是改后的是不是行了 我不是要简单而是学习方法 所以请（单一对此代码提示 请高手帮助）
只为学习方法  最上面的是我按原书抄写的 只是自己想了一个笨点的用第二种方法求结果

		

答案：
你上面这么写肯定不对的。
a,b,c,d,e:=0;  // 没有这样的赋值语句吧？
while a<=100 do
while a+1 do       //2个循环。你切没有改变过a的值，这不是死循环吗？ 还有没有必要用2个循环
//上面的代码应该是最简单的了。。你要重新想。。。但也要想的出更简单的。不然就没有意义。只要你能理解他代码有什么就够了。
var
i,k,sum:integer; //定义函数为整型
begin
//i:=0; 用while 也没有必要赋值为0 ？直接赋值为1 减少一次循环。
sum:=0; //将sum赋值为0 
//while i<=100 do;  建议使用for 循环。while 主要用于数次不定的情况下。
for i:=1 to 100 do
begin
//if odd(i) then 主要用来判断是不是奇数。如果为奇数则返回true ,否则返回false .可以改为以下代码：
if i mod 2<>0 then
begin
 sum:=sum+i*i; //sum的值等于sum加i乘i
 k:=i; //k的值等于i
end
end
label1.caption:='100以内的所有奇数的平方和为：'+inttosrt(sum)+#13#10; //输出sum的值
label1.caption:=label1,caption+'最后一个奇数为：'+inttostr(k); //输出k的值
end

odd(i)为判断i是否为奇数。

上一个：在Delphi中，怎样引用一个程序？
下一个：Delphi 好学吗？需要什么基础吗？