查人人中国名人网牛玉儒子女:Delphi程序设计，有问题要问？？？？
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 02:34:51
2.设S=1*2*3*…8n,求s不大于40000000时最大的n.
3.输入初始值，输出100个不能被3整除的数。
4.在组合框中输入一批整数，统计其中的偶数个数和奇数个数。
你的题也真是多，如果让我加悬赏分，我想我会加200了不过他的确是让我练习的好材料。我先写第一个吧，有时间再写另一个吧！
在某个事件中：
先定义变量
var
i:integer;
r:real;
s1,s2,s3,s4,s5,s6:string;//用于存储每行的字符串
用一个label显示。
for i:=1 to 50 do
begin
r:=i mod 3 ;
if r<>0 then
s1:=s1+' '+inttostr(i)
else
s1:=s1+'';
end;//for
for i:=51 to 100 do
begin
r:=i mod 3 ;
if r<>0 then
s2:=s2+' '+inttostr(i)
else
s2:=s2+'';
end;//for
for i:=101 to 150 do
begin
r:=i mod 3 ;
if r<>0 then
s3:=s3+' '+inttostr(i)
else
s3:=s3+'';
end;//for
for i:=151 to 200 do
begin
r:=i mod 3 ;
if r<>0 then
s4:=s4+' '+inttostr(i)
else
s4:=s4+'';
end;//for
for i:=201 to 250 do
begin
r:=i mod 3 ;
if r<>0 then
s5:=s5+' '+inttostr(i)
else
s5:=s5+'';
end;//for
for i:=251 to 300 do
begin
r:=i mod 3 ;
if r<>0 then
s6:=s6+' '+inttostr(i)
else
s6:=s6+'';
end;//for
label1.Caption:=s1+#10#13+s2+#10#13+s3+#10#13+s4+#10#13+s5+#10#13+s6;