Pascal - Program Rangkaian Listrik (switch-case)

Program Rangkaian Listrik (switch-case) menggunakan bahasa Pascal

program rangkaian_listrik;
{Dibaca tiga tahanan R1, R2 dan R3.Disusun tahanan tersebut menjadi paralel
 dan seri. Kemudian tampilkan hambatan seri total (RS) atau hambatan paralel
 total (RP). jika input "1" maka tampilkan seri (RS), kalau "2" maka tampilkan
 paralel (RP)}


(*DEKLARASI*)
var nomormenu:integer;
  R1, R2, R3, RS, RP:real;


(*ALGORITMA*)
begin
writeln('Program Rangkaian Listrik');
writeln('   ');
writeln('Pilihan : ');
writeln('1. Hitung Hambatan seri total (RS) ');
writeln('2. Hitung hambatan paralel total (RP) ');
writeln('3. Exit ');
write('Masukkan pilihan anda [1/2/3?] : ');
readln(nomormenu);

case nomormenu of
1: begin
       write('Masukkan nilai resistor 1 (R1) : ');
       readln(R1);
       write('Masukkan nilai resistor 2 (R2) : ');
       readln(R2);
       write('Masukkan nilai resistor 3 (R3) : ');
       readln(R3);
       RS:=R1+R2+R3;
       writeln('Besar hambatan seri total = ',RS,' ohm');
       end;
2: begin
       write('Masukkan nilai resistor 1 (R1) : ');
       readln(R1);
       write('Masukkan nilai resistor 2 (R2) : ');
       readln(R2);
       write('Masukkan nilai resistor 3 (R3) : ');
       readln(R3);
       begin
       RP:= (1/(1/R1+1/R2+1/R3));
       writeln('Besar hambatan paralel total = ',RP,' ohm');
       end;
       end;
3:begin
        write('   ');
        end;
        end;

 end.


HASIL COMPILE :