Program Rangkaian Listrik dalam Bahasa Pascal

Program Rangkaian_Listrik;
{dibaca 3 tahanan R1,R2 dan R3 kemudian tampilkan rangkaian total dalam
seri atau paralel}

var
        pilihan:integer;
        R1, R2, R3, Rs, Rp:real;
begin
        writeln('PILIHAN : ');
        writeln('1. SERI');
        writeln('2. PARALEL');
        write('masukkan pilihan anda (1/2) : ');readln(pilihan);

        case pilihan of
          1 : begin
                write('R1 : ');readln(R1);
                write('R2 : ');readln(R2);
                write('R3 : ');readln(R3);
                Rs:=(R1 + R2 + R3);
                writeln('Total rangkaian seri :',Rs);
              end;
          2 : begin
                write('R1 : ');readln(R1);
                write('R2 : ');readln(R2);
                write('R3 : ');readln(R3);
                Rp:=(1/ (1/R1 + 1/R2 + 1/R3) );
                writeln('Total rangkaian paralel :',Rp);
              end;
end;
end.

Posting Komentar

0 Komentar