patrick10
Well-Known Member
i need some help with my homework.
i need to use arrays to store multiple values for inputs and display the results in a table format.
this is what i have so far. i missed this class due to doctors appointment and my professor is a dumbass and cant even do it.
thanks in advance
i need to use arrays to store multiple values for inputs and display the results in a table format.
this is what i have so far. i missed this class due to doctors appointment and my professor is a dumbass and cant even do it.
1 CLS
100 REM NAME & DATE
110 REM -----------
120 REM
130 REM PATRICK HOLLAND 11/29/06
180 REM
190 REM -----------------------------------------------------------------
200 REM PROGRAM NAME
210 REM ------------
220 REM
230 REM CYL-1IF
280 REM
290 REM -----------------------------------------------------------------
300 REM PROGRAM DESCRIPTION
310 REM -------------------
320 REM
330 REM THIS PROGRAM WILL CALCULATE THE CIRCLE AREA, CIRCUMFERENCE, VOLUME,
340 REM AND SURFACE AREA OF A CYLINDER
380 REM
390 REM -----------------------------------------------------------------
400 REM CONSTANTS
410 REM ---------
420 REM
430 LET PI = 3.14
480 REM
490 REM -----------------------------------------------------------------
500 REM VARIABLES
510 REM ---------
520 REM
530 REM R = RADIUS OF THE CYLINDER
535 REM A = AREA OF THE CIRCLE IN THE CYLINDER
540 REM SA = SURFACE AREA OF THE CYLINDER
550 REM C = CIRCUMFERENCE OF THE CYLINDER
560 REM V = VOLUME OF THE CYLINDER
570 REM H = HEIGHT OF THE CYLINDER
580 REM
590 REM -----------------------------------------------------------------
1000 REM MAIN PROGRAMING BLOCK
1010 REM ---------------------
1020 REM
1030 GOSUB EXPLAIN
1040 INPUT "HOW MANY TIMES WOULD YOU LIKE TO RUN THE PROGRAM"; ANS
1050 IF ANS >= 1 THEN GOTO 1080
1060 PRINT "INCORRECT RESPONCE, TRY AGAIN"
1070 GOTO 1040
1080 LET COUNT = 0
1110 GOSUB INPT
1120 GOSUB CALCS
1130 GOSUB OUTPT
1140 LET COUNT = COUNT + 1
1150 IF COUNT < ANS GOTO 1110
1160 IF COUNT >= ANS GOTO 1970
1970 END
1980 REM
1990 REM ----------------------------------------------------------------
2000 REM EXPLAIN PROGRAM TO USER
2010 REM -----------------------
2020 REM
2030 EXPLAIN:
2040 PRINT "THIS PROGRAM WILL ALLOW THE USER TO ENTER THE NUMBER OF"
2050 PRINT "TIMES THE PROGRAM WILL RUN; OBTAIN THE NECESSARY"
2060 PRINT "DIMENSIONS FROM THE USER; CALCULATE THE VOLUME AND"
2070 PRINT "SURFACE AREA OF THE CYLINDER; AND DISPLAY THE RESULTS"
2080 PRINT "OF THE CALCULATIONS."
2090 PRINT ""
2970 RETURN
2980 REM
2990 REM ----------------------------------------------------------------
3000 REM INPUT
3010 REM -----
3020 REM
3030 INPT:
3035 PRINT ""
3040 INPUT "ENTER THE RADIUS OF THE CYLINDER"; R
3050 INPUT "ENTER THE HEIGHT OF THE CYLINDER"; H
3060 INPUT " ENTER THE UNITS"; U$
3970 RETURN
3980 REM
3990 REM ----------------------------------------------------------------
4000 REM CALCULATIONS
4010 REM ------------
4020 REM
4030 CALCS:
4040 LET A = PI * R ^ 2
4050 LET C = PI * R * 2
4060 LET V = A * H
4070 LET SA = C * H
4970 RETURN
4980 REM
4990 REM ----------------------------------------------------------------
5000 REM OUTPUT
5010 REM ------
5020 REM
5030 OUTPT:
5031 PRINT ""
5032 PRINT "THE AREA OF THE CYLINDER IS---------->"; A; "SQ"; U$
5033 PRINT "THE CIRCUMFERENCE OF THE CYLINDER IS->"; C; ""; U$
5034 PRINT "THE VOLUME OF THE CYLINDER IS-------->"; V; "CU"; U$
5035 PRINT "THE SURFACE AREA OF THE CYLINDER IS-->"; SA; "SQ"; U$
5036 PRINT ""
5040 RETURN
5980 REM
5990 REM ----------------------------------------------------------------
thanks in advance