Program pascal perhitungan kapasitor seri parallel

program seri_paralel_kapasitor;

uses crt;

var

Pilih : integer;

C1 : integer;

c2 : integer;

//Deklarasi variabel dengan semua variabel bertipe integer

begin

writeln ('masukkan nilai C1 :') ; read (C1);

writeln ('masukkan nilai C2 :') ; read (C2);

//input nilai C1 dan C2

write ('1. Paralel'); writeln;

write ('2. Seri'); writeln;

Writeln ('silakan pilih paralel atau seri:');

readln (pilih);

//pilihan untuk menghitung capasitor parallel atau seri

case pilih of

1: writeln ('Kamu memilih Paralel= ', (C1+C2));

2: writeln ('Kamu memilih Seri= ', ((1 / C1)+(1 / C2)));

//rumus perhitungan capasitor seri atau parallel dengan menggunakan operator.

else

writeln ('Maaf yang kamu pilih tidak ada dalam pilihan');

//pengecualian pilihan yang tidak ada di dalam pilihan.

end;

writeln;

readln;

// Supaya pembaca dapat membaca nilai sebelum program otomatis keluar

end.

//akhir program.

Flowchart Program