Membuat Database Mysql

Apa yang ada di benak anda jika harus membuat database dengan menggunakan mysql :) mungkin ada yang bilang mudah, sulit , dan gatau. sedikit pembelajaran tantang membuat database mysql.

APA YANG KITA PERLUKAN ?

• XAMPP jika yang belum terinstall silahkan download disini.
• BROWSER (Mozilla,Google Chrome) .

CARANYA ?

Contoh kita akan membuat Database dengan keterangan seperti berikut:

Nama Database : Data

Nama Table : Mahasiswa

Field	Type	Length/Values1	Null	Extra	Primary
no	INT	5	null	auto_increment	Primary
nama	VARCHAR	50	not null
kelas	VARCHAR	50	not null
npm	INT	8	not null

• ketikan localhost/phpmyadmin pada browser.
• pilih sql  dan ketikan create database data;
• sebuah database pun berhasil di buat.
• untuk membuat table dengan keterangan seperti diatas?
• pilih sql lalu ketikan :
• create table mahasiswa (
  no int(5)  auto_increment,
  nama varchar(50) not null,
  kelas varchar(50) not null,
  npm int(5),
  primary key (no)
  )
• selesai

gimana mudah bukan ? 

selamat ber eksperiment. :)

                         

               

20 Program Array C

Array adalah sebuah kumpulan data yang terdiri dari tipe data yang sama. Setiap nilai yang berada di dalam array disebut dengan element, apapun tipe datanya. Nomor-nomor data yang menunjuk pada element array disebut subscript atau offset.

untuk contoh 20 program C dapat di download disini !!

C++ Menghitung Rata-Rata.

 Untuk sourcenya :

#include <iostream.h>
#include <conio.h>

int main()
{
    float n, total, rata2;
    total = 0;
    for(int i=0; i<10; i++)
    {
        cout<<"Masukkan nilai ke "<<(i+1)<<" : ";
        cin>>n;
        total = total + n;
    }
    rata2 = total / 10;
    cout<<"Total = "<<total<<endl;
    cout<<"Rata2 = "<<rata2<<endl;
    getch();
}

catt :untuk hasil yang sesuai gunakan source ini pada Dev-C++ 4.9.9.2.

C++ Perkalian Matriks 2 X 2

untuk source programnya :

#include <iostream.h>
#include <conio.h>
#include <iomanip.h>
int main()
{
    int A[3][3],B[3][3],C[3][3],i,j,k;
     //input matrix A
   cout<<"PROGRAM PERKALIAN MATRIK 2x2\n";
   cout<<"------------------------- \n";
   cout<<"input matrik A  \n";
   cout<<"------------------------- \n";
   for(i=0;i<2;i++)
   {
        for(j=0;j<2;j++)
        {
        cout<<"Elemen ke "<<(i+1)<<","<<(j+1)<<" : ";
      cin>>A[i][j];
        }
   }
   //cetak matrix A
   cout<<"\nMatrik A  \n";;
   for(i=0;i<2;i++)
   {
        for(j=0;j<2;j++)
        {
        cout<<setw(4)<<A[i][j];
        }
        cout<<endl;
   }
   cout<<endl;
   //masukkan matriks B
   cout<<"------------------------- \n";
   cout<<"input matrik B : \n";
   cout<<"------------------------- \n";
   for(i=0;i<2;i++)
   {
       for(j=0;j<2;j++)
        {
        cout<<"Elemen ke "<<(i+1)<<","<<(j+1)<<" : ";
      cin>>B[i][j];
        }
   }
   //cetak matrix B
   cout<<"\nMatrik B : \n";
   for(i=0;i<2;i++)
   {
        for(j=0;j<2;j++)
        {
        cout<<setw(4)<<B[i][j];
        }
        cout<<endl;
   }
    //Operasi Perkalian
  for (i=0;i<2;i++)
  {
    for (j=0;j<2;j++)
    {
    C[i][j]=0;
        for (k=0;k<2;k++)
      {
          C[i][j]+= A[i][k]*B[k][j];
      }
    }
  }
  //Menampilkan hasil matriks 2x2
  cout<<"\nMatrik C, Hasil : \n";
  for(i=0;i<2;i++)
  {
    for(j=0;j<2;j++)
    {
        cout<<setw(4)<<C[i][j];
    }
    cout<<endl;
  }
      cout<<endl;
      getch();
}

catt :untuk hasil yang sesuai gunakan source ini pada Dev-C++ 4.9.9.2

Struktur Seleksi Switch Case pada C

Sebelumnya mungkin ada yang bertanya bagaimakah membuat program dengan hasil seperti di bawah ini menggunakan bahasa C ?

Program ini menggunakan  Struktur Seleksi Switch Case,  Bentuk umumnya adalah sebegai berikut :

switch (expression) {
  case constant1:
    block of instructions 1
    break;
  case constant2:
    block of instructions 2
    break;
  .
  .
  .
  default:
    default block of instructions
  }

•  Instruksi switch digunakan untuk membandingkan beberapa nilai konstan yang mungkin untuk sebuah ekspresi, sama dengan if hampir dan else if.
•   switch meng-evaluasi expression dan memeriksa apakah equivalen dengan constant1, jika ya, maka akan meng-eksekusi block of instructions 1 sampai terbaca keyword break, kemudian program akan lompat ke akhir dari stuktur selektif switch.
• Jika expression tidak sama dengan constant1, maka akan diperiksa apakah expression equivalen dengan constant2. jika ya, maka akan dieksekusi block of instructions 2 sampai terbaca break. Begitu seterusnya, jika tidak ada satupun konstanta yang sesuai maka akan mengeksekusi default:

berikut ini source program untuk output di atas :

 

Struktur Kontrol IF ELSE pada C

Disini saya bahas Struktur Kontrol IF ELSE pada C, di mana contoh dari penggunaannya saya aplikasikan kedalam Program Perhitungan Nilai Hasil Ujian, dalam menuliskan source program ini, saya menggunakan terminal blankon yakni sebuah distro linux yang di kembangkan negeri kita tercinta Indonesia. namun anda juga dapat menuliskan source ini pada distro linux lain atau software-sofware bahasa c lainnya.

untuk source programnya:

Logikanya :

• Program Ini dibuat Untuk menenukan Perhitungan Nilai ujian, dengan #include “nama_libraries” sintaks ini dikenal sebagai preprocessor directive. Disini kita menggunakan libraries stdio.h.  
• Sintaks int main() adalah sintaks yang menandai awal dari program C.
• script yang dituliskan berada didalam tanda { dan }. Dengan Varibel nil bernilai integer.
• Dengan adanya libraries stdio.h maka function printf yang terdapat  sintaks diatas dikenali sebagai perintah ntuk menampilkan output ke display. Misalnya (“==Perhitungan Hasil Ujian==\n”); maka akan tercetak ==Perhitungan Hasil Ujian==
• Scanf () disini digunakan unuk membaca inputan users dari keyboard.
• If (nil>65) statement1 Else statement2, condition  ini  merupakan ekspresi yang dievaluasi. Jika kondisi bernilai true, maka statement akan dijalankan. Jika false, maka statement akan diabaikan dan program menjalankan instruksi selanjutnya.
• Dalam program ini, jika nilai yang di berikan users lebih dari 65 maka program akan mencetak statement “Anda Lulus Ujian !!” sedangkan jika kurang dari 65 maka program akan mencetak “Anda Tidak Lulus Ujian”;
•   Return 0; berfungsi untuk memberitahukan system operasi bahwa program tersebut telah selesai dilaksanakan atau tidak. Jika return value = 0 maka berarti sukses, namun jika return value =1 berarti gagal.  untuk outputnya:

Source Program Cobol Password untuk Menginput Barang.

ketikan source ini pada program cobol, dan lihat sendiri hasilnya ^_^ semoga bermanfaat.  dan apabila kurang memuaskan silahkan edit sesuka hati anda ^_^.
   

       IDENTIFICATION DIVISION.
       PROGRAM-ID.BARANG.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FILE-DATA ASSIGN TO DISK.
       DATA DIVISION.
       FILE SECTION.
       FD FILE-DATA.
           LABEL RECORD IS STANDARD.
           VALUE OF FILE-ID IS 'DATA.DAT'.
           DATA RECORD IS RECORD-BRG.
       01 RECORD-BRG.
           02 NO-BARANG        PIC X(6).
           02 NAMA-BARANG      PIC X(15).
           02 JUMLAH-BARANG    PIC 999.
           02 HARGA-BARANG     PIC 9(6).
           02 TGL              PIC XX/XX/XXXX.
       WORKING-STORAGE SECTION.
       01 P PIC 9(5)
       01 BENAR-SALAH PIC X VALUE SPACE.
           88 BENAR VALUE 'Y' , 'y'.
           88 SALAH VALUE 'T' , 't'.
       01 LAGI-SUDAH PIC X VALUE SPACE.
           88 LAGI VALUE 'Y' , 'y'.
           88 SUDAH VALUE 'T' , 't'.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 PASS.
           02 LINE 8 COLUMN 10 VALUE ' ENTER PASSWORD : '.
           02 COLUMN PLUS 1 PIC X(5) TO P SECURE.     
       01 LAYAR-BETUL-SALAH.
           02 LINE 20 COLUMN 10 VALUE ' SUDAH BENAR (Y/T) ?'.
           02 COLUMN PLUS 1 PIC X USING BENAR-SALAH.
       01 LAYAR-LAGI-SUDAH.
           02 LINE 23 COLUMN 10 VALUE ' ADA LAGI (Y/T) ?'.
           02 COLUMN PLUS 1 PIC X USING LAGI-SUDAH.
       
       01 LAYAR-MENAMBAH.
           05 BLANK SCREEN.
           05 LINE 8 COLUMN 8 VALUE ' NO BARANG      : '.
           05 COLUMN PLUS 1 PIC X(6) TO NO-BARANG FULL,REQUIRED,AUTO.
           05 LINE 10 COLUMN 8 VALUE ' NAMA BARANG    : '.
           05 COLUMN PLUS 1 PIC X(15) TO NAMA-BARANG REQUIRED.
           05 LINE 12 COLUMN 8 VALUE ' HARGA SATUAN   : RP'.
           05 COLUMN PLUS 1 PIC 9(6) TO HARGA-BARANG REQUIRED.
           05 LINE 14 COLUMN 8 VALUE ' JUMLAH BARANG  : '.
           05 COLUMN PLUS 1 PIC 999 TO JUMLAH-BARANG,BLINK.
           05 LINE 16 COLUMN 8 VALUE ' TGL. TRANSAKSI : '.
           05 COLUMN PLUS 1 PIC XX/XX/XXXX TO TGL.
       PROCEDURE DIVISION.
       BUKA-FILE.
           OPEN OUTPUT FILE-DATA.
       PASSWORD.
           DISPLAY HAPUS-LAYAR.
           DISPLAY PASS.
           ACCEPT PASS.
           IF P = 12345 GO TO TAMBAH-BARU ELSE GO TO SALAH.
       SALAH.
           DISPLAY (15, 12) 'PASSWORD SALAH, MOHON ULANGI!'.
           STOP' '.
           GO TO PASSWORD.

       TAMBAH-BARU.
           DISPLAY HAPUS-LAYAR.
           DISPLAY LAYAR-MENAMBAH.
           ACCEPT LAYAR-MENAMBAH.
           DISPLAY LAYAR-BETUL-SALAH.
           ACCEPT LAYAR-BETUL-SALAH.
           IF SALAH GO TO TAMBAH-BARU ELSE MASUKAN-LAGI.
           WRITE RECORD-BRG.
       MASUKAN-LAGI.
           DISPLAY LAYAR-LAGI-SUDAH.
           ACCEPT LAYAR-LAGI-SUDAH.
           IF LAGI GO TO TAMBAH-BARU ELSE GO TO SELESAI.
           CLOSE FILE-DATA.
       SELESAI.
           STOP RUN.
 

Source Program Cobol Menu Makanan dan Minuman.

ketikan source ini pada program cobol, dan lihat sendiri hasilnya ^_^ semoga bermanfaat.    


       IDENTIFICATION DIVISION.
       PROGRAM-ID. MENU3.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 MAKAN PIC 9(5)
       01 MINUM PIC 9999.
       01 HARGA PIC 9(5).

       77 TEKAN PIC 99.
       77 PILIH PIC X.
       77 TULIS PIC X.
       77 TULIS2 PIC X.

       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.

       01 LAYAR-MENU.
           02 LINE 3 COLUMN 30 VALUE ' === Daftar Menu === '.
           02 LINE 6 COLUMN 20 VALUE 'F1. Makanan'.
           02 LINE 7 COLUMN 20 VALUE 'F2. Minuman'.
           02 LINE 8 COLUMN 20 VALUE 'F3. Total'.
           02 LINE 10 COLUMN 20 VALUE 'Esc. KELUAR'.
           02 LINE 15 COLUMN 20 VALUE 'Masukan Pilihan : '.
           02 COLUMN PLUS 1 PIC X TO PILIH.
       
       PROCEDURE DIVISION.
       TAMPILKAN-MENU.
           DISPLAY HAPUS-LAYAR.
           MOVE SPACE TO PILIH.
           DISPLAY LAYAR-MENU.
           ACCEPT LAYAR-MENU.
           ACCEPT TEKAN FROM ESCAPE KEY.
           DISPLAY HAPUS-LAYAR.
 
       SELEKSI-PILIHAN.
           IF TEKAN = 01
             GO TO SELESAI.
           IF TEKAN = 02
             GO TO MAKANAN.
           IF TEKAN = 03
             GO TO MINUMAN.
           IF TEKAN = 04
             GO TO TOTAL.
           ELSE
             GO TO TAMPILKAN-MENU.

       MAKANAN.
           DISPLAY HAPUS-LAYAR
           DISPLAY ( 1, 20 ) '###### Daftar Makanan ###### '.
           DISPLAY ( 3, 5 ) 'Nama Makanan'.
           DISPLAY ( 3, 30 ) 'Harga Makanan'.
           DISPLAY ( 5, 5 ) '1. Nasi Goreng'.
           DISPLAY ( 5, 28 ) '| Rp. 10.000'.
           DISPLAY ( 6, 5 ) '2. Soto Ayam + NASI'.
           DISPLAY ( 6, 28 ) '| RP. 12.000'.
           DISPLAY ( 7, 5 ) '3. Ayam Bakar + NASI'.
           DISPLAY ( 7, 28 ) '| RP. 15.000'.
           DISPLAY ( 15, 1 ) 'Masukan Pilihan Makanan : '
           ACCEPT TULIS.

           IF TULIS = 1
           GO TO NASGOR.
           IF TULIS = 2
           GO TO SOTO.
           IF TULIS = 3
           GO TO AYAM
           ELSE
           GO TO MAKANAN.

       NASGOR.
           DISPLAY ( 17, 1 )'Anda memilih Nasi Goreng = Rp 10.000'.
           COMPUTE MAKAN = 10000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.

       SOTO.  
           DISPLAY ( 17, 1 )'Memilih Soto Ayam+Nasi= Rp 12.000'.
           COMPUTE MAKAN = 1200.
           STOP ' '.
           GO TO TAMPILKAN-MENU.
           
       AYAM.
           DISPLAY ( 17, 1 )'Memilih Ayam Bakar+Nasi= Rp 15.000'.
           COMPUTE MAKAN = 15000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.
 
       MINUMAN.
           DISPLAY HAPUS-LAYAR
           DISPLAY ( 1, 20 ) '###### Daftar Minuman ###### '.
           DISPLAY ( 3, 5 ) 'Nama Minuman'.
           DISPLAY ( 3, 30 ) 'Harga Minuman'.
           DISPLAY ( 5, 5 ) '1. Air Mineral'.
           DISPLAY ( 5, 28 ) '| Rp. 1.000'.
           DISPLAY ( 6, 5 ) '2. Teh Manis'.
           DISPLAY ( 6, 28 ) '| RP. 2.000'.
           DISPLAY ( 7, 5 ) '3. Capucino'.
           DISPLAY ( 7, 28 ) '| RP. 5.000'.
           DISPLAY ( 15, 1 ) 'Masukan Pilihan Minuman : '
           ACCEPT TULIS2.

           IF TULIS2 = 1
           GO TO AER.
           IF TULIS2 = 2
           GO TO TEH.
           IF TULIS2 = 3
           GO TO CAPU.
           ELSE
           GO TO MINUMAN.

       AER.
           DISPLAY ( 17, 1 )'Anda memilih Air Mineral = Rp 1.000'.
           COMPUTE MINUM = 1000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.

       TEH.  
           DISPLAY ( 17, 1 )'Anda Memilih Teh Manis = Rp 2.000'.
           COMPUTE MINUM = 2000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.
           
       CAPU.
           DISPLAY ( 17, 1 )'Anda Memilih Capucino = Rp 5.000'.
           COMPUTE MINUM = 5000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.

          
       TOTAL. 
           DISPLAY HAPUS-LAYAR.
           DISPLAY ( 1, 20 ) '###### Total Harga ###### '.
           DISPLAY ( 3, 5 ) ' MAKANAN       : Rp 'MAKAN.
           DISPLAY ( 4, 5 ) ' MINUMAN       : Rp  'MINUM.
           DISPLAY ( 6, 5 ) ' ------------------------ + '.
           COMPUTE HARGA = MAKAN + MINUM.
           DISPLAY ( 8, 5 )' TOTAL HARGA   = Rp ' HARGA.
           STOP ' '.
           GO TO KEMBALI-KE-MENU.
          
       KEMBALI-KE-MENU.
           DISPLAY ( 20, 5 )'TEKAN ENTER UNTUK KEMBALI KE MENU'.
           STOP ' '.
           GO TO TAMPILKAN-MENU.
        SELESAI.
             STOP RUN.

Source Program Cobol Harga Tiket Kereta Api,Bis dan Pesawat

       

ketikan source program ini dan silahkan lihat sendiri hasilnya ^_^

       PROCEDURE DIVISION.

       TAMPILKAN-MENU.

           DISPLAY HAPUS-LAYAR.

           DISPLAY ' @@@@ Angkutan Mudik Anda @@@@ '.

           DISPLAY '1. Kereta Api'.

           DISPLAY '2. Bis'.

           DISPLAY '3. Pesawat'.

           DISPLAY '4. Keluar'.

           DISPLAY 'Mau ke Surabaya Naik Apa Ya..?'.

           DISPLAY 'Masukkan Pilihan Anda ! : '.

           ACCEPT TEKAN.

       SELEKSI-PILIHAN.

           IF TEKAN = 1

             GO TO KERETA.

           IF TEKAN = 2

             GO TO BIS.

           IF TEKAN = 3

             GO TO PESAWAT.

           IF TEKAN = 4

             GO TO PERF.

           IF TEKAN > 4

             DISPLAY 'Maaf, tidak ada pilihan, ulangi kembali !'.

             STOP ' '.

             GO TO TAMPILKAN-MENU.

       KERETA.

           DISPLAY HAPUS-LAYAR

           DISPLAY ( 1, 20 ) '###### Daftar Kereta Api ###### '.

           DISPLAY ( 3, 5 ) 'Nama Kereta Api (Kelas) |'.

           DISPLAY ( 3, 30 ) ' Harga Tiket (per orang)'.

           DISPLAY ( 5, 5 ) '1. Gajayana (Eksekutif)'.

           DISPLAY ( 5, 28 ) ' | Rp200.000'.

           DISPLAY ( 6, 5 ) '2. Argo Bromo (Bisnis).

           DISPLAY ( 6, 28 ) ' | RP180.000'.

           DISPLAY ( 7, 5 ) '3. Matarmaja (Ekonomi)'.

           DISPLAY ( 7, 28 ) ' | RP100.000'.

           DISPLAY ( 15, 5 ) 'Masukan Pilihan Kereta : '

           ACCEPT TULIS.

           IF TULIS = 1

           GO TO GAJA.

           IF TULIS = 2

           GO TO ARGO.

           IF TULIS = 3

           GO TO MATAR

          

           GO TO SEPUR.

       GAJA.

           DISPLAY ( 17, 5 )'Anda mudik naik kereta Gajayana = Rp200.000'.

           DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.

           COMPUTE SEPUR = 200000.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

       ARGO.  

           DISPLAY ( 17, 5 )'Anda mudik naik kereta Argo Bromo = Rp180.000'.

           DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.

           COMPUTE SEPUR = 180000.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

           

       MATAR.

           DISPLAY ( 17, 5 )'Anda mudik naik kereta Matarmaja = Rp100.000'.

           DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.

           COMPUTE SEPUR = 100000.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

       BIS.

           DISPLAY HAPUS-LAYAR

           DISPLAY ( 1, 20 ) '###### Daftar Bis ###### '.

           DISPLAY ( 3, 5 ) 'Nama Bis               |'.

           DISPLAY ( 3, 30 ) 'Harga Tiket (per orang)'.

           DISPLAY ( 5, 5 ) '1. Harapan Jaya'.

           DISPLAY ( 5, 28 ) '| Rp155.000'.

           DISPLAY ( 6, 5 ) '2. Rosalia Indah'.

           DISPLAY ( 6, 28 ) '| RP145.000'.

           DISPLAY ( 7, 5 ) '3. Safari Dharma Raya'.

           DISPLAY ( 7, 28 ) '| RP135.000'.

           DISPLAY ( 15, 5 ) 'Masukan Pilihan Bis : '

           ACCEPT TULIS2.

           IF TULIS2 = 1

           GO TO HARAPAN.

           IF TULIS2 = 2

           GO TO ROSALIA.

           IF TULIS2 = 3

           GO TO SAFARI.

          

           GO TO BIS.

       HARAPAN.

           DISPLAY ( 17, 5 )'Anda memilih Harapan Jaya = Rp155.000'.

           DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.

           COMPUTE BUS = 155000.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

       ROSALIA.  

           DISPLAY ( 17, 5 )'Anda memilih Rosalia Indah = Rp145.000'.

           DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.

           COMPUTE BUS = 145000.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

           

       SAFARI.

           DISPLAY ( 17, 5 )'Anda memilih Safari Dharma Raya = Rp135.000'.

           DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.

           COMPUTE BUS = 135000.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

       PESAWAT. 

           DISPLAY HAPUS-LAYAR.

           DISPLAY ( 1, 20 ) '###### Daftar Pesawat ###### '. 

           DISPLAY ( 3, 5 ) 'Nama Pesawat           |'.

           DISPLAY ( 3, 30 ) 'Harga Tiket (per orang)'.

           DISPLAY ( 5, 5 ) '1. Garuda Indonesia'.

           DISPLAY ( 5, 28 ) '| Rp1.650.000'.

           DISPLAY ( 6, 5 ) '2. Batavia Air'.

           DISPLAY ( 6, 28 ) '| RP1.550.000'.

           DISPLAY ( 7, 5 ) '3. Sriwijaya Air'.

           DISPLAY ( 7, 28 ) '| RP1.450.000'.

           DISPLAY ( 15, 5 ) 'Masukan Pilihan Pesawat : '.

           ACCEPT TULIS3.

           IF TULIS3 = 1

           GO TO GARUDA.

           IF TULIS3 = 2

           GO TO BATAVIA.

           IF TULIS3 = 3

           GO TO SRIWIJAYA.

           GO TO PESAWAT.

       GARUDA.

           DISPLAY ( 17, 5 )'Anda memilih Garuda Indonesia = Rp1.650.000'.

           DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.

           COMPUTE KAPAL = 1650000.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

       BATAVIA.  

           DISPLAY ( 17, 5 )'Anda memilih Batavia Air = Rp1.550.000'.

           DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.

           COMPUTE KAPAL = 1550000.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

           

       SRIWIJAYA.

           DISPLAY ( 17, 5 )'Anda memilih Sriwijaya Air = Rp1.450.000'.

           DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.

           COMPUTE KAPAL = 1450000.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

           STOP ' '.

           GO TO KEMBALI-KE-MENU.

          

       KEMBALI-KE-MENU.

           DISPLAY ( 20, 5 )'TEKAN ENTER UNTUK KEMBALI KE MENU'.

           STOP ' '.

           GO TO TAMPILKAN-MENU.

       PERF.

           DISPLAY HAPUS-LAYAR.

           PERFORM PROCEDURE-A.

           DISPLAY "TERIMA KASIH".

           PERFORM PROCEDURE-B.

           PERFORM PROCEDURE-A.

           STOP " ".

       SELESAI.

           STOP RUN.

       PROCEDURE-A.

           DISPLAY "#####################".

           DISPLAY "^^^^^^^^^^^^^^^^^^^^^".

       PROCEDURE-B.

           DISPLAY "DAN SELAMAT JALAN".