Sabtu, 02 Mei 2015

Program menghitung harga foto copy dengan Turbo pascal & C++

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();
 }

Tidak ada komentar:

Posting Komentar

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, ...