TPW (Turbo Pascal) IF THEN ELSE

TUGAS PEMROGRAMAN PROSEDURAL

“PASCAL”

NAMA                 : SONIA INDAH SARI

NIM                     : 1202161044

FAKULTAS         : ILMU KOMPUTER

PROG. STUDI     : SISTEM INFORMASI  (MALAM)

7.    Hitung Gaji Bersih berikut :

Gol             Gaji Pokok                  Tunjangan

1                 1 Jta                             200.000,-

2                 1,5 jta                          300.000,-

3                 2 jta                             400.000,-

Gaji kotor = gaji pokok + tunjangan

pajak sebesar 2,5% dari gaji kotor

gaji bersih = gaji kotor - pajak       

input : NIK, Nama, Gol

Output : Gaji Pokok, Tunjangan, Gaji Bersih, pajak dan gaji Kotor        

PROGRAM GAJI;

USES WINCRT;

VAR

   GOL             :CHAR;

   NIK              :STRING[16];

   NAMA         :STRING[25];

   TUNJANGAN,POKOK,PAJAK,KOTOR,BERSIH :REAL;

BEGIN

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

     WRITE('NIK                      :');READLN(NIK);

     WRITE('GOLONGAN      :');READLN(GOL);

     IF (GOL='1') THEN

     BEGIN

          POKOK:=1000000;

          TUNJANGAN:=200000;

     END

     ELSE IF (GOL='2') THEN

     BEGIN

          POKOK:=1500000;

          TUNJANGAN:=300000;

     END

     ELSE IF (GOL='3') THEN

     BEGIN

          POKOK:=2000000;

          TUNJANGAN:=400000;

     END;

     KOTOR:=POKOK+TUNJANGAN;

     PAJAK:=2.5/100*KOTOR;

     BERSIH:=KOTOR-PAJAK;

     WRITELN('GAJI POKOK           :RP.',POKOK:7:0);

     WRITELN('GAJI KOTOR           :RP.',KOTOR:7:0);

     WRITELN('TUNJANGAN         :RP.',TUNJANGAN:6:0);

     WRITELN('PAJAK                      :RP.',PAJAK:6:0);

     WRITELN('GAJI BERSIH          :RP.',BERSIH:7:0);

READLN;

END.

HASIL RUNNING:

2.        Sebuah perkumpulan terdiri dari golongan orang ‘Biasa’, ‘Penting’, ‘VIP’. Peraturan menetapkan sebagai berikut :

- Orang biasa(B)  = Iuran bulanan sebesar 5 % dari gajinya, boleh menggunakan lapangan Tenis dan Ruang Fitnes.

- Orang penting (P) =  Iuran bulanan sebesar 10 % dari gajinya, boleh menggunakan lapangan Tenis dan Ruang Fitnes, dan Golf

- VIP (V)     =    Iuran bulanan sebesar 15 % dari gajinya, boleh menggunakan lapangan Tenis dan Ruang Fitnes,Golf dan Kolam Renang

Input = Nama, Gaji, Golongan

Output = Iuran yang harus dibayar dan Fasilitas yang boleh digunakan

PROGRAM GOLONGAN1;

USES WINCRT;

VAR

   GOLONGAN             :STRING[7];

   NAMA,FASILITAS  :STRING;

   IURAN,GAJI             :REAL;

BEGIN

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

     WRITE('GOLONGAN    :');READLN(GOLONGAN);

     WRITE('GAJI                  :RP.');READLN(GAJI);

     IF (GOLONGAN='BIASA') THEN

     BEGIN

          IURAN:=5/100*GAJI;

          FASILITAS:='LAPANGAN TENIS DAN RUANG FITNES';

     END

     ELSE IF (GOLONGAN='PENTING')THEN

     BEGIN

          IURAN:=10/100*GAJI;

          FASILITAS:='LAPANGAN TENIS,RUANG FITNES DAN GOLF';

     END

     ELSE IF (GOLONGAN='VIP') THEN

     BEGIN

          IURAN:=15/100*GAJI;

          FASILITAS:='LAPANGAN TENIS,RUANG FITNES,GOLF DAN KOLAM  

          RENANG';

     END;

     WRITELN('IURAN YANG HARUS DIBAYAR  :RP.',IURAN:6:0);

     WRITELN('FASILITAS YANG DIDAPATKAN :',FASILITAS);

READLN;

END.

HASIL RUNNING :

SEMOGA BERMANFAAT :)