2016 年 11 月 – 印象派

[代码]个人所得税过程

2016-11-302016-11-30 • Delphi • 暂无评论 • Aar0n •2,093 次查阅

个人所得税过程 procedure TForm1.Button1Click(Sender: TObject); //定义三个单精度浮点数，分别表示应纳税总额，区间应纳税总额，累加纳税额 var sum, para, tax: single; begin //取得应纳税总额，并将累计纳税额变量置0 sum:=strtofloat(Edit1.Text); //这个函数进行从字符串到浮点型的转化 sum:=sum-800; tax:=0; //如果满足条件才执行相应代码 if sum>2000

[代码]百钱买百鸡过程

2016-11-222016-11-22 • Delphi • 暂无评论 • Aar0n •2,072 次查阅

百钱买百鸡过程。 procedure TForm1.Button1Click(Sender: TObject); var hen, cock, chick: integer; answer: string; begin for cock:=0 to 20 do for hen:=0 to 33 do begin chick:=100-hen-cock;//鸡雏的数目 if chick mod 3 = 0 then//鸡雏的数目必须是3的倍数 if cock*5+hen*3+chick div 3

[代码]生成九九表的过程

2016-11-182016-11-18 • Delphi • 暂无评论 • Aar0n •2,190 次查阅

九九乘法表的一个过程。 procedure nine(n:integer); var i, j: integer; line: string; begin for i:=1 to n do begin //生成第i行 line:=''; //第i行共有i句口诀 for j:=1 to i do begin line:=line+inttostr(j)+'×'+inttostr(i)+'='+inttostr(i*j)+' &#3

[函数]获取汉字首拼音字符函数

2016-11-022016-11-02 • Delphi • 暂无评论 • Aar0n •2,042 次查阅

目前比较能用的一个函数了，来源记不清楚了好像是咏南的博客。声明函数，再调用即可。代码如下： function CnPYIndex(const CnString: string): string; { 返回中文的拼音首字母 } const ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (

登录