Penggabungan resistor

Penggabungan resistor

Tulis program untuk menghitung resistor pengganti dari 3 buah resistor yang disusun secara seri atau paralel. Rumus untuk resistor pengganti sbb:

Seri:                       Rgab = R1 + R2 + R3

Paralel:                 1/Rgab = 1/R1 + 1/R2 + 1/R3

Besar R1, R2 dan R3 serta jenis penyusunan (seri/paralel) diINPUT oleh user.

Jawab:

uses crt;

var

        gab, r1, r2, r3: real;

        jenis: string;

begin

clrscr;

        writeln('Masukkan R1: ');

        readln(r1);

        writeln('Masukkan R2: ');

        readln(r2);

        writeln('Masukkan R3: ');

        readln(r3);

        writeln('Masukkan Jenis susunan, Seri / Paralel: ');

        readln(jenis);

        if (jenis = 'seri') then

                gab := r1 + r2 + r3

        else

                gab := (1 / r1) + (1 / r2) + (1 / r3);

                readln;

        writeln('R gabungan adalah: ', gab:2:0);

        readln;

end.