Menghitung Cepat Rambat Gelombang Dengan Pascal

Pada kesempatan kali ini saya akan menjelaskan  aplikasi menghitung cepat rambat gelombang yang telah saya buat menggunakan program pascal. Cara kerja aplikasi ini adalah memasukkan input berupa angka lalu diproses sesuai dengan source code dan akan menghasilkan output. Pada Perhitungan cepat rambat gelombang ini pertama-tama kita masukan nila frekuensi dan panjang gelombangnnya, setelah itu akan muncul hasil Cepat rambat gelombangnya. 

Dan pada kondisi setelah munculnya hasil cepat rambat gelombang, terdapat pilihan apabila kondisi hasil cepat rambat gelombang lebih besar nol (0) maka dinyatakan benar dan perhitungan kita akhiri dengan menekan n untuk mengakhiri program pada pilihan ingin menghitung lagi / tidak,  Jika hasil cepat rambat lebih kecil dari nol (0) maka dinyatakan salah dan perhitungan kita dapat menekan y untuk menghitung lagi atau kita juga bisa mengakhirinya dengan menekan n pada pilihan ingin menghitung lagi / tidak.

Berikut alur Flow Chartnya : 

Dan ini alur codinganny : 

panjang_gelombang : integer; Cepat_rambat_Gelombang : integer; lagi : char; Begin repeat begin clrscr; write('frekuensi :'); readln(frekuensi); write('panjang gelombang :'); readln(panjang_gelombang); write('Cepat_Rambat_Gelombang :'); Cepat_Rambat_Gelombang := frekuensi * panjang_gelombang; writeln(Cepat_Rambat_Gelombang); if Cepat_Rambat_Gelombang > 0 then writeln('Cepat Rambat Gelombang lebih besar dari 0, benar'); if Cepat_Rambat_Gelombang < 0 then writeln('Cepat Rambat Gelombang lebih kecil dari 0, salah'); write('apakah anda ingin melakukan perhitungan kembali[y/n] ? '); read(lagi); readln; end; until lagi= 'n'; clrscr; end.