Program Pascal : Program Tahanan Listrik

program rangkaian_listrik_1_2;
{Dibaca 3 tahanan r1,r2,r3 real lalu hitung total rangkaian seri atau paralelnya
dengan cara input pilihannya 1:seri 2:paralel kemudian ditampilkan }

var r1,r2,r3 : integer ;
    t_seri : integer ;
    t_paralel : real;
    pilihan : integer;

begin
     writeln('');
     writeln('');

     write('Masukan besar tahanan 1 : ');
     read(r1);

     write('Masukan besar tahanan 2 : ');
     read(r2);

     write('Masukan besar tahanan 3 : ');
     read(r3);

     writeln('1.Hitung total seri');
     writeln('2.Hitung total paralel');
     write('Masukan pilihan anda : ');
     read(pilihan);      ;

     if pilihan = 1 then
     begin
        t_seri := r1+r2+r3;
     end
     else
     begin
        t_paralel := 1/(1/r1) + (1/r2) + (1/r3);
     end;


     if pilihan = 1 then
     begin
        writeln('Total rangkaian seri : ',t_seri);
     end
     else
     begin
        writeln('Total rangkaian paralel : ',t_paralel);
     end;

end.

Hasil Program