Menghitung Nilai Kurs Rupiah Terhadap Mata Uang Lain

Buatlah sebuah algoritma yang menerima masukan dari user suatu bilangan bulat rupiah. Kemudian tampilkan nilai Yen (Jepang), DM (Jerman), FF (Perancis) yang setara dengan nilai rupiah tsb. Carilah dari sumber lain nilai kursnya.

Contoh :
masukkan nilai rupiah = 120000

Hasil:
nilai Yen = 900
nilai DM = 1,5
nilai FF = 50

Jawaban:
Cara di bawah ini hampir sama dengan contoh source code menghitung nilai kurs rupiah terhadap dolar sebelumnya, hanya sedikit dimodifikasi untuk tiga mata uang yang berbeda.

program Project1;

const
  rateyen : real = 123;
  ratedm  : real = 8385;
  rateff  : real = 2499;

var
  rupiah : integer;

begin
  write('Masukkan nilai rupiah = ');
  readln(rupiah);
  writeln('Nilai Yen = ',rupiah/rateyen:2:2);
  writeln('Nilai DM  = ',rupiah/ratedm:2:2);
  writeln('Nilai FF  = ',rupiah/rateff:2:2);
  readln;
end.