Menghitung Cepat Rambat Gelombang (Procedure & Menu)

Pada kali ini, saya kembali akan memposting sebuah program aplikasi pascal mirip seperti sebelumnya. Namun, yang membedakannya di program ini adalah perintah Function diganti menjadi Procedure. Kelebihan dari fungsi Procedure adalah kita bisa membuat pilihan menu tanpa harus mendeklarasikan jenis variabel pada menu tersebut, sehingga lebih hemat waktu.

Cara kerjanya pun dapat dilihat pada flowchart berikut, sama seperti dengan postingan sebelumnya.

 

Dari flowchart tersebut, lalu dikembangkan dalam koding pada pascal, seperti berikut ini.

 

 

program menghitung_cepat_rambat_gelombang; uses crt; procedure funct_c_f(f_f, f_lambda: real; var result: real); begin result := f_lambda * f_f; end; procedure funct_c_t(f_t, f_lambda: real; var result: real); begin result := f_lambda / f_t; end; var lambda, c, f, t, res: 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); funct_c_f(f, lambda, res); writeln('cepat rambat gelombang = ', res:2:2, ' m/s'); end else if (pil = '2') then begin write('periode = '); readln(t); write('panjang gelombang = '); readln(lambda); funct_c_t(t, lambda, res); writeln('cepat rambat gelombang = ', res:2:2, ' 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. Menggunakan Frekuensi

2. Menggunakan Periode

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

Sekian dan Terimakasihhhhh!!!!