STRUKTUR PROGRAM PASCAL, TIPE DATA, VARIABEL & KONSTANTA

1. Teori
   Struktur program Pascal terdiri dari 3 bagian, yaitu :
   A. Judul Program yang bersifat optional dan tidak signifikan di dalam program

      contoh :
      PROGRAM CONTOH; {JUDUL PROGRAM}
      BEGIN
       WRITELN('PEMROGRAMAN PASCAL');
       READLN;
      END.

   B. Bagian Deklarasi yang digunakan bila di dalam program menggunakan pengenal
       (Identifier) yang dapat berupa label, konstanta, tipe, variabel, prosedur dan fungsi.
      1) Deklarasi Konstanta
          Diawali dengan kata cadangan CONTS diikuti oleh kumpulan Identifier yang diberi suatu nilai
          konstanta.
        
         Contoh :
         PROGRAM CONTOH_KONSTANTA;
         CONST
             NAMA ='NANO SETYANA';
             NPM  =201343500534;
             PRODI='TEKNIK INFORMATIKA';
         BEGIN
             WRITELN('NAMA MAHASISWA    : ',NAMA);
             WRITELN('NPM            : ',NPM);
             WRITELN('PROGRAM STUDI    : ',PRODI);
             READLN;
         END.


      2) Deklarasi Variabel
          Variabel adalah Identifier yang berisi data yang dapat diubah-ubah nilainya dalam program dan
          selalu menggunakan kata cadangan VAR sebagai judul di dalam bagian deklarasi dan diikuti
          oleh kumpulan Identifier yang dipisahkan koma.Adapun type Variabel adalah sebagai berikut :
          - INTEGER
             type Variabel yang berguna untuk pengolahan data yang bulat. Jangkauan data dan Ukuran
             Integer :

             TYPE                  JANGKAUAN                                UKURAN
             SHORTINT         -128....127                                       8 BIT
             INTEGER           -32768....32767                               16 BIT
             LONGINT          -2147483648....2147483647           32 BIT
             BYTE                   0...255                                            8 BIT
             WORD                 0...65535                                       16 BIT

        -  CHAR
            type variable yang berupa character ASCII, dan penggunaannya selalu menggunakan tanda
            petik seperti 'A', '3', '*'

        -  STRING
           berbeda dengan type data CHAR, STRING dapat menampung hingga 256 karakter juga
           menggunakan dua buah tanda petik seperti 'HELLO'

       -  BOOLEAN
          type data yang berguna untuk pengolahan hal yang hanya mempunyai dua ketentuan yaitu
          benar(TRUE) atau salah(FALSE).

       -  REAL
          Type data yang berguna untuk pengolahan data yang tidak bulat.
          Contoh :
       
       PROGRAM CONTOHREAL;
       VAR
          ALAS, TINGGI : INTEGER;
          LUAS : REAL;
       BEGIN
          ALAS:=5;
          TINGGI:=10;
          WRITELN('LUAS SEGITIGA');
          WRITELN('ALAS    : ',ALAS);
          WRITELN('TINGGI    : ',TINGGI);
          LUAS:=(ALAS*TINGGI)/2;
          WRITELN('LUAS SEGITIGA : ',LUAS);
          READLN;
       END.

  C. Bagian Deskripsi yang digunakan untuk meletakkan seluruh instruksi program. instruksi
       tersebut adalah "BEGIN" dan "END".


    (*JUDUL PROGRAM*)
    PROGRAM NAMA_PROGRAM;
    {Penjelasan mengenai program, yang berisi uraian singkat 
     mengenai apa yang dilakukan oleh program}
    (*DEKLARASI*)
    [CONST]
    {semua nama tetapan dan harga tetapannya didefinisikan di sini}
    [TYPE]
    {semua nama type bentukan didefinisikan di sini}
    [VAR]
    {semua nama variabel global didefinisikan disini}

    {deklarasi prosedur dan fungsi didefinisikan disini}

    (*DESKRIPSI*)
    BEGIN
         {semua instruksi program dituliskan di sini}
    END.
 

1. Teori
A. Pernyataan IF (IF STATEMENT)
    Pernyataan ini akan memeriksa suatu persyaratan dan menentukan apakah syarat tersebut benar atau salah, maka Pernyataan ini mengandung BOOLEAN.
   a. Penyeksian satu kasus dengan menggunakan struktur IF-THEN.
      IF dengan satu pernyataan (STATEMENT)
       IF (kondisi) THEN
        AKSI;

   b. Penyelsian Dua Kasus dengan menggunakan struktur IF-THEN-ELSE
      IF dengan dua atau lebih pernyataan (STATEMENT)
       IF (Kondisi) THEN
       Begin
        Aksi 1;
        Aksi 2;
        .............
       End;
   c. Penyelesian Tiga Kasus atau Lebih (Penyeleksian Tersarang/NESTED IF)
      IF dan ELSE
       IF (Kondisi) THEN
       Begin
        Aksi 1;
        Aksi 2;
        ............
       End;
       Else
       Begin
        Aksi 1;
        Aksi 2;
        ............
       End;

    CONTOH PROGRAM IF DALAM BAHASA PASCAL
   
    program contoh;
    uses crt;
    const phi=3.14;
    var
       alas, tinggi, jejari, luas : real;
       pilih : integer;
    Begin
        Clrscr;
        Writeln('1. Segitiga  2. Lingkarang');
        readln(pilih);
        if pilih = 1 then
        Begin
            write('Masukkan alas segitiga : ');readln(alas);
            write('Masukkan Tinggi Segitiga : ');readln(tinggi);
            luas :=1/2*alas*tinggi;
            writeln('Luas Segitiga adalah : ',luas);
            readln;
        end;
        Else
        Begin
            write('Masukkan Jari-jari Lingkaran : ');readln(jejari);
            luas:=phi*jejari*jejari;
            writeln('Luas Lingkaran adalah : ',luas);
            readln;
        end;
    end.


B. STRUKTUR CASE (CASE STATEMENT)
   Sama seperti Struktur IF, tetapi struktur Case bentuknya lebih sederhana dan mudah.
  
   CASE (peubah) OF
    Tetapan1 : Pernyataan1;
    Tetapan2 : Pernyataan2;
    Tetapan3 : Pernyataan3;
    .............
    end.

   CONTOH STRUKTUR CASE DALAM BAHASA PASCAL

   Program contoh2;
   uses crt;
   Var
       pil : integer;
   Begin
    Clrscr;
    writeln('Pilihan 1');
    writeln('pilihan 2');
    writeln('pilihan 3');
    write('Masukkan Pilihan : ');readln(pil);
    case pil of
    1 : begin
        writeln('PILIHAN PERTAMA');
        readln;
        end;
    2 : begin
        writeln('PILIHAN KEDUA');
        readln;
        end;
    3 : begin
        writeln('PILIHAN KEtiGA');
        readln;
        end;
    readln;
    end.

• Pengulangan Tanpa Kondisi (unconditional looping). Dalam struktur ini instruksi-intruksi di dalam badan pengulangan diulangi sejumlah kali yang didefinisikan (Struktur FOR TO DO).
• Pengulangan Dengan Kondisi (conditional looping). Jumlah pengulangan tidak diketahui sebelum eksekusi, dan yang dapat ditentukan hanya kondisi berhenti pengulangan (Struktur WHILE DO dan Struktur REPEAT-UNTIL).

Macam-Macam Pengulangan :

1. Struktur FOR.

1. Struktur WHILE

          Aksi atau runtutan aksi akan dilaksanakan berulang kali selama kondisi bernilai true. Jika
          bernilai false berarti pengulangan selesai.
          WHILE kondisi DO
                        aksi

         Contoh Program Dalam PASCAL
         program WhileDo;
         uses crt;
         var
              a, b, c, i : integer;
         begin
                  a:=1;
                  b:=0;
                  i:=1;
                  while i <= 10 do
                  c:=a+b;
                  Writeln(c);
                  a:=b;
                  b:=c;
                  i:=1+1;
               readln;
          end.

1. Struktur REPEAT

          Mendasarkan pengulangan pada kondisi boolean. Aksi di dalam badan pengulangan diulang
          sampai boolean bernilai true, jika boolean masih false pengulangan masih terus dilakukan.
          REPEAT aksi
                       UNTIL kondisi

          Contoh Program Dalam PASCAL
    program statemenrepeat1;
         uses wincrt;
         var i:integer;
         begin
   {inisialisasi nilai indeks i dengan 1}
         i:=1;
   {melakukan pengulangan}
         repeat
         writeln('NANO SETYANA');
         i:=i+1;
         until (i < 5);
         end.

program rental;
uses crt;
const A='--------------------------------------------------------------------------------';
        kode='admin';

var
        np : string[9];
        NPM, Nama, teks, kata, kalimat, kata1, kata2 : string;
        total, hg : real;
        nk, i, j, lm, jm, jk, pil : integer;
        kode_masuk : string[5];
        ulang, cek : char;
        u, x, r : byte;
begin
        clrscr;
        writeln('********************************************************************************');
        GoToXY(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
        GoToXY(20,3); writeln('======ANONYM CYBER COMPUTER ( A C C )=======');
        writeln('********************************************************************************');
        writeln('--------------------------------------------------------------------------------');
        GoToXY(26,6); writeln('S1E TEKNIK INFORMATIKA UNINDRA');
        repeat
        write('User ID  : ');readln(kode_masuk);
        write('Password : ');readln(kode_masuk);
        write(A);
        if(kode_masuk = 'admin') then
                begin
                        cek := 'y';
                end
        else
                begin
                        writeln('User ID dan Password yang Anda Gunakan Salah');
                end;
                u := u + 1;
        until(u>=3) or (cek='y');
        if(u>=3) then
                begin
                        writeln('Anda Sudah 3 kali Melakukan Kesalahan, Program Akan Keluar');readln;
                       exit;
                end
        else
        begin
        ulang :='Y';
        while(ulang='y') or (ulang='Y') do begin
        clrscr;
        write(A);
        gotoxy(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
        gotoxy(20,3); writeln('=======S1E TEKNIK INFORMATIKA UNINDRA=======');
        write(A);
        teks := '###--- MENU UTAMA ---###';
        x := round((80-length(teks))/2);
        gotoxy(x,6); write(teks);
        gotoxy(x,7); write('|   1. Masuk Program   |');
        gotoxy(x,8); write('|   2. Tentang Program |');
        gotoxy(x,9); write('|   3. Keluar Program  |');
        gotoxy(x,10); write('========================');
        gotoxy(26,13); write('Silahkan Masukkan Pilihan Anda : ');readln(pil);
        case pil of
        1 : begin
            Clrscr;
            TextColor(12); write(A);
            gotoxy(20,2); writeln('=========PROGRAM RENTAL KOMPUTER==========');
            gotoxy(20,3); writeln('======S1E TEKNIK INFORMATIKA UNINDRA======');
            write(A);
            write('No. Komputer         : ');readln(nk);
            write('Nama User            : ');readln(np);
            write('Harga Per Jam        : ');readln(hg);
            write('Jam Masuk            : ');readln(jm);
            write('Jam Keluar           : ');readln(jk);
            clrscr;
            lm := (jk-jm);
            gotoxy(30,6); writeln('ANONYM CYBER COMPUTER');
            gotoxy(3,7); writeln('---------------------------------------------------------------------------');
            gotoxy(3,8); writeln('| No. Komputer |'); gotoxy(3,9); writeln('---------------------------------------------------------------------------');
            gotoxy(3,10); writeln('|     ',nk);
            gotoxy(23,8); writeln('Nama User    |'); gotoxy(15,10); writeln('   | ',np);
            gotoxy(37,8); writeln(' Harga Per Jam |'); gotoxy(35,10); writeln(' | Rp. ',hg:2:2,'   ','|');
            gotoxy(53,8); writeln(' Jam Masuk |'); gotoxy(53,10); writeln(' Pukul ',jm,'  ','|');
            gotoxy(65,8); writeln(' Jam Keluar |'); gotoxy(65,10); writeln(' Pukul ',jk,'   ','|');
            gotoxy(3,11); writeln('---------------------------------------------------------------------------');
            gotoxy(3,15); writeln('|-------------------------------|');
            gotoxy(3,16); writeln('| Lama Main   : ',lm,' jam','           ','|'); total:=lm*hg;
            gotoxy(3,17); writeln('|-------------------------------|');
            gotoxy(3,18); writeln('| TOTAL BAYAR : Rp. ',total:2:2,'     ','|');
            gotoxy(3,19); writeln('|===============================|');
            gotoxy(3,20); writeln('|******** TERIMA KASIH *********|');
            gotoxy(3,21); writeln('|===============================|');
            readln;
            end;
        2 : begin
            clrscr;
            j := i-1;
            write(A);
            gotoxy(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
            gotoxy(20,3); writeln('===============DATA KELOMPOK================');
            gotoxy(20,4); writeln('=======S1E TEKNIK INFORMATIKA UNINDRA=======');
            write(A);
            gotoxy(20,8); Textcolor(9); writeln('--------------------------------------------');
            gotoxy(20,9); writeln('|        NPM        |     NAMA MAHASISWA   |');
            gotoxy(20,10); writeln('--------------------------------------------');
            gotoxy(20,11); Textcolor(14); writeln('|   201343500534    |  NANO SETIANA        |');
            gotoxy(20,12); writeln('|   201343500493    |  DESRYAN IQBAL       |');
            gotoxy(20,13); writeln('|   201343500476    |  FAISAL ILHAM MALIK  |');
            gotoxy(20,14); writeln('|   201343500509    |  HERLINA WIDYASTY    |');
            gotoxy(20,15); writeln('|   201343500441    |  RIZKA APRILIA       |');
            gotoxy(20,16); writeln('--------------------------------------------');
            readln;
            end;
        3 : begin
        clrscr;
        TextColor(14);
        gotoxy(35,1); write(#1, #0, #1, #0, #2, #0, #2); TextColor(10);
        kalimat:='Terima Kasih Sudah Menggunakan Program Kami. Press ENTER for EXIT      ';
          repeat
                kata1 := copy(kalimat,2,length(kalimat));
                kata2 := copy(kalimat,1,1);
                kalimat := concat(kata1,kata2);

                gotoxy(1,10); write(kalimat); delay(150);
          until keypressed;
          readln;
        exit;
        end;
        end;
        gotoxy(x,29); write('Ulang Lagi (Y/T) ? ');readln(ulang);
        end;
        end;
        readln;
        end.