三个IF的问题，太不专业了。

[zzlfe]

            errorValue := xx - sss;
            if errorValue> 0 then
              if errorValue<2.5 then
              begin
                errorValue:= 6.5 + errorValue;
                outputValue:= errorValue+ 7.0;
              end;
              if errorValue>=2.5 then
              begin
                outputValue := outputValue+1;
              end;
            end;

两个变量 errorValue-误差 outputValue-输出

根据 误差 得出 输出。

这是前辈留下的代码，小弟学的.net

如果第一个if执行了第二个也肯定会执行是吧，为什么写成这样？都让我怀疑两种语言的if不一样了。

是不是逻辑错误？但是因为 每次只加了1，所以没被发现？

[simonhehe]

errorValue := xx - sss;
            if errorValue> 0 then
            begin //???? 
              if errorValue<2.5 then
              begin
                errorValue:= 6.5 + errorValue;
                outputValue:= errorValue+ 7.0;
              end;
              if errorValue>=2.5 then
              begin
                outputValue := outputValue+1;
              end;
            end;

[bdmh]

第一个执行后errorValue被改变了，所以又满足了下一个if
应该这样写,除非作者确实有根据第一个if去执行第二个if的要求
if errorValue<2.5 then
begin
errorValue:= 6.5 + errorValue;
outputValue:= errorValue+ 7.0;
end
else if errorValue>=2.5 then
begin
outputValue := outputValue+1;
end;

[liangpei2008]

IF用的挺专业的

[风之谷]

[Quote=引用 3 楼 liangpei2008 的回复:]
IF用的挺专业的
[/Quote]
----------
upp

[纯冰糖]

不用判断if errorValue> 0 then了

[haitao]

最后的end没有对应的begin
估计是第一个if后漏了begin

[zzlfe]

[Quote=引用 3 楼 liangpei2008 的回复:]
IF用的挺专业的
[/Quote]
怎个么专业法了？

[wintergoes]

最后多一个end;

[zzlfe]

[Quote=引用 2 楼 bdmh 的回复:]
第一个执行后errorValue被改变了，所以又满足了下一个if
应该这样写,除非作者确实有根据第一个if去执行第二个if的要求
              if errorValue <2.5 then
              begin
                errorValue:= 6.5 + errorValue;
                outputValue:= errorValue+ 7.0;
              end
              else if errorValue>=2.5 then
              begin
                outputValue := outputValue+1;
              end;

[/Quote]

我也是这么认为的 ，但不敢轻易否定，应该是+1操作不太明显，这个错误没被发现

[zzlfe]

[Quote=引用 1 楼 simonhehe 的回复:]
Delphi(Pascal) code
errorValue := xx- sss;if errorValue>0then
begin//????if errorValue<2.5thenbegin
errorValue:=6.5+ errorValue;
outp?-
[/Quote]


begin 漏了是我copy的错，呵呵 不好意思。

[chhrsas]

我认为
if errorValue>=2.5 then
begin
outputValue := outputValue+1;
end;
这段代码只要保留 outputValue := outputValue+1; 这句就够了。