Materi Pemrograman Prosedural (pascal)

    Sejarah Pascal

              Pascal merupakan bahasa tingkat tinggi (high level language) yang orientasinya pada segala tujuan, dirancang oleh Professor Niklaus Wirth dari Technical University di Zurich, Switzerland. Nama pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematika dan philosopi terkenal abad  dari perancis.

          Pascal digunakan untuk membuat suatu program terstruktur.

        Struktur Pascal

Program namaprogram  { nama  program}

Uses    { mendefinisikan hardware }

Type    { tipe variabel }

Const    { konstanta } 

Var    { variabel }

Begin  {awal program}

  Statemen;  {pernyataan-pernyataan}

End.  {akhir program}

Input dan Output

oInput : Read dan Readln

  Read = menerima inputan dari keyboard tanpa ganti baris

  Readln = menerima inputan dari keyboard dengan ganti baris

oOutput : Write dan Writeln

  Write = mencetak teks tanpa ganti baris

  Writeln = mencetak teks dengan ganti baris

SEMOGA BERMANFAAAT :)

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 :)