program pascal rangkaian seri dan paralel

Listing program

program Rangkaian_seri_dan_paralel;

uses crt;

var a,b,c,z,x : integer;

begin

writeln('menghitung jumlah kapasitor paralel dan resistor seri');

write('nilai pertama:');

readln(a);

writeln('nilai kedua:');

readln(b);

write('nilai ketiga:');

readln(c);

z:=a+b+c;

x:=a+b;

writeln('hasil jumlah adalah:',z);

writeln('hasil jumlah adalah:',x);

end.

Logika program

Jadi pada program kali ini terdapat 2 function yaitu mencari hasil rumus nilai kapasitor paralel dan resistor seri jadi untuk nilai sama antara resistor dan kapasitor bisa diliat dari listingnya nilainya itu a,b,c,z,x integer lalu membaca nilai dari a,b,c setelah itu masuk ke 2 rumus yg berbeda seperti pada resistor Cuma ada 3 nilai dan kapasitor ada 2 nilai saja lalu terakhir membaca hasil dari rumus tersebut

hasilnya dan flowchartnya