Menghitung Hambatan
Jul 25, 2009 No Comments
Menghitung Hambatan 1 :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | uses wincrt; var hambatan1,hambatan2,t : real; a : char; begin write ('hambatan 1 : ');readln (hambatan1); write ('hambatan 2 : ');readln (hambatan2); write ('kode pemasangan (p/s) : ');readln (a); if (a='p')or(a='P') then begin t := 1/((1/hambatan1)+(1/hambatan2)); end else begin t := hambatan1 + hambatan2; end; writeln; writeln ('Hambatan total :',t:1:2 ); end. |
Menghitung Hambatan 2 :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | uses wincrt; var hambatan1,hambatan2,t1,t2 : real; a : char; begin write ('hambatan 1 : ');readln (hambatan1); write ('hambatan 2 : ');readln (hambatan2); write ('kode pemasangan (p/s) : ');readln (a); writeln; t1 := 1/((1/hambatan1)+(1/hambatan2)); t2 := hambatan1+hambatan2; case a of 'p': writeln ('total hambatan : ',t1 :1:2); 's': writeln ('total hambatan : ',t2 :1:2); end; end. |
Gunawan Setya Putra
[email protected]