Kali ini rumus hambatan yang saya buat adalah berbeda dengan rangkaian pararel yang pernah saya buat sebelumnya. rumus ini saya buat atas permintaan kekasih saya yang sedang ujian. berikut ada coding programnya. untuk yang pake TPW (Turbo Pascal Windows) silahkan ganti " uses crt " menjadi " uses wincrt "
USES CRT;
VAR
R: ARRAY [1..100] OF INTEGER;
SP: ARRAY [0..100] OF REAL;
N,I,RK:INTEGER; RP,RTOT:REAL;
BEGIN
CLRSCR;
WRITE('MASUKKAN N : ');READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE ('R[',I,']: ');READLN (R[I]);
END;
RK:=1;
FOR I:=1 TO N DO
BEGIN
RK:=RK*R[I];
END;
RP:=0;
FOR I:=1 TO N DO
BEGIN SP[I]:= RK/R[I];
RP:= RP+SP[I];
RTOT:=RK/RP;
END;
WRITE('R TOTAL ADALAH :', RTOT:8:3);
READKEY;
END.
outputya :
Rumus Hambatan Pada Pascal
Jika Anda menyukai Artikel di blog ini, Silahkan
klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di Creating Website