Tugas Borland Struct kelas 12.1p.07

By http://duniarahayu.webnode.com/

LISTING PROGRAM

#include<stdio.h>

#include<conio.h>

#include<iostream.h>

main()

{ struct

            {char kls[10],namak[10], kk[3], kl,jk,jamk[20];

    int jum;

    float harga,total;}kereta[5];

    char nk[10],np[10];

    int i,n;

    float ubay,ukem,ts;

    clrscr();

cout<<"Nama Kasir = ";cin>>nk;

cout<<"Nama Pembeli = ";cin>>np;

cout<<"Jumlah Beli = ";cin>>n;

for (i=1;i<=n;i++)

{

cout<<endl;

cout<<"Kode Kereta [PH/AB/AL] = ";cin>>kereta[i].kk;

cout<<"Kode Kelas [1/2/3] = ";cin>>kereta[i].kl;

cout<<"Jam Keberangkatan [A/B] = ";cin>>kereta[i].jk;

if (!strcmp(kereta[i].kk,"PH") || !strcmp(kereta[i].kk,"ph"))

 {strcpy(kereta[i].namak,"Parahyangan");}

else if (!strcmp(kereta[i].kk,"AB") ||!strcmp(kereta[i].kk,"ab"))

 {strcpy(kereta[i].namak,"Argo Bromo");}

else

 {strcpy(kereta[i].namak,"Argo Lawu");}



if (kereta[i].kl='1')

{(strcpy(kereta[i].kls,"VIP"));

 kereta[i].harga=1200000;}

else if (kereta[i].kl='2')

{(strcpy(kereta[i].kls,"Bisnis"));

 kereta[i].harga=600000;}

else

{(strcpy(kereta[i].kls,"Ekonomi"));

 kereta[i].harga=200000;}



if ((kereta[i].jk='A') || (kereta[i].jk='a'))

   if (kereta[i].kl='1')

                        {(strcpy(kereta[i].jamk,"Pagi pukul 09.00"));}

   else if (kereta[i].kl='2')

                        {(strcpy(kereta[i].jamk,"Siang pukul 13.00"));}

            else

                        {(strcpy(kereta[i].jamk,"Sore pukul 17.00"));}

else

   if (kereta[i].kl='1')

                        {strcpy(kereta[i].jamk,"Pagi pukul 10.00");}

   else if (kereta[i].kl='2')

                        {strcpy(kereta[i].jamk,"Siang pukul 14.00");}

            else

                        {strcpy(kereta[i].jamk,"Malam pukul 20.00");}

}



cout<<endl<<endl;

printf("\nNama Kasir     = %s",nk);

printf("\nNama Pembeli             = %s",np);

for (i=1;i<=n;i++)

{

cout<<"\nData Ke - "<<i;

printf("\nNama Kereta = %s",kereta[i].namak);

printf("\nNama Kelas    = %s",kereta[i].kls);

printf("\nHarga Tiket     = %8.0f",kereta[i].harga);

printf("\nJam Keberangkatan     = %s",kereta[i].jamk);

cout<<"\n_______________________________________";

ts=ts+kereta[i].harga;

}

printf("\nTotal Keseluruhan        = %8.0f",ts);

cout<<"\nUang Bayar = Rp ";cin>>ubay;

ukem=ubay-ts;

printf("\nUang Kembali             = %8.0f",ukem);

getch();

}

PENJUALAN TIKET KERETA API

PT XYZ INDONESIA

<input>

Nama Pemesan                                :

Banyaknya Pembelian                   :

Pembelian Ke-                                  :<output>

Kode Kereta [AB/AL/BK/PY]       :

Kelas [Eks/Bsns/Ekn]                      :

Jumlah Tiket                                       :

PENJUALAN TIKET KERETA API

PT XYZ INDONESIA

<output>

Nama Pemesan                                                :

No	Nama Kereta	Jurusan	Kelas	Jumlah Tiket	Harga	SubTotal
…	…	…	…	…	…	…
…	…	…	…	…	…	…

Total                                      : Rp…

                                                                                                                Diskon                                  : Rp…

                                                                                                                PPN                                       : Rp…

                                                                                                                                                                ___________________

                                                                                                                Total Bayar                          : Rp…

                                                                                                                Uang Bayar                         : Rp…<input>

                                                                                                                                                                ___________________

                                                                                                                Uang Kembali                    : Rp…

<ketentuan>

v  Buatlah sebuah nama Structure “Kereta” , diantaranya kodekereta, nama kereta, jurusan, kode kelas, kelas, jumlah tiket, harga, subtotal

v  Buatlah sebuah fungtion “Garis”, untuk membuat garis

v  Buatlah sebuah fungtion “Sum”, untuk menghitung total bayar

Ø  Subtotal = jumlah tiket dikalikan harga

Ø  Total = Jumlah keseluruhan dari subtotal

Ø  Diskon 25% jika jumlah tiket lebih dari 7 dan memilih kelas eksekutive,

Ø  Diskon 10% jika jumlah tiket lebih dari 5 dan memilih kelas bisnis,

Ø  Diskon 5% jika jumlah tiket lebih dari 5 dan memilih kelas ekonomi

Ø  PPN = 10% dari total

Ø  Total Bayar = (total – diskon)+PPN

Ø  Uang kembali = Total bayar – Uang bayar

Kode Kereta	Nama Kereta	Jurusan	Kode Kelas	Kelas	Harga
AB	Argo Bromo	Gambir – Surabaya. Psr Turi	EKS	Eksekutive	220000
			BSNS	Bisnis	110000
			EKN	Ekonomi	50000
AL	Argo Lawu	Gambir – Solo Balapan	EKS	Eksekutive	185000
			BSNS	Bisnis	85000
			EKN	Ekonomi	45000
BK	Bangun Karta	Psr.Senen - Jombang	EKS	Eksekutive	105000
			BSNS	Bisnis	60000
			EKN	Ekonomi	30000
PY	Parahyangan	Gambir - Bandung	EKS	Eksekutive	45000
			BSNS	Bisnis	30000
			EKN	Ekonomi	15000

Zodiak Mu di tahun 2011

Ramalan Zodiak Minggu Ini Januari 2011

Cuma ada disini Ramalan Bintang... Ramalan Zodiak... Kamu yang selalu update setiap Minggu dan Hari ini tanggal 4 5 6 7 8 9 10 Januari 2011.

Capricorn (21 Desember -19 Januari)
Peruntungan: Tidak ada salahnya bersaing akan tetapi harus diikuti dengan strategi yang jitu. Jangan sampai terkesan asal-asalan karena itu akan bikin pusing sendiri. Bila dirasa badan kurang mood sebaiknya tak perlu dipaksakan, cobalah hadapi segala tantangan dengan penuh ketenangan dan kesabaran.

Karir: Di minggu ini peluang belum tertutup, sehingga tak perlu takut untuk mengambil tindakan berani untuk meraihnya.

Kesehatan: Sebisa mungkin pejamkan mata anda jika dirasa sudah tidak kuat lagi menahan kantuk. Lepaskanlah segala beban yang lagi anda rasakan saat ini dan nikmatilah hidup ini tanpa perlu menyiksa diri.

Keuangan: Jangan cemas karena pemasukan masih selalu ada walau tanpa terpikir sebelumnya. Teruslah raih setiap peluang yang muncul, tanpa ragu dan kuatir sebelum dikerjakan dulu.

Asmara: Pandai-pandailah menciptakan hubungan yang mesra dan harmonis didalam hubungan percintaan anda agar semua merasa betah bila lagi bertemu.

Aquarius (20 Januari - 18 Februari)
Peruntungan: Persoalan besar bukan berarti tak ada jalan pemecahannya, asalkan diri anda selalu tekun dan ulet dalam berusaha sehingga akan mempermudah menemukan solusinya. Di minggu ini segala rencana bisa berjalan dengan cukup lancar, hanya saja anda harus lebih sedikit cuek terhadap lingkungan disekitar.

Karir: Tak perlu diperdulikan omongan sumbang yang memerahkan telinga.

Kesehatan: Sehat tidaknya tergantung anda punya peranan dan tingkah laku, jika anda masih sering ngotot ingin selalu menangnya sendiri maka akan sulit untuk bisa menemukan ketenangan.

Keuangan: Di minggu ini pemasukan masih bisa diandalkan walaupun sudah mulai seret.

Asmara: Cobalah lebih perhatian pada dirinya, jangan sampai diabaikan hanya karena terlalu asyik bekerja, luangkan waktu senggang yang ada untuk bertemu dengannya walau hanya sebentar akan tetapi itu cukup menghibur hatinya.

Pisces (19 Februari - 20 Maret)
Peruntungan: Di minggu ini cobalah untuk bisa lebih teliti, agar segala urusan yang sudah hampir jadi tidak sampai mentah lagi hanya karena diri anda yang kurang bisa mengikuti rencana yang dibuat sendiri. Di minggu ini banyak kesempatan untuk meraih hasil lebih maka dari itu jangan enak-enakan saja.

Karir: Sekalipun kecil yang namanya persoalan tetap saja harus diselesaikan.

Kesehatan: Tak perlu memaksakan diri bekerja sampai larut malam, untuk itu manage-lah waktu seefisien mungkin sehingga tidak sampai tumpang tindih yang tentunya hanya akan mengacaukan saja.

Keuangan: Tidak ada yang perlu dicemaskan karena keuangan masih relatif stabil, income masih terus mengalir walaupun halangan mulai bermunculan.

Asmara: Apa sulitnya berbicara yang halus, tak perlu dengan kata-kata kasar, karena itu akan menyulitkan anda saja.

Aries (21 Maret - 20 April)
Peruntungan: Walaupun anda sudah merasa berada diatas angin, sebaiknya kewaspadaan tetap dipertahankan. Jangan sampai berlaku sembrono karena akan berdampak cukup luas jika sampai terjadi hal-hal yang tidak diduga sebelumnya.

Karir: Tetaplah concern dengan berbagai urusan yang sudah berjalan, jangan sampai berhenti hanya karena ada rintangan.

Kesehatan: Terkadang bangun kesiangan justru akan menimbulkan gangguan bagi kondisi badan anda, karena terkadang bisa timbul pusing dan badan malah pegal-pegal semua. Untuk itu cobalah untuk bangun pagi, jangan biarkan hawa malas mengganggu kondisi dan kesehatan anda.

Keuangan: Jangan sembrono membuat janji jika tidak ingin pusing sendiri nantinya, bersabarlah apalagi segala rencana masih dapat berjalan lancar sesuai dengan apa yang diharapkan.

Asmara: Jangan terlalu dimasukkan hati tingkahnya yang kadang menjengkelkan hati, karena itu hanya sementara saja.

Taurus (21 April - 20 Mei)
Peruntungan: Yang jeli dalam mensiasati keinginan orang yang cukup beragam, carilah celah agar bisa diterima dengan baik oleh mereka. Tak perlu cemas dengan kekurangan yang ada, cobalah ditutupi dengan bukti-bukti prestasi yang mengagumkan, dan di minggu inilah merupakan kesempatan untuk unjuk gigi.

Karir: Jangan berhenti untuk terus berkreasi dan berinovasi karena hanya dengan kepandaian dan kejelianlah maka kesuksesan besar akan dapat teraih.

Kesehatan: Berhati-hatilah kaarena kondisi badan anda masih rentan dengan penyakit, maka dari itu cobalah lebih serius memperhatikan istirahat dan pola makan yang benar.

Keuangan: Jangan pesimis dulu, di minggu ini keuangan anda masih relatif stabil.

Asmara: Selisih pendapat masih sulit untuk dihindari hanya karena masalah sepele yang seharusnya bisa diselesaikan jika ada yang mau mengalah.

Gemini (21 Mei - 20 Juni)
Peruntungan: Peruntungan Gemini cukup baik, bila ada rencana untuk melakukan ekspansi mengembangkan usaha tidak ada masalah, jangan ragu untuk melakukan apa yang terbaik menurut anda, yang penting keyakinan harus tetap dipegang teguh, jangan sampai rasa ragu yang muncul.

Karir: Terhadap kritikan yang muncul sebaiknya bisa disikapi dengan kepala dingin dan positif thinking.

Kesehatan: Jagalah diri anda agar tidak gampang terserang penyakit lagi, walaupun kesehatan anda mulai ada perkembangan positif. Apalagi disaat seperti ini penyakit perut sedang mewabah sehingga makanan dan kebersihan perlu diperhatikan.

Keuangan: Income masih cukup baik dan lancar, hanya saja masih sulit untuk menghadang laju pengeluaran.

Asmara: Jangan suka memaksakan kehendak walaupun itu dengan tujuan untuk membahagiakannya, karena benar menurut anda belum tentu benar baginya.

Cancer (21 Juni- 20 Juli)
Peruntungan: Waspadalah, di minggu ini sesuatu yang tidak mungkin dapat menjadi mungkin. Berusahalah terus dengan sekuat tenaga, biarkan orang lain mau bilang apa, asalkan anda tetap sesuai dengan aturan yang ada. Jika mengalami kesulitan , lebih baik segera minta pendapat kepada orang yang lebih tua, agar masalahnya dapat segera teratasi.

Karir: Tahan emosi dan tak perlu melontarkan kata-kata kasar yang menyinggung hati seseorang.

Kesehatan: Hanya batuk-batuk kecil, tak perlu cemas nanti akan hilang dengan sendirinya, yang penting anda tetap minum obat seperti biasanya dan jangan makan buah-buahan dulu.

Keuangan: Pengeluaran semakin bisa anda kendalikan, sehingga income yang masih mengalir tersebut bisa ada harapan untuk ditabung.

Asmara: Pertengkaran kecil itu sudah hal yang biasa, tidak ada yang perlu dipersoalkan, sebab segala sesuatunya masih berjalan dengan baik.

Leo (21 juli-21 Agustus)
Peruntungan: Di minggu ini jangna bertingkah macam-macam, yang penting cari selamatnya saja. Karena jika dipaksakan akan percuma saja hasilnya, bisa-bisa malah akan membikin rugi dan pusing. Terhadap urusan yang membosankan sebaiknya tetaplah dijalani dengan biasa-biasa saja, jangan sampai anda biarkan begitu saja.

Karir: Jangan cari ribut dengan siapapun karena tak ada untungnya, bila perlu mengalah saja demi sebuah kemenangan dikemudian hari.

Kesehatan: Bila dirasa ada yang kurang beres dengan kondisi badan anda sebaiknya jangan menunda-nunda lagi untuk segera kontrol kedokter, walaupun pekerjaan setumpuk sebaiknya kesehatan harus tetap diprioritaskan.

Keuangan: Pemasukan relatif lancar dan masih ada saja order yang membuahkan hasil.

Asmara: Tak perlu menutup diri kepadanya, bila ada masalah ceritakan saja. Buat apa punya kekasih kalau tidak bisa diajak berbagi baik suka ataupun duka.

Virgo (22 Agustus - 22 September)
Peruntungan: Di minggu ini mengalah saja, sebab sengotot dan sengoyo apapun usaha anda, tetap tidak akan menang. Biarkan ini semua berjalan sewajarnya tanpa ada campur tangan yang nantinya malah membuat rugi diri sendiri.

Karir: Dengan kesabaran maka segalanya akan dapat berjalan lancar dan tenang.

Kesehatan: Agak batuk dan pilek, untuk itu coba dihindari minuman dingin.

Keuangan: Pemborosan yagn perlu diwaspadai di minggu ini agar keuangan bisa tetap stabil.

Asmara: Hindari pikiran seperti anak kecil yang cepat marah bila ada yagn tidak sesuai dihati.

Libra (23 September - 22 Oktober)
Peruntungan: Kalau memang harus mengulang dari nol tidak jadi masalah. Dari pada anda bingung dan tidak bisa berbuat apa-apa. Anggap saja ini sebagai permulaan yang akan membawa kepada pintu kemenangan.

Karir: Kejadian yang lalu biarkan berlalu, sekarang ini hadapi yang sudah berada didepan mata.

Kesehatan: Kondisi badan yang lagi menurun di minggu ini akan mempengaruhi gairah dan motivasi kerja menjadi berkurang.

Keuangan: Bersabarlah tak perlu terlalu memaksakan diri, kondisikan dulu dengan keuangan anda.

Asmara: Buatlah suasana untuk lebih menyenangkan dan penuh canda tawa.

Scorpio (23 Oktober - 22 November)
Peruntungan: Jangan biarkan masalah yang ruwet terbengkalai begitu saja, harus segera diambil langkah-langkah yang tepat untuk menyelesaikan semua itu. Perhitungkan dengan benar masalah untung dan ruginya.

Karir: Tidak perlu malu ataupun gengsi untuk mengatakan masalah yang sebenarnya.

Kesehatan: Anjuran dokter sebaiknya benar-benar diperhatikan dan dilaksanakan, agar kondisi badan tetap selalu sehat.

Keuangan: Pemasukan masih seret untuk itu tetaplah berhemat.

Asmara: Yang rileks saja dalam menghadapinya, tidak perlu tegang seperti itu.

Sagitarius (23 November - 20 Desember)
Peruntungan: Di minggu ini ada kesempatan untuk dapat meraih keuntungan besar selama anda jeli dan sabar dalam melihat setiap peluang yang ada. Mantapkan hati dan tenangkan pikiran maka tidak sulit untuk bisa melihat dan memanfaatkan setiap peluang yang muncul.

Karir: Tak perlu ikut-ikutan teman yang menyimpang dari aturan yang ada karena sangat berbahaya bagi kelanjutan karir dan kredibilitas anda yang sudah dipandang baik oleh atasan.

Kesehatan: Pelihara hati dan badan anda dengan bersikap cuek dengan siapa saja, tak perlu menggubris omongan orang kalau akhirnya jadi jengkel sendiri.

Keuangan: Ada harapan meningkat walau begitu untuk pengeluaran sebaiknya tetap dimanage dengan benar.

Asmara: Tidak perlu terlalu percaya dengan omongan temannya, karena perkataannya belum tentu bisa dipertanggungjawabkan.

Sukses dalam hidup

• Success is not the key to happiness. Happiness is the key to success. If you love what you are doing, you will be successful.
  

Kesuksesan bukanlah kunci dari kebahagiaan. Sebaliknya kebahagiaan adalah kunci dari kesuksesan. Bila kau menyukai apa yang kau lakukan dan merasa bahagia melakukannya, maka kau pasti sukses.