Program Pertukaran Uang Rupiah dan Dolar

Apr 21, 2009 2 Comments by Sahabat

Dibawah ini adalah program pertukaran uang dari rupiah ke dolar atau sebaliknya dari dolar ke rupiah menggunakan percabangan if or then else.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses wincrt;
 
var a : char;
  j,ntr,ntd,h,s : longint;
  satuan1,satuan2 : string;
begin
  write ('tukar rupiah atau dolar ? (r/d) '); readln (a);
  writeln;
  if (a='r') or (a='R') then
  begin
    write ('jumlah rupiah : '); readln (j);
    write ('nilai tukar rupiah terhadap dolar : '); readln (ntr);
    h := j div ntr ;
    s := j mod ntr ;
    satuan1 := ‘dolar’;
    satuan2 := ‘rupiah’;
  end
  else
  begin
    write ('jumlah dolar : '); readln (j);
    write ('nilai tukar dolar terhadap rupiah : '); readln (ntd);
    h := j*ntd;
    satuan1 :=’rupiah’;
  end;
  writeln;
  writeln ('hasil : ',h,’ ‘,satuan1);
  if (a = ‘r’) then
  writeln (‘sisa :,s,’ ‘,satuan2);
end.

Tampilan
tukar rupiah atau dolar ? (r/d) r
jumlah rupiah : 1000000
nilai tukar rupiah terhadap dolar :9800
hasil : 102 dolar
sisa : 400 rupiah
atau
tukar rupiah atau dolar ? (r/d) d
jumlah dolar : 58
nilai tukar dolar terhadap rupiah : 10500
hasil : 609000 rupiah

logika

var a menggunakan char sebab yang dibaca adalah bentuk karakter, r dan d.
var j(jumlah),ntr (nilai tukar rupiah),ntd (nilai tukar dolar),h (hasil),s (sisa) menggunakan longint sebab uang yang akan ditukarkan dan hasil bisa mencapai 2 milyar lebih. Tetapi jumlah yang dimasukkan dan hasil tidak boleh melebihi 2.147.483.647.
var satuan1,satuan2 menggunakan string sebab tipe data yang dimasukkan berupa karakter/kata.
Pertama memilih pertukaran, bila ingin menukarkan rupiah ketik r dan bila ingin menukarkan dolar ketik d lalu enter.
Bila yang diketik r atau R maka program akan mengerjakan pertukaran rupiah.
Jumlah rupiah diinputkan 1000000
Nilai tukar rupiah terhadap dolar diinputkan 9800
Karena dalam dolar tidak ada pecahan maka,
Rumus hasil adalah j div ntr {div adalah integer division atau pembulatan pembagian}. Jadi 1000000 dibagi 9800 dibulatkan hasilnya 102.
Rumus sisa adalah j mod ntr {mud adalah remainder atau sisa hasil bagi yang dibulatkan}. Jadi 1000000 mod 9800 adalah 400 karena 1000000 dibagi 9800 dibulatkan menjadi 102 dan masih mempunyai sisa 400.
Satuan1 untuk memberi keterangan dolar dibelakang angka pada hasil dalam pertukaran rupiah ke dolar.
Satuan2 untuk memberi keterangan rupiah dibelakang angka sebab sisa masih dalam bentuk rupiah.
karena huruf yang diketikkan dalam pertukaran adalah r/R, maka akan ditampilkan hasil dan sisa, tamplannya sebagai berikut:
hasil : 102 dolar
sisa : 400 rupiah
bila diketik dolar maka program akan mengerjakan pertukaran dolar ke rupiah.
Jumlah dolar diinputkan 58
Nilai tukar dolar terhadap rupiah diinputkan 10500
Karena hasilnya akan lebih banyak karena akan dalam bentuk rupiah maka
Rumus hasil jumlah dikalikan nilai tukar dolar. Dan tanpa sisa.
Satuan1 untuk member keterangan rupiah dibelakang angka pada hasil dalam pertukaran dolar ke rupiah.
karena huruf yang diketikkan dalam pertukaran bukan r/R, maka yang ditampilkan hanya hasil saja. tampilannya sebagai berikut :

hasil : 609000 rupiah

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

2 Responses to “Program Pertukaran Uang Rupiah dan Dolar”

  1. petrisia says:

    bs bantuin gak buat prog spt ini :
    buat program untuk menentukan posisi sebuah data,yang diisi secara randon 1 s/d 3000
    dengan 1×1000 atas bilangan bulat

  2. Surya says:

    program money_changer;
    uses crt;

    var
    kurs:longint;
    rp:longint;
    jml_tkr:longint;
    sisany:longint;

    begin
    clrscr;
    write(‘silahkan masukkan kurs : ‘);readln(kurs);
    write(‘selanjutnya, masukkan jumlah rupiah : ‘);readln(rp);
    jmlh_tkr := rp div kurs;
    sisany := rp mod kurs;
    Write(‘anda mendapatkan’,jmlh_tkr,’dari yg bisa ditukarkan’);
    write(sisany,’itu uang yg tidak bisa ditukar’);
    readln;
    end.

    itu bisa digunakan untuk semua mata uang,
    namun sebaiky digunakan untuk menukarkan rupiah..
    hehehehehe..

    thx ideny Gan..

Leave a Reply

You must be logged in to post a comment.