Menghitung Nilai Tahanan Seri dan Pararel

Buatlah sebuah algoritma yang menerima masukan nilai tiga buah tahanan (dalam Ohm): R1, R2, dan R3. Kemudian hitunglah dan tampilkan nilai tahanan total jika ketiga tahanan tersebut dipasang secara seri atau paralel.
Rumus Tahanan Seri : Rseri = R1+R2+R3
Rumus Tahanan Pararel : 1/Rpararel = 1/R1 + 1/R2 + 1/R3

Contoh:
Masukkan nilai tahanan R1 = 5
Nilai tahanan R2 = 10
Nilai tahanan R3 = 15

Hasil:
Nilai tahanan total seri = 30 Ohm
Nilai tahanan total paralel = 2.727 Ohm

Jawaban:

program Project1;

var
  r1,r2,r3       : integer;
  rseri          : integer;
  rpararel       : real;

begin
  write('Masukkan nilai tahanan R1 = '); readln(r1);
  write('Nilai tahanan R2 = '); readln(r2);
  write('Nilai tahanan R3 = '); readln(r3);
  rseri := r1 + r2 + r3;
  rpararel := 1 / ((1/r1) + (1/r2) + (1/r3));
  writeln('Nilai tahanan total seri = ',rseri,' Ohm');
  writeln('Nilai tahanan total pararel = ',rpararel:2:3,' Ohm');
  readln;
end.