uses crt;
var
Jumlahlembar : longint;
Totharga : longint;
Pembayaran : real;
hpl : byte;
discount : real;
begin
clrscr;
writeln('PROGRAM INPUT HARGA FOTO COPY');
writeln('-----------------------------------');
write('Jumlah Lembar :');readln(jumlahlembar);
if Jumlahlembar >=200 then hpl:=90 else
if jumlahlembar <=200 then hpl:=100;
writeln('Harga per Lembar:',hpl);
totharga :=hpl*jumlahlembar;
writeln('Total Harga:',totharga);
if totharga > 500000 then discount:=0.15 else
if totharga < 500000 then discount:=0;
discount:=totharga*discount;
writeln('Discount:',Discount:3:0);
pembayaran:= totharga-discount;
writeln('Pembayaran:',Pembayaran:3:0);
readln;
end.
=================
C++
#include <iostream.h>
#include <conio.h>
main()
{
int lembar;
float harga,diskon,jumlah,bayar,dibayar,kembalian,kurang;
cout<<"| ================== |"<<endl;
cout<<"|==========TRANSAKSI FOTOCOPY============|"<<endl;
cout<<"| ================== |"<<endl;
cout<<"|========================================|"<<endl;
cout<<"| Jumlah lembar fotocopy : " ; cin>>lembar;
gotoxy (42,5); cout <<"|"<<endl;
cout<<"| Harga perlembar : Rp. " ; cin>>harga;
gotoxy (42,6); cout <<"|"<<endl;
jumlah=lembar*harga;
diskon=jumlah*0.1;
bayar=jumlah-diskon;
cout<<"| Jumlah bayar : Rp. "<<jumlah<<endl;
gotoxy (42,7); cout <<"|"<<endl;
cout<<"| Diskon : Rp. "<<diskon<<endl;
gotoxy (42,8); cout <<"|"<<endl;
cout<<"| Besar pembayaran : Rp. "<<bayar<<endl;
gotoxy (42,9); cout <<"|"<<endl;
cout<<"|========================================|"<<endl;
cout<<"| Dibayar : Rp. "; cin>>dibayar;
gotoxy (42,11); cout <<"|"<<endl;
cout<<"|========================================|"<<endl;
kembalian=dibayar-bayar;
kurang=bayar-dibayar;
if (dibayar>=bayar)
cout<<"| LUNAS, kembalian : Rp. "<<kembalian<<endl;
else
cout<<"| TIDAK LUNAS, kurang : Rp. "<<kurang<<endl;
gotoxy (42,13); cout <<"|"<<endl;
cout<<"|========================================|"<<endl;
getch();
}
Langganan:
Posting Komentar (Atom)
Macro Media Flash 8 full version
Macromedia Flash 8 adalah salah satu Software yang dapat membuat suatu karya animasi. Dengan flash 8 kita dapat membuat animasi kartun, ...

-
CATATAN: di sini kita menginputkan meter bln ini dan meter bulan lalau, setelah itu kita memprosesnya dengan menekan "ENTER...
-
uses crt; var Jumlahlembar : longint; Totharga : longint; Pembayaran : real; hpl : byte; discount ...
-
program cek_kelulusan_siswa; uses crt; var nama : string[25]; kelas : string[5]; no_absen : string[3]; n_tugas : byte; n_u_hari : by...
Tidak ada komentar:
Posting Komentar