home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / CIRCLE-CIR-AREA (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  41 lines
  1. 10 PRINT"[147]":DIMN$(50)
  2. 15 PRINT"                          "
  3. 18 PRINT" PRINT OUT CIRCUMFERENCE  "
  4. 20 PRINT"   AND AREA OF CIRCLES    "
  5. 22 PRINT" THERE ARE THREE PROBLEMS "
  6. 24 PRINT"  IN EACH ROW.            "
  7. 26 PRINT"                          "
  8. 28 INPUT" HOW MANY ROWS OF THREE  ";N
  9. 45 OPEN4,4:CMD4
  10. 50 PRINT"FIND THE CIRCUMFERENCE AND THE AREA FOR CIRCLES:"
  11. 52 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  12. 53 PRINT
  13. 55 FORI=1TO3:PRINT"[194][195][195][195][195][195][194][195][195][195][195][195][195][195][195][194][195][195][195][195][195][195][195][195][195][194]";:NEXT:PRINT
  14. 57 FORI=1TO3:PRINT"[194]  R  [194] CIRCUM.[194]  AREA   [194]";:NEXT:PRINT
  15. 59 FORI=1TO3:PRINT"[194][195][195][195][195][195][194][195][195][195][195][195][195][195][195][194][195][195][195][195][195][195][195][195][195][194]";:NEXT:PRINT
  16. 60 FORA=1TON
  17. 62 FORI=1TO3
  18. 63 R(I)=INT(RND(8)*60+35)/10:R$(I)=STR$(R(I))
  19. 64 IFR(I)=INT(R(I))THEN63
  20. 66 C(I)=INT(62.8*R(I)+.5)/10:C$=STR$(C(I))
  21. 67 A(I)=INT(31.4*R(I)^2+.5)/10:B$=STR$(A(I))
  22. 68 N$(A)=N$(A)+C$+"  "+B$+"  "
  23. 69 NEXT
  24. 70 FORI=1TO3:PRINT"[194]"R(I)"[194]        [194]         [194]";:NEXT:PRINT
  25. 72 FORI=1TO3:PRINT"[194][195][195][195][195][195][194][195][195][195][195][195][195][195][195][194][195][195][195][195][195][195][195][195][195][194]";:NEXT:PRINT
  26. 75 NEXT
  27. 85 PRINT#4:CLOSE4
  28. 90 PRINT"                          "
  29. 92 PRINT" RETURN TO PRINT ANSWERS  "
  30. 94 PRINT"                          "
  31. 96 GETA$:IFA$=""THEN96
  32. 98 IFA$=CHR$(13)THEN106
  33. 100 GOTO150
  34. 106 OPEN4,4:CMD4
  35. 108 FORA=1TON
  36. 110 PRINT N$(A)
  37. 112 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  38. 114 NEXT
  39. 116 PRINT#4:CLOSE4
  40. 150 END
  41.