Menghitung Waktu Pengisian dan Pengosongan Kapasitor Menggunakan Free Pascal (procedure)

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

Flowchart 

Tampilan output dari program

Tampilan menu pada program

; program waktukapasitor; uses crt; var pil:string; R,C,pengisian_res,pengosongan_res:real; procedure pengisian(R,C:real; var result:real); begin result:=(5*R*C); end; procedure pengosongan(R,C:real; var result:real); begin result:=(R*C*5); end; 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_res:3:4); write(' detik'); readln; end else if pil='b' then begin clrscr; write('Waktu Pengosongan Kapasitor adalah ',pengosongan_res:3:4); write(' detik'); readln; end else begin clrscr; writeln('Mohon Pilih Sesuai Pilihan'); readln; end end. .

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.