Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  capacitor program
Language: FORTRAN
Code:
program capacitor 
IMPLICIT NONE

REAL :: Q,C,V,E,n
INTEGER :: choice

WRITE(6,*) 'Enter 1 if capacitance and voltage are known'
WRITE(6,*) 'Enter 2 if charge and voltage are known'
READ*, choice

if (choice == 1) then
WRITE(6,*) 'Choice 1'

else if (choice == 2) then
WRITE(6,*) 'Choice 2'

else 
END if
END program capacitor
          
          
Comments: