This preview shows page 1. Sign up to view the full content.
Unformatted text preview: real :: First_Cap, Second_Cap, Eq_Cap ! Tell the user to input the series capacitances write(*,*)'Input the first two capacitances in terms of Farads: ' ! Read these values in and assign them to the variables read(*,*) First_Cap, Second_Cap ! Calculate the equivalent capacitance using the equation for series circuits. Eq_Cap = 1 / ((1 / First_cap) + (1 / Second_Cap)) ! Output the resulting information Write(*,*) 'Type ', 'First Capacitance ', 'Second Capacitance ', 'Equivalent Capacitance' write(*,*) 'Series ', First_Cap,' ', Second_Cap, ' ', Eq_Cap stop end...
View Full Document
This note was uploaded on 10/05/2009 for the course ENGR 117 taught by Professor Staff during the Spring '08 term at Purdue University-West Lafayette.
- Spring '08
- Computer Programming