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 :

uses crt;

var

v,vs,fs,fp : real;

pilihan1, pilihan2 : string;

begin

clrscr;

writeln('efek dopler');

write('masukan bilangan v =');readln(v);

write('masukan bilangan vs =');readln(vs);

write('masukan bilangan fs =');readln(fs);

writeln;

write('apakah kondisi mobil mendekati sumber ? (y atau t)');

readln(pilihan1);

if (pilihan1 = 'y') then

   begin

   fp:=v/(v-vs)*fs;

   write('hasil pada saat mobil mendekati sumber :',fp);

   readln;

   end

else if (pilihan1 = 't') then

   begin

   write('apakah kondisi mobil menjauhi sumber ? (y atau t)');

   readln(pilihan2);

   if (pilihan2 = 'y') then

      begin

      fp:=v/(v+vs)*fs;readln;

      write('hasil pada saat mobil menjauhi sumber :',fp);

      readln;

      end

   else if (pilihan2 = 't') then

      begin

      write('tidak dapat menghitung efek doppler');

      end

   else

      begin

      write('salah input');

      end;

   end

else

   begin

   writeln('salah input');

   end;

end.

readln;

end.