home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 August / Ahoy_Magazine_87-08_1987_Double_L_Side_A.d64 / Number Rounding (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  421 b   |  15 lines
  1. 10 rem number rounder
  2. 20 print"[147]        half wave dipole designer[146]"
  3. 30 input"  frequency  in mhz ";fr
  4. 40 a=468/fr
  5. 50 rem round to tenths
  6. 60 b=int(a*10+.5)/10
  7. 70 rem round to hundredths
  8. 80 c=int(a*100+.5)/100
  9. 90 rem round to thousandths
  10. 100 d=int(a*1000+.5)/1000
  11. 110 print" dipole length is       "a" feet"
  12. 120 print" rounded to tenths      "b"   feet"
  13. 130 print" rounded to hendredths  "c"  feet"
  14. 140 print" rounded to thousandths "d" feet"
  15.