program mencari jumlah rangkaian seri dan paralel di turbo pascal

  program mencari jumlah rangkaian seri dan paralel di turbo pascal 

berikut program mencari jumlah rangkaian seri dan paralel di turbo pascal 

selamat mencoba

Program MENGHTUNG_RP_nBUAH_R_SERI

Uses wincrt;

Var

            Rs        : integer;

            RP       : real;

            Jml , i  : integer;

            Hub     : string [1];

{PROGRAM UTAMA}

BEGIN

{INISIALISASI}

Rs ≔0;            jml ≔0;  RP ≔0;

{MENENTUKAN JUMLAH Loop}

   Write(‘ jumlah resistor berapa : ‘ );readln(jml);

For  i:=1          to    jml do

BEGIN

Write (‘Nilai R-‘,i,’ adalah : ‘ ) readln(rs);

{PROSES}

RP ≔ RP + Rs ;

End.

Writeln;

Write(‘JUMLAH RP dari ‘,jml,’buah resistor SERI adalah =’,RP:2:6);

End.

Program MENGHTUNG_RP_nBUAH_R_PARALEL

Uses wincrt;

Var

            Rr        : integer;

            Rp       : real;

            Jml , i  : integer;

            Hub     : string [1];

{PROGRAM UTAMA}

BEGIN

{INISIALISASI}

Rs ≔0;            jml ≔0;  RP ≔0;

{MENENTUKAN JUMLAH Loop}

   Write(‘ jumlah resistor berapa : ‘ );readln(jml);

For  i:=1          to    jml do

BEGIN

Write (‘Nilai R-‘,i,’ adalah : ‘ ) readln(Rr);

{PROSES}

RP ≔ Rr + 1/Rp ;

End.

Writeln;

Write(‘JUMLAH RP dari ‘,jml,’buah resistor PARALEL adalah =’,RP:2:6);

End.

Program MENGHTUNG_RP_nBUAH_R_SERIDANPARALEL

Uses wincrt;

Var

            Rs        : real;

            RP       : real;

            Rr        :real;

            Jml , i  : integer;

            Hub     : string [1];

{PROGRAM UTAMA}

BEGIN

{INISIALISASI}

Rs ≔0;            jml ≔0;  RP ≔0; Rr ≔0;

{MENENTUKAN JUMLAH Loop}

   Write(‘ jumlah resistor berapa : ‘ );readln(jml);

For  i:=1          to    jml do

Decision

If hub:’rs’ then Rr : Rp + rs;

Else Rr ≔ Rr+ 1/Rp

end

Writeln;

Write(‘JUMLAH RP dari ‘,jml,’buah resistor  adalah =’,RP:2:6);

Writeln;

End.

 perlu diperhatikan penggunaan tanda harus benar jangan sampai salah karna akan memengaruhi saat di run