masukkan script iklan disini
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.
