求高手指点和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

以上请高手指点指点

你上面这么写肯定不对的。
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是否为奇数。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息