home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / armbob / armbob_1 / ARMBOB / !ArmBob / progs / ArithTest < prev    next >
Encoding:
Text File  |  1996-05-15  |  525 b   |  31 lines
  1. /* ArithTest */
  2.  
  3. main()
  4.  {
  5.    print("       r  = 4095.99987792968568\n");
  6.    r = 4095.99987792968568;
  7.    print("       r  = ",r,"\n");
  8.    r = 1.0*r;
  9.    print("       r  = ",r,"\n");
  10.    s = sqrt(r);
  11.    print("  sqrt(r) = ",s,"\n");
  12.    t = s * s;
  13.    print("  square    ",t,"\n");
  14.    u = r * r;
  15.    print("  r*r     = ",u,"\n");
  16.    v = sqrt(u);   
  17.    print("sqrt(r*r) = ",v,"\n");
  18.  }
  19.  
  20.  
  21. vdu(s)
  22.  {
  23.   local out,i;
  24.   out = fopen("rawvdu:","w");
  25.   for(i=0;i<sizeof(s);putc(s[i++],out));
  26.   fclose(out);
  27.  }
  28.  
  29. mode(n)
  30.  { vdu(""+22+n); }
  31.