Program Pascal Konversi Mata Uang

PROGRAM PASCAL (Program Konversi Mata Uang)

Program Konversi;
Uses    crt;
Var     pil         :real;
        idr,usd,myr :real;

begin
  clrscr;
  writeln('/////////////////////// SELAMAT DATANG DI PENUKARAN UANG ///////////////////// ');
  writeln;
  writeln(' Tersedia 2 Menu Pilihan ');
  writeln;
  writeln('         1. Dollar ke Rupiah');
  writeln;
  writeln('         2. Rupiah ke Dollar');
  writeln;
  write(' Tentukan Pilihan Anda (1-2)      : ');Readln(pil);

  if (pil=1) then
    begin
    writeln;
    write(' Masukkan Nilai Uang Dollar Anda  : ');readln(usd);
    pil:=usd*15000;
    writeln;
    write(' Nilai Uang Rupiah Anda Adalah    : ',pil:5:0);
    writeln;
    end
  else if (pil=2) then
    begin
    writeln;
    write(' Masukkan Nilai Uang Rupiah Anda  : ');readln(idr);
    pil:=usd/15000;
    writeln;
    write(' Nilai Uang Dollar Anda Adalah    : ',pil:5:0);
    writeln;
    end
  else
    begin
    writeln;
    write('Input yang Anda Masukkan SALAH, Silahkan Pilih 1/2');readln;
    writeln;
    end;

  write('/////////////////////////////////////////////////////////////////////////////');
  readln;
end.

Semoga Bermanfaat.

=======================================================

Jangan lupa kunjungi kami di akun lain

Instagran: https://www.instagram.com/learnanything_bsb/

Twitter: https://www.twitter.com/siska_kojiro/

Blog: https://www.learnanything.blogspot.com/

Youtube Channel: BSB Learn Anything

Facebook: BSB Learn Anything (@bsblearnanything)

WhatsApp: +62 856 6911 0663

Share on Google Plus

About Siska Elvadiningsih