program TurTe; uses typ; function Tweelog(x: real): integer; var i: integer; begin i := 0; if x > 1 then Tweelog := -Tweelog(1 / x) else begin while x < 1 do begin Dec(i); x := 2 * x; end; if x <> 1 then Tweelog := 0 else Tweelog := i; end; end; var x: real; begin { Test op macheps } Writeln('Macheps = 2', Tweelog(macheps)); Writeln('Hoe wordt er afgerond?'); x := 1 + macheps; Writeln('(1 + macheps ) - 1 = ', x - 1); x := 1 + 0.75 * macheps; Writeln('(1 + 0.75*macheps) - 1 = ', x - 1); x := 1 + 0.5 * macheps; Writeln('(1 + 0.5*macheps ) - 1 = ', x - 1); x := 1 + 0.25 * macheps; Writeln('(1 + 0.25*macheps) - 1 = ', x - 1); {test op giant } writeln(' giant = ', giant); x := giant / 2; writeln(' resultaat van x:= giant / 2 =', x); {test op midget} writeln(' midget = ', midget); x := midget / 2; writeln(' resultaat van x:= midget/2 =', x); x := midget / 3; writeln(' resultaat van x:= midget/3 =', x); x := midget * 0.75; writeln(' resultaat van x:= midget*0.75 =', x); end.