Program Function Amplifier

Program Function Amplifier

uses crt;
var
amplifier1, amplifier2, amplifier3 : real ;

Function amplifier1 := vin ;
Function amplifier2 :=(R21/R11+1)*Vin2 ;
Function amplifier3 := (R21/R11+1)*Vin2 ;

var
pil : char;
vin,Vin1,R1,R2 : real ;
R21,R11, ,Vin2 : real;
selesai : boolen;
begin
clrscr;
writeln(‘GUNADARMA’);
writeln(‘****AGUNG WICAKSONO****’);
writeln(‘^^^^^^^^^Program Sederhana Penghitung Amplifier^^^^^^^’);

writeln(”);
writeln(‘1. *__ Voltage Follower Amplifier _*’);
writeln(‘2. *__ Inverting Amplifier _*’);
writeln(‘3. *__ Noninverting Amplifier _*’);
writeln(‘4. ***EXIT***’);
writeln(‘pilih 1-4: ‘);
readln(pil);

clrscr;
selesai := false;
case pil of
‘1’:
begin
writeln(‘__**Voltage Follower Amplifier**__’);
write(‘Masukkan tegangan input: ‘);
write(‘ Jadi, tegangan output sebesar : ‘, amplifier1(1));
readln;
end;
‘2’:
begin;
writeln(‘__**Inverting Amplifier**__’);
write(‘masukkan tegangan Input : ‘);
readln(Vin1);
write( ‘masukkan nilai R1 : ‘);
readln(R1);
write(‘masukkan nilai R2 : ‘);
readln(R2);
vout2:=vin1*(-1)*R2/R1;
write(‘jadi, tegangan output sebesar: amplifier2 ‘,);
readln;
end;
‘3’:
begin;
writeln(‘__**Noninverting Amplifier**__’);
write(‘Masukkan tegangan Input : ‘);
readln(Vin2);
write(‘masukkan nilai R1 : ‘);
readln(R11);
write(‘masukkan nilai R2 : ‘);
readln(R21);
Vout3:=(R21/R11+1)*Vin2;
write(‘jadi, tegangan output sebesar : ‘, amplifier3);
readln;
end;
‘4’:
selesai := true;

else
write(‘salah pilih’);
readln;
end;
end.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: