Menghitung Voltase pada waktu T

pada listing program ini akan dijelaskan secara penjabaran source kode dari program untuj menghitung voltase kapasitor pada waktu t saat pengisian / pengosongan pada rangkaian rc

program Menghitung voltase pada waktu T;

uses crt;
label y;
var hitung,loop1,loop2:integer;
    R,C,Vs,t,RC,pangkat,hslpangkat,hasilisi,hasilkosong:real;
begin
y:clrscr;
writeln('Hitung Voltase Kapasitor Pada Waktu T untuk :');
writeln;
writeln(' 1. Pengisian');
writeln(' 2. Pengosongan');
writeln;
write('1/2? ');
readln(hitung);
clrscr;

if hitung=1 then
begin
writeln('Pengisian Kapasitor');
writeln;
writeln('Gunakan e untuk x10');
writeln;
writeln('Contoh: 2x10^6 = 2e6');
writeln('        2x10^-6= 2e-6');
writeln;
write('Masukkan Nilai R (Ohm)  : '); readln(R);
write('Masukkan Nilai C (F)    : '); readln(C);
write('Masukkan Nilai Vs (Volt): '); readln(Vs);
write('Masukkan Nilai Waktu (s): '); readln(t);
RC:=R*C;
pangkat:=t/RC;
hslpangkat:=exp(ln(2.72)*-pangkat);
hasilisi:=Vs*(1-hslpangkat);
writeln;
writeln('Voltase Kapasitor Pada Waktu T (Volt)=',hasilisi);
writeln;
writeln('Hitung Kembali?');
writeln;
writeln(' 1. Ya');
writeln(' 2. Tidak');
writeln;
write('1/2? ');
readln(loop1);

if loop1=1 then
goto y

end
else if hitung=2 then
begin
writeln('Pengosongan Kapasitor');
writeln;
writeln('Gunakan e untuk x10');
writeln;
writeln('Contoh: 2x10^6 = 2e6');
writeln('        2x10^-6= 2e-6');
writeln;
write('Masukkan Nilai R (Ohm)  : '); readln(R);
write('Masukkan Nilai C (F)    : '); readln(C);
write('Masukkan Nilai Vs (Volt): '); readln(Vs);
write('Masukkan Nilai Waktu (s): '); readln(t);
       
RC:=R*C;
pangkat:=t/RC;
hslpangkat:=exp(ln(2.72)*-pangkat);
hasilisi:=Vs*hslpangkat;
writeln;
writeln('Voltase Kapasitor Pada Waktu T (Volt)=',hasilisi);
writeln;
writeln('Hitung Kembali?');
writeln;
writeln(' 1. Ya');
writeln(' 2. Tidak');
writeln;
write('1/2? ');
readln(loop2);

if loop2=1 then
goto y

end
End.