Opsi_Perhitungan_Nilai_AV_Dan_Ai_Pada_Rangakaian_Analisa_AC

Aplikasi pascal ini di buat untuk menghitung nilai Av dan Ai . Cara kerja aplikasi ini yaitu dengan memilih ingin menghitung Av atau Ai terlebih dahulu, dengan menu pilihan angka pada home screen, jika sudah masukkan input sesuai yang sudah dipilih, maka tekan enter untuk masuk ke sub menu yg sudah dipilih, kemudian masukkan nilai yang ingin di hitung, lalu tekan enter untuk melihat output yang ingin di hitung.

 

  

source code:

program Opsi_perhitungan_nilai_AV_dan_Ai_pada_analisa_AC;
uses crt;
var
opsi : integer;
Vo,Vi,Io,Ii,Ai,Av : integer;
pilihan1,pilihan2:string;


procedure v;
begin
writeln('masukan nilai tegangan output dan tegangan input');
writeln('diprogram untuk mencari Av');
writeln;
write('Nilai Tegangan Output=');readln(Vo);
write('Nilai Tegangan Input=');readln(Vi);
Av:=Vo DIV Vi;
write('hasil Av:',Vo,'/',Vi,'=',Av);
readln;
end;

procedure i;
begin
writeln('masukan nilai arus output dan arus input');
writeln('Di program untuk mencari Ai');
writeln;
writeln('Nilai Arus Output :');readln(Io);
writeln('Nilai Arus input :');readln(Ii);
Ai:=Io DIV Ii;
writeln;
write('Hasil dari Ai:',Io,'/',Ii,'=',Ai);
readln;
end;

procedure ex;
begin
clrscr;
end;


begin                                   ;
clrscr;
writeln('Program penghitungan ...');
writeln('');
writeln('1.Menghitung nilai AV 2.Menghitung nilai AI 0.Exit');
writeln('');
write('Pilih penghitungan yang ingin dilakukan (1 atau 2):');readln(opsi);
if opsi=1 then
begin
clrscr;
v;
end;
if opsi=2 then
begin
clrscr;
i;
end;
if opsi=0 then
begin
clrscr;
ex;
readln;
end;


end.