Program Perhitungan Efek Dopler

Aplikasi yang saya buat ini bertujuan untuk menghitung nilai frekuensi sinyal pembawa. Terdapat 2 pilihan perhitungan frekuensi sinyal pembawa mendekati frekuensi sumber dan perhitungan frekuensi sinyal pembawa menjauhi frekuensi sumber. Cara kerja program ini adalah dengan mengolah input nilai cepat rambat bunyi di udara (V), kecepatan sumber bunyi (Vs), Frekuensi dari sumber bunyi (Fs), . Output yang dihasilkan sesuai dengan pilihan frekuensi sinyal pembawa mendekati frekuensi sumber atau perhitungan frekuensi sinyal pembawa menjauhi frekuensi sumber.

FLOWCHART :

                                   

SOURCE CODE :

program perhitungan_efek_dopler;

uses crt;

var

v,vp,vs,fs,fp,fpn,kp_baru, ret: real;

pilihan1: string;

procedure funct_fp(f_vs, f_vp, f_fs, f_v: real; var result: real);

var

   fp: real;

begin

   fp := ((f_v+f_vp)/(f_v-f_vs))*fs;

   result := fp;

end;

procedure funct_fpn(f_vs, f_vp, f_fs, f_vn: real; var result: real);

var

   fpn : real;

begin

   fpn := ((f_vn-f_vp)/(f_vn+f_vs))*fs;

   result := fpn;

end;

begin

clrscr;

writeln('masukkan pilihan :');

writeln('[1] menghitung pendengar mendekati sumber ');

writeln('[2] menghitung pendengar menjauhi sumber');

readln(pilihan1);

writeln;

if (pilihan1 = '1') then

begin

   writeln('masukan nilai cepat rambat gelombang di udara,kecepatan sumber bunyi,kecepatan pendengar,frekuensi sumber');

   writeln('di program untuk mencari pendengar mendekati sumber ini');

   writeln;

   write('masukan nilai cepat rambat gelombang di udara:');readln(v);

   write('masukan nilai kecepatan sumber:');readln(vs);

   write('masukan nilai kecepatan pendengar;');readln(vp);

   write('masukan nilai frekuensi sumber;');readln(fs);

   funct_fp(v,vs,vp,fs,kp_baru);

   write('hasil dari fp :','(','(',v,'+',vp,')','/','(',v,'-',vs,')',')','*',fs,'=',kp_baru);

   readln;

end

else if (pilihan1 = '2') then

begin

   writeln('masukan nilainilai cepat rambat gelombang di udara,kecepatan sumber bunyi,kecepatan pendengar,frekuensi sumber');

   writeln('di program untuk mencari pendengar menjauhi sumber');

   writeln;

   writeln('masukan nilai cepat rambat gelombang di udara:');readln(v);

   writeln('masukan nilai kecepatan pendengar:');readln(vp);

   writeln('masukan nilai kecepatan sumber:');readln(vs);

   writeln('masukan nilai frekuensi sumber:');readln(fs);

   funct_fpn(v,vp,vs,fs,kp_baru);

   writeln;

   write('hasil dari fpn:','(','(',v,'-',vp,')','/','(',v,'+',vs,')',')','*',fs,'=',kp_baru);

   readln;

end

else

   begin

      writeln('salah input');

   end;

readln;