代码大全

{compute new hypotenuse and cache it}
cachedHypotenuse:=sqrt(sideAsideA+sideBsideB);
cachesideA :=sideA;
cachesideB :=sideB;
Hypotenuse :=CachedHypotenuse;
end;

Pascal 2.63 2.25 14

C 1.99 1.93 3

Basic 1.75 2.52 -44

29.4

not A and not B
not(A or B)
not
Pascal repeat-until while-do not
not
not Jon
Bentley sqrt(x)<sqrt(y) sqrt(x)<sqrt(y) x<y
sqrt()

C 3.63 0.71 80% 5:1

Basic 2.37 0.94 60% 3:1