Question

delphi除法问题

delphi中 语句i=1/(i+1)这样功能的语句应该怎么写?

Answer 1

if i=-1 then i:=0
else i:=i div (i+1)

除零检查一定要做，这种编码方式要时刻考虑，不要做差不多先生

Answer 2

i:=1 / (i+1);

Answer 3

i:=1 div (i+1);

Answer 4

i=1/(i+1)
==>
i: double;
i := 1 / (i + 1);