Compare Floats

Smart pascal source code


procedure WriteLnOut(bool: Boolean);
begin
  case bool of
    false:
      Writeln('False');
    true:
      Writeln('True');
  end;
end;
{ main.pas }

var
  one: Float = 1.5;
  two: Float = 2.5;
Begin
  WriteLnOut(one < two);
  WriteLnOut(one <= two);
  WriteLnOut(one = two);
  WriteLnOut(one >= two);
  WriteLnOut(one > two);
  WriteLnOut(one <> two);

  Writeln('');

  WriteLnOut(one < one);
  WriteLnOut(one <= one);
  WriteLnOut(one = one);
  WriteLnOut(one >= one);
  WriteLnOut(one > one);
  WriteLnOut(one <> one);

  Writeln('');

  WriteLnOut(two < one);
  WriteLnOut(two <= one);
  WriteLnOut(two = one);
  WriteLnOut(two >= one);
  WriteLnOut(two > one);
  WriteLnOut(two <> one);

{ <<< CONSOLE OUTPUTS >>>
  True
  True
  False
  False
  False
  True

  False
  True
  True
  True
  False
  False

  False
  False
  False
  True
  True
  True
}

      var one = 1.5;
      var two = 2.5;
      WriteLnOut(one=two);
      WriteLnOut(one>two);
      WriteLnOut(one!=two);
      WriteLn("");
      WriteLnOut(one=one);
      WriteLnOut(one>one);
      WriteLnOut(one!=one);
      WriteLn("");
      WriteLnOut(two=one);
      WriteLnOut(two>one);
      WriteLnOut(two!=one);
	  
function WriteLnOut(bool) {
   if (bool) {
      WriteLn("True");
   } else {
      WriteLn("False");
   }
};