MENGHITUNG KAPASITANSI DAN INDUKTANSI

program penghitung_kapasitansi_dan_induktansi;

uses crt;

var

menu : integer;

ulang : char;

h,C,F1 : real;

I,F,v:real;

procedure Menghitung_Nilai_Kapasitansi;

begin

     repeat

     clrscr;

     writeln ('Menghitung Nilai Kapasitansi');

     write ('Masukan Nilai F : ');readln(F1);

     write ('Masukan Nilai Kapasitor C : ');readln(C);

     writeln ('Rumus :1/2*3.14*F*C');

     h:=1/2*3.14*F*C;

     writeln ('Nilai Kapasitansi Adalah :',h:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure Menghitung_Nilai_Induktansi;

begin

     repeat

     clrscr;

     writeln ('Menghitung Nilai Induktansi');

     write ('Masukan Nilai Induktor :');readln (I);

     write ('Masukan Nilai F  :');readln(F);

     writeln ('Rumus : 2*3.14*I*F');

     v :=2*3.14*I*F;

     writeln ('Nilai Induktansi adalah :',v:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure menu_utama;

 begin

      clrscr;

      writeln ('Menu Utama');

      writeln ('1. Menghitung Nilai Kapasitansi ');

      writeln ('2. Menghitung Nilai Induktansi');

      writeln ('3. keluar');

      writeln;

      write ('Pilih Menu :');readln(menu);

      case menu of

      1: begin

              Menghitung_Nilai_Kapasitansi;

              menu_utama;

         end;

      2:begin

             Menghitung_Nilai_Induktansi;

             menu_utama;

        end;

      3: end;

 end;

 begin

 clrscr;

 menu_utama;

end.