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.
Post a Comment