#include<stdio.h>
#include<conio.h>
#include<iostream.h>
main()
{
char kdplg,jnsplg[30],jentik[30];
int kdtiket,jumbel,hrg;
float tothar,diskon,totbay;
cout<<" Cinema 21 "<<endl;
cout<<"======================================="<<endl;
cout<<"Kode Pelanggan[A/B/C] :";cin>>kdplg;
cout<<"Kode Tiket [1/2/3] :";cin>>kdtiket;
cout<<"Jumlah Beli :";cin>>jumbel;
cout<<"======================================="<<endl;
switch (kdplg)
{
case 'A':
case 'a':
strcpy(jnsplg,"Umum");
break;
case 'B':
case 'b':
strcpy(jnsplg,"Member");
break;
case 'C':
case 'c':
strcpy(jnsplg,"Pelajar");
break;
default:
strcpy(jnsplg,"Kode Tidak ada");
}
switch (kdtiket)
{
case 1:
{
strcpy(jentik,"VIP");
hrg=50000;}
break;
case 2:
{
strcpy(jentik,"Ekonomi");
hrg=45000;}
break;
case 3:
{
strcpy(jentik,"Nomat");
hrg=30000;}
break;
default:
{
strcpy(jentik,"Salah Kode Tiket");
hrg=0 ;}
}
cout<<"Jenis Pelanggan :"<<jnsplg<<endl;
cout<<"Jenis Tiket :"<<jentik<<endl;
cout<<"Harga Tiket :"<<hrg<<endl;
cout<<"======================================="<<endl;
tothar=hrg*jumbel;
cout<<"total Harga :"<<tothar<<endl;
if(kdplg=='a' || kdplg=='A' && kdtiket==1)
diskon=0.1*tothar;
else
if(kdplg=='C' || kdplg=='c' && kdtiket==2)
diskon=0.15*tothar;
else
if(kdplg=='B' || kdplg=='b' && kdtiket==1)
diskon=0.2*tothar;
else
diskon=0;
cout<<"Diskon :"<<diskon<<endl;
totbay=tothar-diskon;
cout<<"Total Bayar :"<<totbay<<endl;
cout<<"======================================="<<endl;
cout<<" TERIMA KASIH "<<endl;
getch(); }
Jumat, 28 Oktober 2011
Latihan C++
Diposting oleh
1st Specta's Blog
05.59
Popular Posts
- MENGHITUNG SELISIH TANGGAL DI DELPHI 7
- Aplikasi Peminjaman Menggunakan Visual Foxpro 9.0
- LATIHAN DELPHI PRA UAS
- Materi Foxpro Untuk hari Kamis 6 Januari 2011
- Contoh Array + Fungsi
- Membuat Menu Utama dan File .Exe pada Visual Foxpro 9.0
- Assalamualaikum Wr. Wb.
- Games Ramalan Cinta Sederhana
- Materi & Tugas Delphi Pert.7
- Materi & Tugas Delphi pertemuan5 kelas 12.4G
Watch IT....
HIT COUNTER
Total Tayangan Halaman
Pengikut
Visitor
Arsip Blog
Labels
- delphi (2)
- materi (3)
- SQL (1)
- Visual Basic (1)