home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / BASGEOTUT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.5 KB  |  86 lines
  1. 10 PRINT"[147]1=SQUARE 2=TRIANGLE 3=CIRCLE 4=RECTANGLE" 
  2. 11 IFMM$="Q"THENEND
  3. 20 INPUT"ENTER[160]NUMBER[160]OF[160]YOUR[160]CHOICE";MM$:MM=VAL(MM$):IFMM>4ORMM<1THEN10
  4. 30 ONMMGOTO500,1000,1500,2000
  5. 500 CLR:PRINT"[147]SQUARE:[160]": PRINT"1=AREA[160]OR 2=SIDE":INPUT"ENTER[160]1[160]OR[160]2";CH
  6. 501 IFCH>2ORCH<1THEN500
  7. 508 IFCH=2THEN555
  8. 510 IFCH=1THENPRINT"[147]FORMULA:[160]AREA[160]OF[160]A[160]SQUARE:":PRINT"AREA =[160]4(SIDE)"
  9. 519 PRINT"A[160]=[160]4S":INPUT"ENTER LENGTH[160]OF[160]SIDE";S:IFS<0ORS>250000THEN500
  10. 520 AS=4*S:PRINT"";AS;"=[160]4 TIMES";S:PRINT"AREA =[160]";AS:PRINT"SIDE[160]= ";S
  11. 530 GOSUB5000:GOTO500
  12. 555 PRINT"[147]FORMULA:[160]SIDE[160]OF[160]A SQUARE:":PRINT"SIDE[160]=[160]AREA[157][157][157][157]----[157][157]4"
  13. 556 PRINTTAB(7)"S[160]= A/4"
  14. 557 INPUT"ENTER[160]AREA";A:IFA>250000ORA<0THEN500
  15. 558 SD=A/4:PRINT"";SD;"=";A;"DIVIDED BY[160]4":PRINT"AREA=";A:PRINT"SIDE=";SD
  16. 559 GOSUB5000:GOTO500
  17. 1000 CLR:PRINT"[147]TRIANGLE":PRINT"1[160]= AREA[160]2[160]=[160]BASE 3 = HEIGHT":INPUT"CHOICE";K
  18. 1001 IFK<1ORK>3THEN1000
  19. 1002 ONKGOTO1010,1110,1210
  20. 1010 PRINT"[147]FORMULA: AREA[160]OF[160]A[160]TRIANGLE":PRINT"AREA[160]=[160].5[160]*[160](BASE*HEIGHT)"
  21. 1011 PRINT"A[160]=[160].5BH":INPUT"ENTER[160]BASE  ";BS:INPUT"ENTER[160]HEIGHT";HT
  22. 1012 IFBS<1ORBS>250000ORHT<1ORHT>250000THEN1000
  23. 1020 AR=.5*(BS*HT):PRINT"AREA=";AR:PRINT"BASE=";BS:PRINT"HEIGHT=";HT
  24. 1030 PRINT""AR"=[160].5[160]TIMES[160](";BS;"TIMES";HT;")"
  25. 1040 GOSUB5000:GOTO1000
  26. 1110 PRINT"[147]FORMULA:[160]BASE[160]OF[160]A TRIANGLE":PRINT"BASE[160]=[160][160]A[160][157][157][157]---[157][157][157].5H"
  27. 1111 CLR:INPUT"ENTER[160]HEIGHT";HT:INPUT"ENTER[160]AREA  ";AR
  28. 1112 IFAR<1ORHT<1ORAR>250000ORHT>250000THEN1110
  29. 1120 BS=AR/(.5*HT):PRINT"BASE [160]:";BS:PRINT"HEIGHT:";HT:PRINT"AREA[160][160]:";AR
  30. 1121 GOSUB5000:GOTO1000
  31. 1210 PRINT"[147]FORMULA:[160]HEIGHT[160]OF[160]A TRIANGLE":PRINT"HEIGHT=[160]A[157][157]----[157][157][157][157].5*B"
  32. 1212 INPUT"ENTER[160]BASE";BA:INPUT"ENTER[160]AREA";AR:LM=250000
  33. 1213 IFAR>LMORBA>LMORBA<1ORAR<1THEN1000
  34. 1215 HT=AR/(.5*BA):PRINT"AREA  :";AR:PRINT"HEIGHT:";HT:PRINT"BASE[160][160]:";BA
  35. 1222 GOSUB5000:GOTO1000
  36. 1500 CLR:PRINT"[147]CIRCLE":PRINT"1[160]=[160]CIRCUMFERENCE2[160]=[160]DIAMETER":PI=3.14
  37. 1510 INPUT"ENTER[160]1[160]OR[160]2";FU:IFFU<1ORFU>2THEN1500
  38. 1511 ONFUGOTO1550,1650
  39. 1550 PRINT"[147]FORMULA:[160]CIRCUMFERENCE[160]OF[160]A[160]CIRCLE"
  40. 1551 PRINT"CIRCUMFERENCE[160]=[160][255] TIMES[160]DIAMETER":PRINTTAB(16)"C[160]=[160][255]D"
  41. 1555 INPUT"ENTER[160]RADIUS[160]OR[160]DIAMETER";NS:PRINT"IS[160]THIS[160]A[160]RADIUS[160]OR[160]DIAMETER?"
  42. 1556 IFNS<1ORNS>250000THEN1550
  43. 1557 GETRD$:IFRD$=""THEN1557
  44. 1558 IFRD$="R"THEND=2*NS:GOTO1610
  45. 1559 IFRD$="D"THEND=NS:GOTO1610
  46. 1560 IFRD$="Q"THENEND
  47. 1600 GOTO1557
  48. 1610 CI=3.14*D:PRINT""CI"[160]=[160]";PI;"TIMES";D:PRINT"CIRCUMFERENCE:";CI
  49. 1611 PRINT"RADIUS [160][160][160]   :";D/2:PRINT"DIAMETER [160] [160][160]:";D
  50. 1612 PRINT"[255][160][CONSTANT] :[160]3.14":GOSUB5000:GOTO1500
  51. 1650 PRINT"[147]FORMULA:[160]DIAMETER[160]OF[160]A[160]CIRCLE":PRINT"DIAMETER =[160]C[157]-[157][255]"
  52. 1660 INPUT"ENTER[160]CIRCUMFERENCE";C:IFC<1ORC>250000THEN1650
  53. 1670 D=C/3.14:PRINT"";D"[160]=[160]";C;"DIVIDED[160]BY 3.14":PRINT""
  54. 1680 PRINT"CIRCUMFERENCE:";C:PRINT"DIAMETER [160][160][160][160]:";D:PRINT"[255][160][CONSTANT] :[160]3.14"
  55. 1700 GOSUB5000:GOTO1500
  56. 2000 CLR:PRINT"[147]RECTANGLES(OR[160]PARALLELOGRAMS):"
  57. 2010 PRINT"1[160]=[160]AREA2 = HEIGHT3=BASE"
  58. 2020 INPUT"ENTER[160]CHOICE";AD:IFAD<1ORAD>3THEN2000
  59. 2022 ONADGOTO2050,2150,2250
  60. 2050 PRINT"[147]FORMULA:[160]AREA[160]OF[160]A[160]RECTANGLE":PRINT"AREA[160]=[160]BASE[160]TIMES[160]HEIGHT"
  61. 2051 PRINT"[160][160] [160][160][160][160]A[160]=[160]BH":INPUT"ENTER[160]BASE";BS:INPUT"ENTER[160]HEIGHT";HT
  62. 2053 IFHT<1ORHT>250000ORBS<1ORBS>250000THENGOTO2050
  63. 2055 AR=HT*BS:PRINT"";AR"[160]=[160]";HT"TIMES"BS:PRINT"AREA[160][160]:";AR
  64. 2056 PRINT"HEIGHT:";HT:PRINT"BASE[160] :";BS:GOSUB5000:GOTO2000
  65. 2150 PRINT"[147]FORMULA:[160]HEIGHT[160]OF[160]A[160]RECTANGLE":PRINT"HEIGHT[160]=[160]A[157]-[157]B"
  66. 2160 INPUT"ENTER[160]AREA";AR:INPUT"ENTER[160]BASE";BA:M=250000:IFAR>MORBA>MTHEN2150
  67. 2161 IFBA<1ORAR<1THEN2150
  68. 2170 HT=AR/BA:PRINT"AREA[160][160]:";AR:PRINT"HEIGHT:";HT:PRINT"BASE[160][160]:";BA
  69. 2180 GOSUB5000:GOTO2000
  70. 2250 PRINT"[147]FORMULA:[160]BASE[160]OF[160]A[160]RECTANGLE":PRINT"BASE[160][160][160]=[160]A[157]-[157]H"
  71. 2260 INPUT"ENTER[160]AREA";AR:INPUT"ENTER[160]HEIGHT";HT:M=250000:IFAR>MORHT>MTHEN2250
  72. 2261 IFHT<1ORAR<1THEN2250
  73. 2270 BA=AR/HT:PRINT"AREA[160][160]:";AR:PRINT"HEIGHT:";HT:PRINT"BASE[160][160]:";BA
  74. 2280 GOSUB5000:GOTO2000
  75. 4999 END
  76. 5000 PRINT"M[160]=[160]MAIN[160]MENUT[160]=[160]TRY[160]THIS[160]CATEGORY[160]AGAIN"
  77. 5001 GETA$:IFA$=""THEN5001
  78. 5002 IFA$="M"THEN10
  79. 5003 IFA$="T"THENRETURN
  80. 5004 IFA$="Q"THENEND
  81. 5005 GOTO5001
  82. 10000 REM ****************************
  83. 10001 REM ** QUESTIONS? COMPLAINTS? **
  84. 10002 REM ******** SCHMIDT 20 ********
  85. 10003 REM ****************************
  86.