6
function ConvertRealToPixel(Axis : integer;
7
HelpReal : real) : real;
9
begin { function ConvertRealToPixel }
10
ConvertRealToPixel := HelpReal;
11
end; { function ConvertRealToPixel }
15
HelpFloat1,HelpFloat2,HelpFloat3 : float;
16
SegmentStartPos : float;
17
SegmentLength : float;
21
SegmentStartPos := 0.5;
23
HelpFloat1 := SegmentStartPos - SegmentLength / 2;
24
HelpFloat2 := ConvertRealToPixel(1,HelpFloat1);
25
writeln('Function result = ',HelpFloat2,' This is OK');
27
HelpFloat3 := ConvertRealToPixel(1,SegmentStartPos - SegmentLength / 2);
28
writeln('Function result = ',HelpFloat3,' THIS IS WRONG !');
29
if HelpFloat2<>HelpFloat3 then