Program Mencari Nilai Mata Uang

Mar 13, 2010 27 Comments by Nu

Menjawab pertanyaan mbak/mas albab :

maaf,
mau tanyak..
untuk program mencari nilai mata uang gmn ya mas?
pke struktur if else.
misalnya uang yang kita masukin 100.000
outputnya :
1 lembar uang 100 rb dan 0 lembar uang 50 rb.
itu gmn ya mas?
trimakasiih sblmnya.

kira-kira begini penyelesaiannya :

uses wincrt;
 
var uang : longint;
 
begin
  write('Nilai uang : ');readln(uang);
 
  if uang div 100000 > 0 then begin
    writeln(uang div 100000, ' lembar seratus ribuan');
    uang := uang mod 100000;
  end;
 
  if uang div 50000 > 0 then begin
    writeln(uang div 50000, ' lembar lima puluh ribuan');
    uang := uang mod 50000;
  end;
 
  if uang div 20000 > 0 then begin
    writeln(uang div 20000, ' lembar dua puluh ribuan');
    uang := uang mod 20000;
  end;
 
  if uang div 10000 > 0 then begin
    writeln(uang div 10000, ' lembar sepuluh ribuan');
    uang := uang mod 10000;
  end;
 
  if uang div 5000 > 0 then begin
    writeln(uang div 5000, ' lembar lima ribuan');
    uang := uang mod 5000;
  end;
 
  if uang div 1000 > 0 then begin
    writeln(uang div 1000, ' lembar ribuan');
    uang := uang mod 1000;
  end;
 
  if uang div 500 > 0 then begin
    writeln(uang div 500, ' lembar lima ratusan');
    uang := uang mod 500;
  end;
 
  if uang div 100 > 0 then begin
    writeln(uang div 100, ' ratusan');
    uang := uang mod 100;
  end;
 
  if uang div 50 > 0 then begin
    writeln(uang div 50, ' limapuluhan');
    uang := uang mod 50;
  end;
 
  if uang > 0 then begin
    writeln(uang, ' satuan');
  end;
 
end.

Untuk perubahan lain yang diinginkan, silakan tanyakan disini. :)
Semoga membantu… :)

Kata Kunci

rumus pascal, mencari mata uang, lulus tidak lulus dengan pascal NuSinau.

Pascal

About the author

Mantan Tentor SD dan SMP, mantan Guru SMA, mantan Dosen PT, mantan IT Helper, mantan Programmer, mantan IT Analyst.... Sekarang... Berusaha jadi pengangguran, masih muda, masih belajar.... Jangan panggil saya pak!

27 Responses to “Program Mencari Nilai Mata Uang”

Reply
martina says:
13 March 2010 at 19:21
ass….bisa gak minta tolong dikirimkan script program atau sekalian file program ke email aku pembuatan enkripsi-desripsi data dengan metode vernam cipher (konfer dlm bentuk biner) atau vegenere cipher (cipher = (plain + key) mod 26) dalam bahasa visual basic or delphi. trima kasih banyak sebelumnya telah membantu.oc
Reply
akulah says:
23 March 2010 at 20:06
mz mau tanya gimana caranya membuat program mencari rata rata dengan pascal yang dikolaborasikan dngan C++
Reply
Nu says:
24 March 2010 at 16:32
@martina
Waduh.. belum sempat bikin je mbak.. punten ya..
@akulah
Kolaborasi yang seperti apa ya?
Reply
izul says:
1 April 2010 at 18:30
mau tanya..
listing program buat nilai yg sering muncul gmn ya…????
misalx di input … 2 , 3, 3, 4, 4, 5 , 5, 5, 5,..
ntar hasilx yg sering muncul 5…..
mohon bantuannya

bahrie says:

7 April 2010 at 00:32

listing program buat nilai yang sering muncul dengan java

 
public class Modus {
    public static void main(String[] args) {
        int a[]={2,2,3,3,3,3,3,3,3,4,4,4,4,5,5,5,5,5,5};
        int c=a[0];
        int b=0;
        int hasil=0,besar=0;
 for (int i=0; i<a>besar){
                    besar=b;
                    hasil=c;
                    }
            }else{
                c=a[i];
                b=1;
                System.out.print(a[i]+" ");
                System.out.println(b);
            }
        }
        System.out.println("Modus = "+hasil);
    }
}
 
</a>

bila ingin lebih jelas. silahkan dowload sourcecodenya di sini http://www.ziddu.com/download/9330766/Modus.zip.html
buka dengan netbeans, sourcecodenya sudah saya beri keterangan..

salah satu mahasiswanya mas Nu.
ym. bahrie127
buat Mas Nunu, klo mau list programku ini klo ingin diposting di nusinau.com juga boleh..
maturnuwun.

Reply
bahrie says:
7 April 2010 at 00:36
eh, baris terakhir sourcode diatas ” ” tidak masuk dalam program.. tq
Reply
azizi says:
9 May 2010 at 20:14
maz mau tanya gmn ch flowchart & program menentukan nilai-nilai faktorial
dengan menggunakan perintah seleksi if…..then & perintah seleksi case…of
Reply
Septi Maharani says:
28 May 2010 at 20:56
program P0203;
uses crt;
type
lardat = array[1..20,1..20] of integer;
var
mk,absen,quis,tm,uts,uas,no,nilai : lardat;
nama,jur,npm : array[1..20] of string;
n,i,j,jum,kode,jmk : Integer;
grade,pilih : Char;
begin
repeat
clrscr;
Writeln(‘MENU UTAMA’);
Writeln(’1. Entry Data’);
Writeln(’2. Display’);
Writeln(’2. Exit’);
Write(‘Pilihan Anda : ‘);Readln(pilih);
case pilih of
’1′: begin
clrscr;
write(‘Jumlah Mahasiswa :’);readln(jum);
for i := 1 to jum do
begin
writeln(‘No ‘ ,i);
Write(‘NAMA : ‘);readln(nama[i]);
Write(‘NPM : ‘);Readln(npm[i]);
if(copy(npm[i],5,2)) = ’21′ then
jur := ‘SI’
else
if(copy(npm[i],5,2)) = ’22′ then
jur := ‘MI’
else
jur := ‘KA’;
writeln(‘Jurusan : ‘ ,jur);
end;
write(‘Jumlah Matakuliah :’);readln(jmk);
for j := 1 to jmk do
begin
writeln(‘Matakuliah ke :’);readln(mk[j]);
write(‘Matakuliah :’);readln(mk[j]);
Write(‘NILAI ABSEN : ‘);Readln(absen[j]);
write(‘Nilai TM :’);readln(tm[j]);
write(‘Nilai Quis :’);readln(quis[j]);
write(‘Nilai UTS :’);readln(uts[j]);
write(‘Nilai UAS :’);readln(uas[j]);
if (nilai >= 80) then
begin
grade := ‘A’;
ket := ‘LULUS’;
end
else
if (nilai >= 69) and (nilai = 56) and (nilai = 46) and (nilai < 55) then
begin
grade := 'D'
ket := 'TIDAK LULUS';
end
else
grade := 'E';
ket := 'TIDAK LULUS';
nilai := (10/100 * absen)+(10/100 * tm)+(10/100 * quis)+(30/100 * uts)+(40/100 * uas);
writeln('Total Nilai : ' , nilai :8:0);
end;
end;
'2' : begin
clrscr;
writeln('=============================================================================');
writeln('No Nama NPM Jurusan Matakuliah Nilai Grade Keterangan');
writeln('=============================================================================');
for i := 1 to n do
begin
writeln(no[i]:4, nama[i]:8, npm[i]:12, jur[i]:16, mk[i]:20, nilai[i]:24, grade[i]:28, ket[i]:32);
writeln('=============================================================================');
readln;
end;
'3' : Exit;
end;
until pilih = 3
end.
kenapa y maz, program yang saya buat diatas kalau di running muncul komen "type mismatch"
dan saya minta bantuan apa yang perlu di ganti atau di kurangi dan di tambah dalam programnya.
kalau mau di tambah record gimana ??
flowchart listing programnya gimana ???
terima kasih sebelumnya, dan mohon secepatnya di balas ke alamat email saya.
Reply
prima kurniawan says:
21 June 2010 at 22:01
mas mau tanya, klo pengen buat untuk menampilkan MODUS (data yang paling sering muncul) dengan suatu masukan misal X (random) itu gmn ya???? mohon bantuannya…
klo bisa listingnya pake bahasa BASIC,,,, klo g PASCAL ja gpp….. trima kasih
Reply
anti says:
22 June 2010 at 17:30
mz………….pakabar??????kgen banget ma nusinau.com………ne lisa angkatan 07,,,,mz mw tanya …. ada program pascal stack yang berisi push,pop,clear dan search ga mz???trz ditambah lagi ada sorting nama gitu????sebelumnya makasih ya mas…..
Reply
jagadkomputer says:
29 September 2010 at 08:49
wah bagus juga nih..versi lain dari terbilang..
salam kenal, silakan mampir di tempat saya..thanks
Reply
dewi says:
12 November 2010 at 08:04
mas mau tanya gmana program konversi uang menjadi terbilang dalam pascal tetapi hanya boleh menggunakan if bersarang tidak boleh memakai function, case of, repeat until, while n do while, array atau pun yang lainnya.. hanya menggunakan kondisi if bersarang..
ex:
input : 89999 {ntar dibawahnya muncul ejaannya}
delapan puluh sembila ribu sembilan ratus sembilan puluh sembilan
klo tau tolong dkirim ke e-mail saya ya mz..
trim’s
Reply
rina says:
21 November 2010 at 21:14
mau tanya…
klau program mncri nilai mata uang jika dimasukkan 16729100
hasilnya enam belas juta tujuh puluh dua sembilan ribu seratus
gimana ya??/
mohon bntuannya…
Reply
lyecha says:
24 November 2010 at 19:30
mw tanya..
buad program nilai mata uang mis dimasukkan bilangan 10000 muncul sepuluh ribu…
begitu seterusnya sesuai bilangan yang dimasukkan..
Reply
lyecha says:
24 November 2010 at 19:31
tapi harus memakai bahasa for to do sama if then else aja…selain pakek itu nggak boleh..
gmn za?mohon bantuannya..
Reply
Maulana Fatkhurraman says:
10 December 2010 at 06:39
mau nanya ,kalo listing program dengan materi prosedur itu contohnya gmn ya mas?
mohon bantuannya
Reply
Maulana Fatkhurraman says:
10 December 2010 at 06:50
@lyecha
#include
#include
void main()
{
const dollar=10000
const yen=1250
const bat=2500
float ju,pk,hk;
clrscr();
printf(“Konversi Mata Uang Rupiah”);
printf(“input jumlah uang:”);
scanf(“%f”,&ju);
printf(“konversi:\n”);
printf(“[1] US Dollar\n”);
printf(“[2] Yen Jepang\n”);
printf(“[3] Bath Thailand\n”);
printf(“pilihan Konversi[1-3]:”);
scanf(“%f”,&pk);
if (pk=1)(hk=ju/10000);
else if (pk=2)(hk=ju/1250);
else if (pk=3)(hk=ju/2500);
printf(“\nHasil Konversi:%f”,hk);
getch();
}
Reply
Tanya says:
11 December 2010 at 19:47
Mas bagaimana kalau caranya membuat jumlah bilangan prima dan non prima.
Output nya :
masukan jumlah:4
———————–
prima non prima
1 4
2 6
———————–
jmlh prima:2
jml nonprima:2
Reply
Dzulkifly Adhar says:
28 January 2011 at 20:32
Maaf mas sya mau nax bgimna Carax mmbuat Program Prcabangan n skligus Mnggunakan Flowchart ,,,,
Reply
hadi says:
25 February 2011 at 08:21
mo nanya dong klo program konversi mata uang itu kaya gmana ya source codenya pake pascal atau c#??
mohon bantuannya….
thankz…
Reply
hadi says:
25 February 2011 at 08:24
maaf kang mo nanya dong klo program konversi mata uang itu kaya gmana ya source codenya pake pascal atau c#??
misalnya dari dolar ke rupiah…
klo tau tolong ke email saya ya kang
mohon bantuannya….
thankz…
Reply
abdul gofuir says:
22 March 2011 at 09:20
bagaimana cara menghitung perkalian matrik yang generik pada pascal
Reply
abdul gofuir says:
22 March 2011 at 09:21
maaf mas mohon bantuannya …
Reply
depi says:
27 April 2011 at 08:08
mawuu’ tanya klo soal nya gni , , cranya gimana yaa ??
Buatlah program untuk menghitung jumlah huruf vokal dan konsonan dalam suatu array 1 dimensi seperti nampak pada tampilan berikut :
Jumlah array?3
Kata array ke-1 -> aku
Kata array ke-2 -> suka
Kata array ke-3 -> pascal
Vocal =6
Konsonan=7
Reply
aneuk nanggroe.. says:
6 May 2011 at 16:33
thanks bro…
jazakillah khairan katsira
klo pake VB.NET bs ga???
Reply
yusi says:
7 October 2011 at 09:14
mas maw tnya gmna ya cranya membuat if bersarang itu,
trimakasih
Reply
kres says:
29 October 2011 at 16:45
tolong Program Mencari Nilai Mata Uang versi array donk..yang bahasa pascal

Program Mencari Nilai Mata Uang

Kata Kunci

About the author

27 Responses to “Program Mencari Nilai Mata Uang”

Leave a Reply

About

Mohon Maaf

Popular Posts

Random Search Terms

Recent Search Terms