Home > Pascal > Program Mencari Nilai Mata Uang

Program Mencari Nilai Mata Uang

March 13th, 2010 Nu Leave a comment Go to comments

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 :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

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… :)

Bookmark and Share
Related Posts
  1. Program Penjualan
  2. Program Mencari Rata-rata, Nilai Tertinggi dan Terendah
  3. Program Counter Digital
  4. Program Pertukaran Uang Rupiah dan Dolar
  5. Program untuk Mencari Akar Persamaan Kuadrat
  6. Program Nilai
  7. Program Input Nilai Mahasiswa
  8. Program Bilangan Genap
  9. Program dengan Array of String
Categories: Pascal Tags: , ,
  1. martina
    March 13th, 2010 at 19:21 | #1
    Reply | Quote

    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

  2. akulah
    March 23rd, 2010 at 20:06 | #2
    Reply | Quote

    mz mau tanya gimana caranya membuat program mencari rata rata dengan pascal yang dikolaborasikan dngan C++

  3. Nu
    March 24th, 2010 at 16:32 | #3
    Reply | Quote

    @martina
    Waduh.. belum sempat bikin je mbak.. punten ya..

    @akulah
    Kolaborasi yang seperti apa ya?

  4. izul
    April 1st, 2010 at 18:30 | #4
    Reply | Quote

    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

  5. bahrie
    April 7th, 2010 at 00:32 | #5
    Reply | Quote

    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.

  6. bahrie
    April 7th, 2010 at 00:36 | #6
    Reply | Quote

    eh, baris terakhir sourcode diatas ” ” tidak masuk dalam program.. tq

  7. azizi
    May 9th, 2010 at 20:14 | #7
    Reply | Quote

    maz mau tanya gmn ch flowchart & program menentukan nilai-nilai faktorial
    dengan menggunakan perintah seleksi if…..then & perintah seleksi case…of

  8. Septi Maharani
    May 28th, 2010 at 20:56 | #8
    Reply | Quote

    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.

  9. prima kurniawan
    June 21st, 2010 at 22:01 | #9
    Reply | Quote

    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

  1. No trackbacks yet.