Penggunaan Procedure pada Program Pascal untuk Menghitung Nilai Vce pada Transistor

Penggunaan Procedure pada Program Pascal untuk Menghitung Nilai Vce pada Transistor

Berikut contoh penggunaan procedure pada pascal untuk menghitung nilai Vce pada transistor :

Skrip program :

uses wincrt;
procedure transistor;
var
r1,r2,rc,re,b,vcc : integer;
rb,vbb,ib,ic,ie,vce : real;
begin
clrscr;
write('masukan nilai R1  : ');readln(r1);
write('masukan nilai R2  : ');readln(r2);
write('masukan nilai Rc  : ');readln(rc);
write('masukan nilai Re  : ');readln(re);
write('masukan nilai B   : ');readln(b);
write('masukan nilai Vcc : ');readln(vcc);
rb := (r1*r2/(r1+r2));vbb := ((r2/(r1+r2))*vcc);
ib := ((vbb-0.7)/(rb+(b+1)*re));
ic := (b*ib);
ie := ((b+1)*ib);
vce := (vcc-(ic*rc)-(ie*re));

writeln('=====================================');

writeln(' nilai Rb adalah  : ' ,rb);
writeln(' nilai Vbb adalah : ' ,vbb);
writeln(' nilai Ib adalah  : ' ,ib);
writeln(' nilai Ic adalah  : ' ,ic);
writeln(' nilai Ie adalah  : ' ,ie);
writeln(' nilai Vce dalah  : ' ,vce);

end;
begin
transistor;
end.

Berikut outputnya setelah running :

Berikut dilampirkan juga flowchart