个人所得税过程 procedure TForm1.Button1Click(Sender: TObject); //定义三个单精度浮点数，分别表示应纳税总额，区间应纳税总额，累加纳税额 var sum, para, tax: single; begin //取得应纳税总额，并将累计纳税额变量置0 sum:=strtofloat(Edit1.Text); //这个函数进行从字符串到浮点型的转化 sum:=sum-800; tax:=0; //如果满足条件才执行相应代码 if sum>2000
标签： 过程
[代码]百钱买百鸡过程
百钱买百鸡过程。 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
[代码]冒泡排序的过程
冒泡排序的算法。 procedure sort(var data:array of integer; n:integer); var i, j, temp:integer; begin for j:=n-1 downto 1 do for i:=0 to j-1 do begin //交换次序不对者 if data[i]>data[i+1] then begin temp:=data[i]; data[i]:=data[i+1]; data[i+1]:=temp; end; end; end;