abdul: meghitung manual jarak maksimum dan respon waktu pada sensor ultrasonik dalam pascal dengan fitur function

Sensor ultrsonik yang kali ini ada menggungakan perhitungan digital tapi apakh kita mengetahui bagaimana perhitungan sensor ultarsonik dengan cara manual.dalams sensor ultrasonik sebenarnya memiliki rumus yang tidak asing lag

i bagi di telinga kita yaitu

S=(VxTin)/2

Dimana S=jarak sensor dengan benda (m)

V=cepat rambat gelombang ultrasonic (m/s )

(v biasanya yaitu 344 m/s apabila tak diketahui)

Tin=respons waktu terhadap sensor

Setelah ita mengetahui dengan baik perhitungan manual sensor ultrasonic ,maka sekarang kita dapat membuat perhitungannya dengan pascal memakai fitur function

Berikut ini adalah contoh dari flowcartnya

Dan ini adalah listing programnya

program jarak_maksimun_dan_respon_waktu_pada_sensor_ultrasonik;
uses crt;

function f_S(f_V,f_Tin: real): real;
var result: real;
begin
     result:=(f_V*f_Tin)/2 ;
     f_S := result;
end;

function f_Tin(f_S,f_V: real): real;
var result: real;
begin
     result :=(f_S*2)/f_V;
     f_Tin := result;
end;

var
S,V,Tin, pilihan : real;

begin
clrscr;
writeln(' MENGITUNG JARAK MAKSIMUN DAN RESPON WAKTU PADA SENSOR ULTRASONIK  ');
writeln(' ');
writeln(' ');
writeln('cepat rambat gelombang ultrasonik(V)');
write('masukkan nilai : ');
readln(V);
writeln;
writeln('--------------------------------------------------');
writeln('-----------------------MENU-----------------------');
writeln('[1] Menghitung jarak maksimun sensor ultrasonik(S)');
writeln('[2] Menghitung respon waktu sensor ultrasonik(Tin/T)');
write('masukkan pilihan : ');
readln(pilihan);
writeln('--------------------------------------------------');

if (pilihan = 1) then
begin
write('masukkan nilai Tin : ');
readln(Tin);

S :=f_S(Tin,V);

writeln('nilai S = ', S:2:3, ' M');
writeln('cepat rambat gelombang ultrasonik (V) biasanya 344 m/s');
end

else if (pilihan = 2) then
begin
write('masukkan nilai S : ');
readln(S);

Tin := f_Tin(S,V);
writeln('nilai Tin= ', Tin:2:3, ' M/s');
writeln('cepat rambat gelombang ultrasonik (V) biasanya 344 m/s');

end
else
begin
writeln('salah input');
end;

readln;
end.

penampakannya ih gan dari pilihan 1 -yang menyatakan salah nput