zulkarnain vabbeta: Mei 2016

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!!!!

zulkarnain vabbeta

Sabtu, 28 Mei 2016

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