Program Mencari Nilai Mata Uang
Mar 13, 2010 36 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… :)
Kata Kunci
rumus pascal, mencari mata uang.
Nu
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
mz mau tanya gimana caranya membuat program mencari rata rata dengan pascal yang dikolaborasikan dngan C++
@martina
Waduh.. belum sempat bikin je mbak.. punten ya..
@akulah
Kolaborasi yang seperti apa ya?
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
listing program buat nilai yang sering muncul dengan java
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.
eh, baris terakhir sourcode diatas ” ” tidak masuk dalam program.. tq
maz mau tanya gmn ch flowchart & program menentukan nilai-nilai faktorial
dengan menggunakan perintah seleksi if…..then & perintah seleksi case…of
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.
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
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…..
wah bagus juga nih..versi lain dari terbilang..
salam kenal, silakan mampir di tempat saya..thanks
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
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…
mw tanya..
buad program nilai mata uang mis dimasukkan bilangan 10000 muncul sepuluh ribu…
begitu seterusnya sesuai bilangan yang dimasukkan..
tapi harus memakai bahasa for to do sama if then else aja…selain pakek itu nggak boleh..
gmn za?mohon bantuannya..
mau nanya ,kalo listing program dengan materi prosedur itu contohnya gmn ya mas?
mohon bantuannya
@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();
}
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
Maaf mas sya mau nax bgimna Carax mmbuat Program Prcabangan n skligus Mnggunakan Flowchart ,,,,
mo nanya dong klo program konversi mata uang itu kaya gmana ya source codenya pake pascal atau c#??
mohon bantuannya….
thankz…
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…
bagaimana cara menghitung perkalian matrik yang generik pada pascal
maaf mas mohon bantuannya …
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
thanks bro…
jazakillah khairan katsira
klo pake VB.NET bs ga???
mas maw tnya gmna ya cranya membuat if bersarang itu,
trimakasih
tolong Program Mencari Nilai Mata Uang versi array donk..yang bahasa pascal
uses wincrt;
var d : char;
j,ntr,ntd,h,s,t : longint;
f:real;
pil,pilihan:integer;
satuan1,satuan2 : string;
label a,b,g;
begin
a:
clrscr;
writeln(‘ — <<>> — ‘);
writeln(‘ — <<>> — ‘);
writeln(‘ — <<>> — ‘);
writeln;
write(‘ pilih nomer berapa {1-2} ?’);readln(pilihan);
clrscr;
case pilihan of
1:begin
g:
clrscr;
gotoxy(1,1);write(‘1.Kroner Norwegia’);
gotoxy(1,2);write(‘2.Rupee Pakistan’);
gotoxy(1,3);write(‘3.Peso Filipina’);
gotoxy(1,4);write(‘4.NewZloty Polandia’);
gotoxy(1,5);write(‘5.Escudo Portugal’);
gotoxy(1,6);write(‘6.Qatar Rial’);
gotoxy(1,7);write(‘7.Leu Rumania Baru’);
gotoxy(1,8);write(‘==================’);
gotoxy(40,1);write(‘1.Kroner Norwegia’);
gotoxy(40,2);write(‘2.Rupee Pakistan’);
gotoxy(40,3);write(‘3.Peso Filipina’);
gotoxy(40,4);write(‘4.NewZloty Polandia’);
gotoxy(40,5);write(‘5.Escudo Portugal’);
gotoxy(40,6);write(‘6.Qatar Rial’);
gotoxy(40,7);write(‘7.Leu Rumania Baru’);
gotoxy(40,8);write(‘==================’);
gotoxy(30,4);write(‘ke’);
gotoxy(1,12);write(‘dari mata uang(tuliskan numbering di atas)=’);readln(pil);
gotoxy(1,13);write(‘ke mata uang(tuliskan numbering di atas)=’); readln(pil);
gotoxy(1,14);write(‘masukan jumlah uang yang ingin di tukar=’);readln (f);
if (pil=1) and (pil=2) then
writeln(‘=======================================’);
writeln (‘1 kroner norwegia=15.29 ruppe pakistan’);
f:= 15.29 * f;
writeln;
Writeln(‘hasil = ‘,f:2:3,’ rupee’);
writeln(‘======================================’);
if (pil=2) or (pil=1) then
writeln (‘1 rupee pakistan=0.007 krnoer norwegia’);
f:= 0.007 * f;
writeln;
Writeln(‘hasil = ‘,f:2:3,’ kroner’);
writeln(‘=======================================’);
writeln(‘tekan enter untuk kembali’);
readln;
goto g;
readln;
end;
end;
end.
mas saya punya progam spti diatas saya bingung kok tiap kita masukan angka selain 1 dan 2 pasti keluar dua” nya kalo bs mas coba trus kasih penyelesain nya plz
yg ini writeln(‘ — <> — ‘);
writeln(‘ — <> — ‘);
writeln(‘ — <> — ‘);
yang bener ini
writeln(‘ — <<>> — ‘);
writeln(‘ — <<>> — ‘);
writeln(‘ — <<>> — ‘);
yg bener
writeln(‘ PILIHAN MENU ‘);
writeln(‘ 1. konversi mata uang ‘);
writeln(‘ 2. rumus fisika ‘);
writeln;
sry tdk bermaksud junk
saya mau tanya bang:bagaimana rumus faktorial di program visual base 6.0
blz ke mail ya bang yopyan91effendi@yahoo.com
mas gimana cara penulisan program pascal jika soalnya begini … jika nilai > 175 sampai dengan 200 hasilnya lulus….
tolong ya mas…. mks sebelum dan sesudahnya,
mas,gmn cra supaya output’x jd kyk gni pake repeat until???
12345
2345
345
45
5
NIce share sob…
ijin nyimak aja dulu..
:D
maav mau tanya kalau membuat program untuk menentukan akar persamaan kuadrat dari sebarang nilai a, b dan c yang dimasukkan lewat keyboard bagaimana? dan • Gunakan if – else untuk menentukan jenis D (diskriminan) sebelum menghitung akar-akarnya yakni x1 dan x2.. mohon di balas secepatnya
mohon bantuannya,
mau nanya, listing program untuk menapilkan nilai mata uang rupiah yang setara dengan US$, Euro, dan Singapore$. acuannya ini :
1 US$ = Rp. 9.375
1 Euro = Rp.1,0435
1SG$ = Rp.1,725
kalau kita masukkan input 2 ?
hmmm.. ini contoh klw dia input 3 maka hasilnya :
3 US$ = Rp. 28.125
3 Euro = Rp.31.305
3 SG$ = Rp.5.175
terimakasih sebelumnya..