CORETAN KU

Bismillahirrahmanirrahim

Hai sobat,kali ini saya akan berbagai bagaimana cara membuat program TPW untuk menghitung besarnya hambatan listrik.Langsung saja berikut adalah programnya:

program menghitung_hambatan;

Uses WinCrt;

     var

     hm1:real;

     hm2:real;

     t1:real ;

     t2:real;

     a:char;

Begin

     Writeln('masukkan nilai hm1=');

     readln(hm1);

     Writeln('masukkan nilai hm2=');

     readln(hm2);

     Writeln('kode pemasangan s/p=');

     readln(a);

     writeln;  

     t1:=1/hm1+1/hm2;

     t2:=hm1+hm2;

     case a of

     'p':writeln('total hm=',t1:4:2);

     's':writeln('total hm=',t2:4:2);

     end;

End.      

Semoga bermanfaat .Silahkan baca juga Program pascal menghitung nota belanja disupermarket.