home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / cap / cap.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1989-12-18  |  1.6 KB  |  66 lines
  1. PROGRAM series_parallel_capacitors;
  2.  
  3. USES CRT, DOS;
  4.  
  5. VAR n, x, m, t, e : INTEGER;
  6.              p, r : REAL;
  7.                 s : string[20];
  8.           in_char : CHAR;
  9.  
  10. LABEL howmany, value;
  11.  
  12. BEGIN       (* Start of Program *)
  13.   HOWMANY:
  14.   CLRSCR;
  15.   WRITELN;
  16.   WRITELN('                 Series/Parallel Capacitor Computation');
  17.   WRITELN;
  18.   WRITE('                        How many capacitors? ');
  19.   READLN(s);
  20.   VAL(s,n,e);
  21.   IF e = 0 THEN
  22.   ELSE GOTO howmany;
  23.   WRITELN;
  24.     t := 0;
  25.     p := 0;
  26.     FOR m := 1 TO n DO    (* Value of each capacitor *)
  27.       BEGIN      (* Start of Loop *)
  28.         VALUE:
  29.         WRITE('                   Enter value of capacitor ' ,m);
  30.         WRITE('  ');
  31.         READLN(s);
  32.         VAL(s,x,e);
  33.         IF e = 0 THEN
  34.         ELSE GOTO value;
  35.         t := t + x;
  36.         p := p + 1 / x;
  37.       END;       (* End of Loop *)
  38.     WRITELN;
  39.     WRITELN('                   Parallel Capacitance = ',t:2);
  40.  
  41.     WRITE('                   Series Capacitance   = ',1 / p:2:1);
  42.     WRITELN;
  43.     REPEAT
  44.       WRITELN;
  45.       WRITELN('                   R) Repeat calculaton: ');
  46.       WRITELN('                   Q) Quit to DOS');
  47.       WRITELN;
  48.       WRITE('                   Please enter your choice: ');
  49.       WRITE;
  50.  
  51.       READ(in_char);
  52.       CASE in_char OF
  53.       'R' : goto howmany ;
  54.       'r' : goto howmany;
  55.       'Q' : WRITELN('                   Quit');
  56.       'q' : WRITELN('                   Quit');
  57.       END;
  58.     UNTIL (in_char = 'Q') OR (in_char = 'q');
  59. END.        (* End of Program *)
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.