menghitung jarak dan respons waktu dengan procedure di pascal

                 

                Sensor ultrsonik yang kali ini ada menggungakan perhitungan digital tapi apakh kita mengetahui  bagaimana perhitungan sensor ultarsonik dengan cara manual.dalams ensorultrasonik sebenarnya memiliki rumus yang tidak asing lai 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 programnyaanya 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; program jarak_maksimun_dan_respon_waktu_pada_sensor_ultrasonik; uses crt; procedure f_S(f_V,f_Tin: real; var result: real); begin result:=(f_V*f_Tin)/2; end; procedure f_Tin(f_S,f_V: real; var result: real); begin result :=(f_S*2)/f_V; end; var S,V,Tin, pilihan, res : 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); f_S(Tin,V, res); writeln('nilai S = ', res: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); f_Tin(S,V,res); writeln('nilai Tin= ', res:2:3, ' M/s'); writeln('cepat rambat gelombang ultrasonik (V) biasanya 344 m/s'); end else begin writeln('salah input'); end; readln; end.