TURBO PASCAL -Contoh Soal UTS & Remedial

next agin.....................

ni soal yang di bagikan TP for windows

Buatkan Program untuk Pembelian Tiket Pesawat, dengan ketentuan sebagai berikut:

1.      Nama Penumpang, Kode Pesawat diinput minimal 3 Kode Pesawat

2.      Nama Pesawat dibaca dari Kode Pesawat

3.      Tujuan diinput terdiri dari SURABAYA / JAKARTA

4.      Harga Tiket dibaca berdasarkan Nama Pesawat dan Tujuan, besarnya Anda tentukan sendiri

5.      Jenis Penumpang diinput terdiri atas DEWASA / ANAK

6.      Diskon diberikan untuk Jenis Penumpang ANAK sebesar 10% dari Harga Tiket

7.      Total Bayar = Harga Tiket – Diskon

8.      Simpan file dengan nama UTS.PAS

JAWAB:

PROGRAM UTS;

USES WINCRT;

VAR KD,NPEN,NPES,TUJ,JNS:STRING;

    HRG,DIS,TTL:REAL;

    JWB:CHAR;

LABEL ULANG;

BEGIN

ULANG:

CLRSCR;

WRITE ('KODE PESAWAT[P01-P03]   :');READLN(KD);

WRITE ('NAMA PENUMPANG          :');READLN(NPEN);

IF KD='P01' THEN

   NPES:='GARUDA'

ELSE IF KD='P02' THEN

   NPES:='LION'

ELSE IF KD='P03' THEN

   NPES:='MANDALA';

WRITELN ('NAMA PESAWAT          :',NPES);

WRITE ('TUJUAN [SUABAYA/JAKARTA]:');READLN(TUJ);

IF (NPES='GARUDA') AND (TUJ='JAKARTA') THEN

HRG:= 800000

ELSE IF (NPES='GARUDA') AND (TUJ='SURABAYA') THEN

HRG:= 700000

ELSE IF (NPES='LION') AND (TUJ='JAKARTA') THEN

HRG:= 700000

ELSE IF (NPES='LION') AND (TUJ='SURABAYA') THEN

HRG:= 600000

ELSE IF (NPES='MANDALA') AND (TUJ='JAKARTA') THEN

HRG:= 750000

ELSE IF (NPES='MANDALA') AND (TUJ='SURABAYA') THEN

HRG:= 650000;

WRITELN ('HARGA TIKET           :RP',HRG:7:0);

WRITE ('JENIS PENUMPANG [ANAK/DEWASA]         :');READLN(JNS);

IF JNS='ANAK' THEN  DIS:= 0.1* HRG ELSE DIS:= 0;

WRITELN ('DISKON               :RP',DIS:6:0);

TTL:= HRG - DIS;

WRITELN ('TOTAL BAYAR          :RP',TTL :7:0);

CLRSCR;

GOTOXY(20,05);WRITE ('DATA PENJUALAN TIKET PESAWAT');

GOTOXY(20,07);WRITE ('KODE PESAWAT[P01-P03]   :',KD);

GOTOXY(20,08);WRITE ('NAMA PENUMPANG          :',NPEN);

GOTOXY(20,09);WRITE ('NAMA PESAWAT            :',NPES);

GOTOXY(20,10);WRITE ('TUJUAN                  :',TUJ);

GOTOXY(20,11);WRITE ('HARGA TIKET             :RP',HRG:7:0);

GOTOXY(20,12);WRITE ('JENIS PENUMPANG         :',JNS);

GOTOXY(20,13);WRITE ('DISKON                  :RP',DIS:6:0);

GOTOXY(20,14);WRITE ('TOTAL BAYAR             :RP',TTL :7:0);

GOTOXY(50,23);WRITE('INPUT DATA LAGI [Y/T]:');READLN (JWB);

IF (JWB ='Y') OR (JWB='y') THEN GOTO ULANG ELSE EXIT;

READLN;

END.

SOAL REMIDI/PERBAIKAN NILAI UTS

Buatkan Program untuk Pembelian Jam, dengan ketentuan sebagai berikut:

1. No. transaksi, Nama toko diinput
2. Kode Jam diinput minimal 3 kode Jam
3. Merk Jam dibaca dari Kode jam
4. Produksi diinput terdiri dari LOKAL / IMPORT
5. Harga dibaca berdasarkan Merk Jam dan Produksi
6. Jumlah beli diinput
7. Jika produksi = IMPORT mendapatkan pajak = 10% * (Harga * Jumlah Beli)
8. Diskon didapatkan apabila Jumlah Beli > 100 besarnya = 20% dari (Harga * Jumlah Beli)
9. Total Bayar = (Harga*Jumlah beli)  +  Pajak - Diskon
10. Simpan file dengan nama UTS(4 Digit Nim terakhir)   Contoh : UTS0999.PAS