PROGRAM PGM02
***********************************************************
* PROGRAMMER: B. Alex Bridges
* CLASS: 9:00AM
* PROGRAM: PGM02.F
* DUE DATE: 01/21/99
*
* Program Description:
* This programs reads and prints the user's name as well
* as keeps a count of the test runs.
* It also calculates the amount of current, given
* the resistance of three resistors and the applied
* voltage.
* Variables:
* COUNT : the number of test runs
* NAMEF : the user's first name
* NAMEL : the user's last name
* VOLTS : the applied voltage
* R1 : the resistance for resistor #1
* R2 : the resistance for resistor #2
* R3 : the resistance for resistor #3
* RT : the resistance for the combined resistors
* AMPS : the resulting current
* Input : NAMEF,NAMEL,VOLTS,R1,R2,R3
* NOTE: the value 999 for VOLTS will terminate the program . . .
* Output : COUNT,RT,AMPS
***********************************************************
INTEGER COUNT
CHARACTER*5 NAMEF,NAMEL*7
REAL VOLTS,R1,R2,R3,RT,AMPS
* read in values for NAMEF,NAMEL
PRINT *, 'Enter your first and last name'
READ *, NAMEF,NAMEL
PRINT *
* increment the number of test runs
10 COUNT = COUNT + 1
* read in values for VOLTS
PRINT *, 'Enter 999 to terminate the program -OR- '
PRINT *, 'Enter the applied voltage'
READ *, VOLTS
IF (VOLTS. EQ. 999) GOTO 20
* read in values for R1,R2,R3
PRINT *, 'Enter the three resistances'
READ *, R1, R2, R3
PRINT *
* compute the total resistance for the combined resistors
RT = ((R1 ** -1.0) + (R2 ** -1.0) + (R3 ** -1.0)) ** -1.0
* compute the resulting current
AMPS = VOLTS / RT
* display the output
PRINT *, 'TEST RUN #', COUNT
PRINT *, 'NAME: ', NAMEF, NAMEL
PRINT *, 'RESISTANCE INPUT DATA: ', R1, ', ', R2, ', ', R3,
1 ' ohms'
PRINT *, 'VOLTAGE INPUT DATA: ', VOLTS, ' volts'
PRINT *, 'RESULTING CURRENT: ', AMPS, ' amps'
PRINT *
GOTO 10
* print end of program message
20 PRINT *, 'End of program - PGM02.F'
END