Division by zero | Divide assign /=

Smart pascal source code


  // ----  division by zero using float ---- //
  var a := 0.0;

  a := 1 / a;
  WriteLn(a); // Infinity

  // ----  division by zero using Integer ---- //
  var b := 0;

  b := 1 div b;
  WriteLn(b); // Infinity

  // ----  division with Assign operator ---- //
  
  var f := 150.0;

  f /= 1.5; // 150/1.5
  WriteLn(f); // 100
  f /= f;
  WriteLn(f); // 1
  f /= 1 + f;
  WriteLn(f); // 0.5

function $Div(a,b) { var r=a/b; return (r>=0)?Math.floor(r):Math.ceil(r) }

  var a = 0;
  var b = 0;
  var f = 0;
  a = 0;
  a = 1/a;
  WriteLn(a);
  b = 0;
  b = $Div(1,b);
  WriteLn(b);
  f = 150;
  f/=1.5;
  WriteLn(f);
  f/=f;
  WriteLn(f);
  f/=1+f;
  WriteLn(f);