文件名称:Delphi 计算1到10之间的奇数和【源码】.rar
文件大小:6KB
文件格式:RAR
更新时间:2022-07-30 06:34:43
Delphi源码-界面编程
Delphi 推荐到奇数,并计算1到10之间的奇数求和,这是个简单的数学问题,数学水平高,写出这种小程序并不难,趁机把代码帖出来吧: procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; begin j:=0; For i := 1 to 10 do begin if i mod 2 =0 then Continue; j := j i; Edit1.text := IntToStr(j); end; end;
【文件预览】:
srcfans.com
----计算1到10之间的奇数和()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(4KB)
--------Unit1.dfm(774B)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(645B)