Perhitungan nilai Av dan Ai

Aplikasi yang saya buat ini bertujuan untuk menghitung nilai Av dan Ai. Terdapat 2 pilihan untuk menghitung Av dan Ai. Cara kerja program ini adalah dengan mengolah input nilai Tegangan Output dan nilai Tegangan input sedangkan untuk mencari nilai Ai dengan mengolah input nilai arus output dan nilai arus input. Output yang dihasilkan sesuai dengan pilihan perhitungan.

 flowchart :

source code :

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

begin
clrscr;
write('apakah anda ingin menghitung nilai Av ? (y atau t)');
readln(pilihan1);

if(pilihan1 = 'y')then
begin
  writeln('masukan nilai tegangan output dan tengangan 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
  else if (pilihan1 = 't')then
  begin
    write('apakah anda ingin menghitung nilai Ai ? (y atau t)');
    readln(pilihan2);

    if(pilihan2='y')then
    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
    else if(pilihan2='t')then
    begin
      writeln('tidak dapat menghitung nilai Ao dan Ai');
    end
    else
    begin
      writeln('salah input');
    end;
end
else
 writeln('salah input');
end.

readln;

end.