PROGRAM PASCAL TENTANG BATAS KEBOCORAN ARUS

Listing program

program batas_kebocoran_arus;

uses crt;

var nilai:real;

begin

 clrscr;

 write(' masukan nilai arus (0-100): ');

 readln(nilai);

 write('nilai arus tergolong: ');

if nilai>60 then

   write('bocor')

else

   write('normal');

readln;

end.

Logika program

pada awalnya itu dimulai dengan includenya lalu nama programnya dan nilai itu termaksud ke dalam real .setelah itu pada program percabangan ini menggunakan statement if-then pada program ini saya menggunakan if-then-else yaitu pada program ini menjalannkan batas arus yg diketahui dari 1 ampere sampai 100 ampere jika arus lebih dari 60 ampere maka akan ada kebocoran arus jika kurang dari itu maka kondisi arus normal . jalankan programnya yg di dapat jika kita masukan arus maka arus itu akan masuk golongan apa bocor atau normal 

programnya