Menghitung Cepat Rambat Gelombang dengan Turbo Pascal ( Function & Menu )

Pada kali ini, saya akan memposting suatu aplikasi sederhana yang dibuat menggunakan program turbo pascal, dimana aplikasi tersebut dapat digunakan untuk mencari besar nilai Cepat Rambat Gelombang. Sama seperti pada postingan sebelumnya, tapi kali ini akan menggunakan perintah Function & Menu, dimana perintah pada pascal akan dilengkapi dengan menu. 

Cara Kerja dapat dilihat pada gambar folwcart tersebut

Dari flowchart tersebut, lalu dikembangkan dalam koding pada turbo pascal, seperti berikut ini. program menghitung_cepat_rambat_gelombang; uses crt; function funct_c_f(f_f, f_lambda: real): real; var result: real; begin result := f_lambda * f_f; funct_c_f := result; end; function funct_c_t(f_t, f_lambda: real): real; var result: real; begin result := f_lambda / f_t; funct_c_t := result; end; var lambda, c, f, t: real; pil: string; begin clrscr; writeln('PROGRAM MENGHITUNG CEPAT RAMBAT GELOMBANG'); writeln; writeln; writeln('1. Menghitung cepat rambat gelombang dengan frekuensi'); writeln('2. Menghitung cepat rambat gelombang dengan periode'); write('masukkan pilihan : '); readln(pil); if (pil = '1') then begin write('frekuensi = '); readln(f); write('panjang gelombang = '); readln(lambda); writeln('cepat rambat gelombang = ', funct_c_f(f, lambda):2:3, ' m/s'); end else if (pil = '2') then begin write('periode = '); readln(t); write('panjang gelombang = '); readln(lambda); writeln('cepat rambat gelombang = ', funct_c_t(t, lambda):2:3, ' m/s'); end else begin writeln('pilihan salah'); end; readln; end.
 Setelah itu di compile, lalu dibuat file exenya, kemudian akan menampilakan seperti di bawah ini

1. Perhitungan Menggunakan Frekuensi

2. Perhitungan Menggunakan Periode

Mungkin itu saja yang bisa saya tulis di postingan saya kali ini, semoga bermanfaat.

Sekian dan Terimakasisssss!!!!