Smart pascal source code


procedure Test(f: Float; i: Integer; s: String);
begin
  WriteLn(FloatToStr(f));
  WriteLn(IntToStr(i));
  WriteLn(s);
  f := f * i;
  s := s + s;
  WriteLn(f);
  WriteLn(i);
  WriteLn(s);
end;

var v: Variant;

v := 2;
Test(10, v, v);

v := 3.0;
Test(v, v, v);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
10
2
2
20
2
22
3
3
3
9
3
33
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function FloatToStr$_Float_(i) { return i.toString() }
function FloatToStr$_Float_Integer_(i,p) { return (p==99)?i.toString():i.toFixed(p) }
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
function Test(f, i, s) {
   WriteLn(FloatToStr$_Float_(f));
   WriteLn(i.toString());
   WriteLn(s);
   f*=i;
   s+=s;
   WriteLn(f);
   WriteLn(i);
   WriteLn(s);
};
var v;

/* <<< main JS >>> */

   v = 2;
   Test(10,parseInt(v,10),String(v));
   v = 3;
   Test(Number(v),parseInt(v,10),String(v));