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