Dibawah ini adalah program pertukaran uang dari rupiah ke dolar atau sebaliknya dari dolar ke rupiah menggunakan percabangan if or then else.
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
2 responses to “Program Pertukaran Uang Rupiah dan Dolar”
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
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..