MENGHITUNG NILAI RANGKAIAN SERI 3 RESISTOR

Listing Program 

Uses crt;

Var R,R1,r2,V : integer;

Rtotal: integer;

I : integer;

Pada bagian pertama yaitu sebagai penamaan program dengan r,r1,r2,I,V dideklarsaikan sebagai bilangan bulat atau “integer”.

Begin

Clrscr;

Write(‘masukan nilai resistor’);

Writeln;

Write(‘masukan nilai r1:’);

Readln(R);

Write(‘masukan nilai r2:’);

Readln(R1);

Write(‘masukan nilai r3:’);

Readln(R2);

Rtotal:=R+R1+r2;

If(rtotal=0)

Then write(‘nilai salah’);

Dan di blok kedua terdapat begin untuk memulai perhitungan dalam program sebagai perhitungan resistor seri dengan memasukan nilai R1 dan R2, jika nilai total = 0 maka program akan muncul kalimat nilai salah. 

Write(‘masukan nilai V: ‘);

Writeln;

Readln(V);

I:=(V/Rt);

Writeln(I);

Readln;

End

Selanjutnya pada blok ini dari blok 2 jika nilai resistor lebih dari 0, maka program akan meminta memasukan nilai “I” dan memulai menghitung program mencari nilai arus atau “I” 

Bentuk Flowchart :