Menghitung Waktu Pengisian dan Pengosongan Kapasitor Menggunakan Free Pascal

Pada posting kali ini penulis akan memperlihatkan output program menghitung waktu pengisian dan pengosongan kapasitor menggunakan Free Pascal, beserta source code nya. Program ini menggunakan function dan menu pada pascal.

Flowchart Program

Tampilan dari program

Source Code Program

program waktukapasitor; uses crt; function pengisian(R,C:real):real; begin pengisian:=(5*R*C); end; function pengosongan(R,C:real):real; begin pengosongan:=(R*C*5); end; var pil:string; R,C:real; begin clrscr; writeln('Gunakan e untuk x10, jika melebihi satuan Ohm/Farad'); writeln; write('Masukkan Nilai R: '); readln(R); write('Masukkan Nilai C: '); readln(C); writeln; write('Hitung Waktu Pada: '); writeln('A. Pengisian'); writeln(' B. Pengosongan'); writeln; write('A/B? '); readln(pil); writeln; if pil='a' then begin clrscr; write('Waktu Pengisian Kapasitor adalah ',pengisian(R,C):3:4); write(' detik'); readln; end else if pil='b' then begin clrscr; write('Waktu Pengosongan Kapasitor adalah ',pengosongan(R,C):3:4); write(' detik'); readln; end else begin clrscr; writeln('Mohon Pilih Sesuai Pilihan'); readln; end end.