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,ret: real;
pilihan1: string;

function funct_fp(f_vs, f_vp, f_fs, f_v: real): real;
var
   fp: real;
begin
   fp := ((f_v+f_vp)/(f_v-f_vs))*f_fs;

   funct_fp := fp;
end;

function funct_fp(f_vs, f_vp, f_fs, f_v: real): real;
var
   fp : real;
begin
   fp := ((f_v-f_vp)/(f_v+f_vs))*f_fs;

   funct_fp := fp;
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);
   ret := funct_fp(v,vs,vp,fs);
   write('hasil dari fp :','(','(',v,'+',vp,')','/','(',v,'-',vs,')',')','*',fs,'=',ret);
   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);
   ret := funct_fp(v,vp,vs,fs);
   writeln;
   write('hasil dari fp:','(','(',v,'-',vp,')','/','(',v,'+',vs,')',')','*',fs,'=',ret);
   readln;
end
else
   begin
      writeln('salah input');

   end;