PROGRAM RANGKAIAN SERI DAN PARAREL

Sudah hampr setengah tahun tidak pernah ngoding pakai pascal, jadi lupa semua. Tapi ternyata masih bisa membuat program rangkaian seri dan pararel. Padahal dulu belum pernah buat, g taunya sekali buat bisa jadi, yaaa meski ada errrror error sedikit. Namun, dengan sekejap bisa langsung jadi programnya. buatnya di Gedit Ubuntu, runningnya di Pascal 1.5 Windows, benar2 perpaduan. Bagi temen2 yang mau minta source codenya, bisa di copy dibawah ini, tapi di edit dulu, jang sampai sama, takjutnya dikira co-past nantinya:

program hambatan;

uses wincrt;

var

   R,r1,r2,r3,masukan : real;

begin

     writeln('PROGRAM RANGKAIAN SERI DAN PARAREL');  

  

   writeln('Masukkan nilai r1: '); readln(r1);

   writeln('Masukkan nilai r2: '); readln(r2);

   writeln('Masukkan nilai r3: '); readln(r3);

     writeln;

     writeln('PILIHAN: ');

     writeln('1. Rangkaian Seri');

     writeln('2. Rangkaian Pararel');

     writeln;

writeln('Masukkan pilihan: '); readln(masukan);

      if (masukan = 1) then

         begin

            R := r1+r2+r3;

            writeln('Hasilnya adalah: ',R:2:2);

         end

      else if (masukan = 2) then

         begin

            R := 1/r1+1/r2+1/r3;

            writeln('Hasilnya adalah: ',R:2:2);

         end

      else

         begin

            writeln('pilihan tidak tersedia');

         end;

writeln;

writeln('HAHAHAHAHA, ternyata ilmuku masih ada. :-)');

end.