Newest Post
// On :Kamis, 23 Juni 2016
Program Menghitung Nilai IC dan IE Pada Transistor
Listing
program:
uses
crt;
var
menu
: integer;
ulang
: char;
h,ib
: real;
procedure
Menghitung_Nilai_IC;
begin
repeat
clrscr;
writeln ('Menghitung Nilai IC');
write ('Masukan Nilai beta : ');readln(b);
write ('Masukan Nilai ib : ');readln(ib);
writeln ('Rumus :(b+1)*ib');
h:=(b+1)*ib;
writeln ('Nilai Kapasitansi Adalah
:',h:0:0);
write (' ulang lagi[y/n]?'); readln
(ulang);
until upcase (ulang) <>'Y';
end;
procedure
Menghitung_Nilai_IE;
begin
repeat
clrscr;
writeln ('Menghitung Nilai IE');
write ('Masukan Nilai beta :');readln (b);
write ('Masukan Nilai ib :');readln(ib);
writeln ('Rumus : b*ib');
v :=b*ib;
writeln ('Nilai Induktansi adalah
:',v:0:0);
write (' ulang lagi[y/n]?'); readln
(ulang);
until upcase (ulang) <>'Y';
end;
procedure
menu_utama;
begin
clrscr;
writeln ('Menu Utama');
writeln ('1. Menghitung Nilai IC ');
writeln ('2. Menghitung Nilai IE');
writeln ('3. keluar');
writeln;
write ('Pilih Menu :');readln(menu);
case menu of
1: begin
Menghitung_Nilai_IC;
menu_utama;
end;
2:begin
Menghitung_Nilai_IE;
menu_utama;
end;
3: end;
end;
begin
clrscr;
menu_utama;
end.
Input Program:
Output Program :
Flow Chart :
