pemrograman cobol

PEMROGRAMAN

COBOL

COBOL atau Common Buisness Oriented Language adalah suatu

bahasa komputer tingkat tinggi yang berorientasi langsung pada

permasalahan bisnis.

COBOL hampir dapat digunakan pada semua komputer. Diciptakan

pada tahun 1959. Pengembangan bahasa COBOL selanjutnya dilakukan

oleh suatu grup yang disebut CODASYL, singkatan dari Conference on

Data System Language.

Bahasa COBOL pertama diperkenalkan secara formal pada bulan

Januari 1960, dan disebut COBOL-60. Karena orientasinya pada suatu

masalah, bahasa ini disebut juga dengan istilah Problem Oriented

Language.

COBOL dibuat untuk operasi yang mencakup langkah dasar

pengolahan data, yaitu membaca data, memproses data, dan kemudian

menghasilkan output berupa informasi.

COBOL merupakan bahasa terstruktur, mudah dibaca, dan mudah

dipelajari. COBOL terdiri dari empat divisi yaitu IDENTIFICATION

DIVISION, ENVIRONMENT DIVISION, DATA DIVISION, dan

PROCEDURE DIVISION.

Ada dua bagian utama dalam bahasa COBOL, DATA DIVISION

dan PROCEDURE DIVISION. DATA DIVISION memuat dan

menggambarkan bentuk dan jenis dari data input dan outputnya.

PROCEDURE DIVISION menggambarkan prosedur yang digunakan

untuk menyelesaikan permasalahan dengan bentuk dan jenis data yang

ada pada DATA DIVISION.

Dari apa yang dapat dikerjakan COBOL, konsep COBOL

orientasinya pada permasalahan bisnis sebenarnya dapat untuk semua

permasalahan yang berhubungan dengan pengolahan data, misalnya

pengolahan data mahasiswa.

PENGENALAN DASAR

PEMROGRAMAN COBOL

A. Pengenalan COBOL

Sekilas tentang program COBOL.

COBOL adalah kepanjangan dari Common Bussiness Oriented

Language. Bahasa COBOL digolongkan sebagai High Level Language

(bahasa pemrograman tingkat tinggi) yang berorientasi pada masalah

bisnis. Diciptakan pada tahun 1959.

COBOL pertama kali diperkenalkan secara formal bulan Januari 1960

dan disebut dengan COBOL-60. Dan diperbaharui tahun 1965. Pada

tahun 1968 dan 1974, bahasa COBOL dikembangkan dan

distandarisasikan dengan nama ANSI COBOL (American National

Standarts Institute).

Bahasa pemrograman COBOL sangat terstruktur, karena mudah

dibaca dan memiliki struktur yang jelas.

COBOL dibuat untuk operasi pengolahan data, yaitu membaca data,

memproses data dan menghasilkan output berupa informasi.

Dasar-dasar COBOL.

Untuk membuat program COBOL yang baik dan benar, minimal anda

harus menguasai atau mengetahui beberapa hal berikut :

· Cara penulisan.

Kolom maksimal yang disediakan program COBOL adalah kolom 1

sampai 80, dengan ketentuan sebagai berikut :

Kolom 1-6 : digunakan untuk line number (optional) ditulis dari kecil ke

besar.

Kolom 7 : digunakan untuk melanjutkan baris sebelumnya dengan

menambahkan tanda (-) dan baris sambungannya ditulis di

area B.

Bila diisi (*) maka yang ditulis pada baris ini dianggap

komentar.

Kolom 8-11 : disebut dengan area A. untuk menulis divisi, section, nama

paragraph, judul file description (FD), level number 01 dan

level number 77.

Kolom 12-72 : disebut area B. untuk menulis elemen program selain yang

ditulis di area A.

Kolom 73-80 : kolom ini tidak akan diproses oleh program jadi data diisi

catatan atau curahan hati untuk dokumentasi.

Beberapa hal lagi yang anda harus perhatikan tentang penulisan yaitu

penggunaan titik dan spasi. Bahasa pemrogram COBOL sangat sangat

ketat tentang peraturan penulisan, pastikan anda memberikan tanda titik

(.) setelah nama divisi, section, paragraph atau baris instruksi dan spasi

(space) untuk pemisah antara COBOL RESERVED WORDS dengan

variable atau string.

Kedua hal tadi kelihatan sepele tapi jika program yang anda buat

panjang nya sampai puluhan baris hal ini mungkin dapat membuat anda

frustasi. Karena akan menyebabkan pesan kesalahan yang memusingkan

kepala.

Cara menjalankan program COBOL.

Program COBOL ini tidak memiliki built-in editor seperti Pascal atau

Basic sehingga anda harus mengetik dan mengkompile secara terpisah.

Untuk mengetik source program COBOL anda dapat menggunakan

sembarang text editor apakah itu MS-Editor, Notepad, SideKick dan lainlain

sesuai keinginan anda. Tetapi disarankan menggunakan SideKick

karena lebih cepat terutama pada saat proses debugging source program.

Cara penggunaan SideKick.

SideKick adalah suatu editor tool yang resident di memori, untuk

menjalankan SideKick, ketik :

C:\>SK

Setelah tampil jendela berwarna biru tekan CTRL+ALT maka akan keluar

menu pop-up pilih notepad.

Tekan F3 untuk membuat file baru (untuk cobol dengan extensi .COB) , F2

untuk menyimpan source program dan Ecs untuk ke DOS prompt.

Untuk mengkompile source program COBOL yang anda buat tekan F2 lalu

Ecs , ketikan:

C:\>COBOL nama_program.cob atau C:\>COBOL nama_program;

Untuk menjalankan (running) ketikan:

C:\>RUNCOBOL nama_program

Contoh Program Sederhana.

PRAK.COB Sun Aug 20 20:55:58 2006 Page 1

line number source line Microsoft COBOL Version 2.20

1 IDENTIFICATION DIVISION.

2 PROGRAM-ID. CONTOH.

3 AUTHOR. SAYA.

4 ENVIRONMENT DIVISION.

5 CONFIGURATION SECTION.

6 SOURCE-COMPUTER. IBM-PC.

7 OBJECT-COMPUTER. IBM-PC.

8 DATA DIVISION.

9 WORKING-STORAGE SECTION.

10 01 MASUKAN.

11 02 NAMA PIC X(20).

12 02 NPM PIC X(8).

13 SCREEN SECTION.

14 01 HAPUS-LAYAR.

15 02 BLANK SCREEN.

16 PROCEDURE DIVISION.

17 MASUKKAN-DATA.

18 DISPLAY HAPUS-LAYAR.

19 DISPLAY 'NAMA : '.

20 ACCEPT NAMA.

21 DISPLAY 'NPM : '.

22 ACCEPT NPM.

23 SELESAI.

24 STOP RUN.

25

CARA MEMBUAT GAMBAR PAPRIKA PADA GIMP

1. buka software gimp kemudian klik menu file dan pilih new.
2. setelah klik new akan muncul tampilan seperti gambar di atas, kemudian ganti ukuran height pada image size menjadi 460 dan klik ok.
3. setelah itu pilih paint brush pada menu toolbox dan pilih gambar paprika seperti gambar di atas.
4. setelah itu pilih path pada menu toolbox untuk memberikan titik-titik pada layer agar dapat membuat sebuah gambar.
5. buatlah gambar pada layer berbentuk huruf s seperti pada gambar di atas dengan menggunkan path pada menu toolbox.
6.  setelah gambar berbentuk huruf s jadi kemudian klik edit.
7.  setelah memilih edit pilih stroke path maka akan muncul tampilan seperti gambar di atas, kemudian pilih stroke.
8. setelah pilih stroke akan muncul tampilan seperti gambar di atas.
9. klik path tool kemudian akan muncul tool option kemudian klik background pada layer borders klik kanan pilih duplicate layar, kemudian pilih move pada tool option pilih selection from path, maka path akan bertambah seperti gambar di atas.

cara membuat sorting pada bahasa pemograman pascal

Nama      : M.HIDAYATURACHMAN

Npm        : 34111200

Kelas      : 2DB04 

Program sorting nama dengan menggunakan pascal

                                                                                                        

program sorting;

uses crt;

type

    mahasiswa = record

       nama : string [15];

       npm  : string [15];

       kelas: string[15];

       end;

var

 i,j,n : integer ;

 mhs : array [1..15] of mahasiswa;

 siswa : mahasiswa;

 const

    a=('====================================================');

    b=('NPM                   KELAS                     NAMA');

    c=('====================================================');

 procedure input;

 begin

 for i:= 1 to n do

  begin

    with mhs[i] do

     begin

     write(mhs[i].npm:0);

     write(mhs[i].kelas:20);

     write(mhs[i].nama:24);

     writeln;

     end;

  end;

  writeln(a);

 end;

 begin

 clrscr;

 write('jumlah mahasiswa : ');readln(n);

 for i :=1 to n do

 begin

 write('NPM:');readln(mhs[i].npm);

 write('KELAS:');readln(mhs[i].kelas);

 write('NAMA:');readln(mhs[i].nama);

 writeln;

 end;

 write('data semula');

 writeln(' ');

 writeln(a);

 writeln(b);

 writeln(c);

 begin

   input;

   end;

  {bubble sort}

  for i:= 1 to n-1 do

      for j:=i+1 to n do

      begin

      if mhs[i].nama > mhs[j].nama then

          begin

          siswa:=mhs[i];

          mhs[i]:=mhs[j];

          mhs[j]:=siswa;

          end;

       end;

  writeln;

  write('sorting berdasarkan nama');

  writeln(' ');

  writeln(b);

  writeln(a);

  writeln(c);

  begin

   input;

   end;

  writeln;

  write('selesai...');readln;

 readkey;

 end.

DATABASE SISTEM PUSKESMAS

                                                      DATA BASE SISTEM PUSKESMAS

Berikut ini akan dijelaskan Informasi potensial yang dapat dihasilkan pada rancangan database hubungannya dengan konsep dasar pembuatan database yaitu untuk mempermudah dalam hal pengambilan keputusan
Jumlah Penduduk di wilayah puskesmas berdasarkan Jenis Kelamin, Tingkat pendidikan, pekerjaan
Jumlah Keluarga Miskin di wilayah puskemas, informasi ini dapat membantu pemerintah dalam perncanaan kegiatan pengentasan kemiskinan dan dalam penyaluran bantuan bagi keluarga miskin
Persentase Jumlah Balita yang lahir dengan berat badan waktu lahir rendah, Tingginya Balita lahir dengan berat badan rendah menggambarkan status gizi ibu sewaktu mengandung, sehingga perlu peningkatan intervensi kegiatan yang diarahkan pada ibu hamil, disamping itu informasi bayi lahir dengan berat badan rendah segera melakukan pemberian makanan tambahan agar tidak menjadi balita gizi buruk.
Jumlah balita gizi buruk, Gizi Kurang, dan gizi baik, informasi ini dapat digunakan untuk merencanakan penanggulangan gizi buruk
Jumlah balita dalam suatu wilayah yang telah mendapatkan vitamin A.
Dan beberapa informasi tentang Program Gizi di wilayah Puskemas tersebut, semua itu dapat dilakukan untuk Perencanaan Kegiatan.


Database berbasis Puskesmas pada Jajaran Dinas Kesehatan Kecamatan cilandak barat :

1. Meninjau kembali Sistem yang ada (Reviewing the existing system)

Langkah awal yang harus dilaksanakan dengan meninjau kembali sistem yang ada dengan melihat apakah sistem saat ini telah ada kita tidak dapat serta merta membangun sistem baru melainkan harus melihat kedalam apakah saat ini sudah ada sistem yang dilaksanakan, cobalah membangun kekuatan dan mempelajari kelemahan dari sistem yang sudah ada. Tahapan ini dilaksanakan dengan cara sebagai berikut :

Inventarisir formulir yang ada, dari buku dan media lain yang dapat digunakan.

Mencoba menilai kualitas data mengunakan formulir yang ada. Aspek-aspek yang termasuk dalam penilaian kita sebagai berikut :

(a) Ketepatan.

(b) Kelengkapan.

(c) Memenuhi syarat.

(d) Tepat waktu.

Mencari pemecahan masalah yang ada dalam pengumpulan data.

Melihat faktor-faktor apa yang mempengaruhi dalam pengolahan data, dengan cara sebagai berikut :

(a) Analisa data

(b) Bagaimana penyebarluas data

(c) Suplay dan logistik

(d) Pengembangan sumber daya manusia, khususnya staf yang ada.

(e) Kerjasama, koordinasi, komunikasi antara dinas kesehatan dengan lintas sektoral yang terkait.

Melihat aspek yang dibutuhkan dalam indentifikasi sistem, apakah dapat menjawab pertanyaan sebagai berikut :

(a) Apakah masih dapat dipertahankan.

(b) Apakah masih dapat diperbaharui.

(c) Ataukah dihilangkan.

Membuat dan melaporkan hasil penilaian yang telah dilaksanakan

Mendiskusikan hasil penilaian dengan pimpinan.

2. Menentukan kebutuhan data (Defining data needs)

Langkah kedua yang kita laksanakan ialah melihat setiap tingkatan administratif memiliki peran yang tidak sama, sehingga kebutuhan data akan berbeda-beda. Tidak semua kebutuhan data dapat dipenuhi melalui sistem pengumpulan data rutin. Data yang jarang dikumpulkan atau hanya diperlukan untuk suatu kecamatan cilandak dapat diperoleh melalui penelitian atau survei menggunakan sampel.

3. Pengembangan prosedur pemerosesan data (Developing procedures for data processing)

angkah-langkah guna Mengembangkan prosedur pemerosesan data sebagai berikut :

1. Lakukan asesment terhadap keuntungan dan kerugian pemrosesan data secara manual dibandingkan dengan menggunakan komputer, dengan mempertimbangkan faktor - faktor berikut :

• Biaya

• Ketersediaan tenaga dengan keahlian yang sesuai untuk beralih ke sistem komputer terutama di tingkat terendah dimana sistem komputerisasi akan diterapkan.

• Ketersediaan tenaga tehnisi apabila terjadi kerusakan

2. Apabila kita memilih untuk mengembangkan sistem komputerisasi, pastikan bahwa nantinya akan dipergunakan untuk pemrosesan data sampai pada Puskesmas, assesment pula SDM yang ada pada Puskesmas apakah perlu dilaksanakan pelatihan baik pengoperasiannya maupun pemeliharaan sistem.

3. Tentukan spesifikasi pengembangan software kaitanya dengan pengguna data pada tingkat yang berbeda. Aspek yang penting untuk dipertimbangkan adalah :

• Software yang ada apakah telah legal menurut hukum ? dalam artian Shareware (Lisensi apa telah kita dapatkan ?)

• Hindari pembajakan Software

• Pilihlah Software yang mudah dipahami serta sebisa mungkin murah (Opensource)

• Apakah software ini dapat menyediakan laporan secara rutin

• Terdapat mekanisme pengawasan/pemeriksaan kualitas data didalam software tersebut

• Kebutuhan analisis data dari pengguna

4. Kembangkan kebutuhan software untuk pemrosesan data di tiap-tiap tingkatan dimana komputer akan digunakan berdasarkan spesifikasi yang dibutuhkan. desain software dapat menghasilkan output yang sama dengan sistem informasi manajemen kesehatan yang telah dikembangkan sebelumnya, hanya membutuhkan sedikit modifikasi. Putuskan apakah perlu mengembangkan software baru atau memodifikasi program yang sudah ada.

5. Lakukan uji coba software dengan memperhatikan :

Identifikasi kesalahan, Kemampuan software untuk memberikan data yang dibutuhkan, dan Kemampuan staf dalam menggunakan software

6. Kembangkan dan ujicoba petunjuk penggunaan software.

7. Desain program pelatihan penggunaan software pada staf

Beberapa hal yang harus kita perhatikan dengan cermat, diantaranya

1. Kemampuan hardware yang tersedia, terutama pada tingkat yang lebih rendah untuk mengakomodir software misalkan kemampuan menyimpan data. 2. Kompatibilitas dengan software lain. (bila ada dan kita harus perhitungkan akan adanya software dimasa akan datang) 3. Prosedur dasar pemeliharaan sistem. 4. Sistem keamanan yang ada dalam software tersebut

data base tingkat gizi di kelurahan cilandak

Nama kepala keluarga	alamat	Jumlah anggota keluarga	Keterangan gizi
Keluarga bapak asyari	Jl.mawar komplek mpr no. c124	5	baik
Keluarga bapak rohman	Jl.mawar komplek mpr no.c125	2	baik
Keluarga bapak dody	Jl.mawar komplek mpr no.c126	2	baik
Keluarga bapak hery	Jl.mawar komplek mpr No.c127	2	Kurang Baik
Keluarga bapak sudarso	Jl.mawar komplek mpr No.c128	2	baik
Kepala bapak endang	Jl.mawar komplek mpr No.c129	4	baik
Keluarga bapak isep	Jl.mawar komplek mpr No.c130	2	baik
Keluarga bapak yosep	Jl.mawar komplek mpr No.c131	4	Kurang Baik
Keluarga bapak yusuf	Jl.mawar komplek mpr No.c132	3	baik
Keluarga bapak dosi	Jl.mawar komplek mpr No.c133	3	baik
Keluarga bapak sam	Jl.mawar komplek mpr No.c134	4	baik
Keluarga bapak siregar	Jl.mawar komplek mpr No.c135	3	Baik
Keluarga bapak maman	Jl.mawar komplek mpr No.c136	2	baik
Keluarga bapak amin	Jl.mawar komplek mpr No.c137	2	baik
Keluarga bapak janet	Jl.mawar komplek mpr No.c138	2	baik
Keluarga bapak suroso	Jl.mawar komplek mpr No.c139	2	Baik
Keluarga bapak diono	Jl.mawar komplek mpr No.c140	3	baik
Keluarga bapak imam	Jl.mawar komplek mpr No.c141	4	baik
Keluarga bapak mujib	Jl.mawar komplek mpr No.c142	1	baik

Keterangan : data ini di ambil dari salah satu RT di komplek mpr kelurahan cilandak barat 

sumber : http://chandrax.blogspot.com/2007/02/sistem-informasi-kesehatan-pada-dinas.html
              http://alfredsaleh.wordpress.com/2007/02/06/manajemen-database/

kasus yg saya amati (sub sistem puskesmas)

SISTEM PUSKESMAS

Dengan Bagian Bagian ( sub sistem ):

1.       Perbaikan Gizi Masyarakat ( Gizi ), 

2.       Kesehatan Ibu dan Anak ( KIA )

3.       Kesehatan lingkungan, ( Kesling )

4.       Pencegahan dan Pemberantasan Penyakit Menular (P2M),

5.       Promosi Kesehatan ( promkes ),

6.       Pengobatan,

7.       Spesifik lokal,

Pada masing-masing bagian (sub sistem)  merupakan sistem dengan sub sistem yang memiliki segmen yang tidak dapat dibenahi lagi menjadi sistem dan sub sistem.

Dari  bagian-bagian ini ( sub sistem ) kemudian  diuraikan komponen-komponen sistemnya  yaitu dimulai dari :

Model sistemnya Input, Proses dan Output,tujuan,umpan balik

Sub system input :

-          Man yaitu Petugas ( medis/paramedis dan non medis/paramedis )

-          Money yaitu Sumber-sumber pembiayaan kesehatan

-          Material yaitu Bahan dan obat serta persediaan lainnya

-          Metode yaitu Prosedur kerja /layanan kesehatan masyarakat

-          Markets yaitu Masyarakat dan penderita di wilayah Puskesmas

-          Machine yaitu Perlengkapan dan peralatan kesehatan

Sub system proses :

      -      Proses kinerja petugas medis/paramedis dan non medis/paramedis

      -      Proses penggunaan Bahan dan obat serta penyediaan lainnya

       -       Proses penggunaan prosedur kerja/layanan kesehatan masyarakat

       -       Proses pelayanan penderita dan pemenuhan kebutuhan kesehatan masyarakat

       -       Proses penggunaan perlengkapan dan peralatan kesehatan

       -       Proses pendapatan dan pengeluaran  penganggaran

o     Komponen proses ini diuraikan proses pelayanan  bagian-bagian pencapaian mutu pelayanan Puskesmast yang dilaksanakan sesuai dengan rencana  yang dibuat

o     Disini diurai segala kegiatan bagian yang terkait  dengan berfungsinya atau tidaknya ( bagaimana kejadian dan bagaimana seharusnya) fungsi manajemen antara lain,  perencanaan, pelaksanaan, pengorganisasin, koordinasi, monitoring evaluasi, penggunaan peralatan/bahan, bimbingan tehnis dan lain-lain.

o    Baik, tepat, sesuai, terpenuhi disini  menunjukkan kegiatan yang seharusnya dilaksanakan, Sedangkan kurang baik, tidak tepat, tidak terpenuhi menunjukkan keadaan sebenarnya atau tidak berfunginya  manajemen dari proses tersebut diatas.

Sub system output:

-          Kualitas pelayanan Kesehatan Masyarakat oleh PUSKESMAS ( Preventif, , Promosi, Kuratif, Rehabilitatif )

o   Komponen Ouput ini diuraikan kegiatan bagian-bagian dan interaksinya dari pencapaian mutu  pelayanan kesehatan masyarakat yang telah dilaksanakan oleh Puskesmas baik preventif, promosi, kuratif maupun rehabilitatif yang dinyatakan dalam satuan jumlah persatuan waktu atau cakupan/hasil kegiatan, kunjungan frekwensi kontak dan lain-lain.

o   Optimal disini  menunjukkan pelayanan bagian-bagian yang berkisar antara 80-100% ( sebagai contoh ) dari semua komponen proses pelayanan kesehatan masyarakat yang dilakukan oleh Puskesmas (cakupan dan target ). Dibawah 80 %  kualitas pelayanan bagian-bagian pelayanan pusat  kesehatan masyarakat (Puskesmas) dikatakan tidak atau kurang optimal

Tujuan :

1.       Meningkatkan kinerja petugas medis/paramedis dan non medis/paramedis  yang  kurang profesional menjadi profesional  misalnya datang terlambat menjadi datang tepat waktu, cepat pulang menjadi pulang tepat waktu, tidak menempati janji dengan masyarakat menjadi menempati janji, dll

2.       Meningkatkan pelayanan penderita dan pemenuhan kebutuhan kesehatan masyarakat tidak tepat menjadi tepat  misalnya  diskusi/penyuluhan pada keluarga ( masyarakat ) tentang pengetahuan tentang cara membangun / menggunakan WC yang benar dan sehat

3.       Meningkatkan kinerja petugas medis/paramedis dan non medis/paramedis  yang  kurang profesional menjadi profesional  misalnya datang terlambat menjadi datang tepat waktu, cepat pulang menjadi pulang tepat waktu, tidak menempati janji dengan masyarakat menjadi menempati janji, dll

Umpan balik :

1.       Pertemuan Rutin peningkatan kinerja petugas.

2.       Penggalangan sumber-sumber pembiayaan  yang bersumber dari masyarakat. Misalnya penggunaan Dana BAZ untuk  pelayanan kesehatan keluarga miskin.

3.       Pendataan penderita dan Masyarakat. Dalam program kesehatan.

Sumber : http://www.google.co.id/url?sa=t&rct=j&q=elemen%20subsistem%20&source=web&cd=5&cad=rja&ved=0CDMQFjAE&url=http%3A%2F%2Fimages.abyku.multiply.multiplycontent.com%2Fattachment%2F0%2FSJfBwwoKCswAACXjFE81%2FSistem%2520Puskesmas.doc%3Fnmid%3D108955933&ei=DIl3UKObNtDOrQeZuYGYAQ&usg=AFQjCNFmIC3m5vtwwVIfZw6vodpNDSP1hA

SORT PADA PASCAL

program sorting;
uses crt;
type
    mahasiswa = record
       nama : string [15];
       npm  : string [15];
       kelas: string[15];
       end;

var
 i,j,n : integer ;
 mhs : array [1..15] of mahasiswa;
 siswa : mahasiswa;

 const

    a=('====================================================');

    b=('NPM                   KELAS                     NAMA');

    c=('====================================================');

 procedure input;

 begin

 for i:= 1 to n do

  begin

    with mhs[i] do

     begin

     write(mhs[i].npm:0);

     write(mhs[i].kelas:20);

     write(mhs[i].nama:24);

     writeln;

     end;

  end;

  writeln(a);

 end;

 begin

 clrscr;

 write('jumlah mahasiswa : ');readln(n);

 for i :=1 to n do

 begin

 write('NPM:');readln(mhs[i].npm);

 write('KELAS:');readln(mhs[i].kelas);

 write('NAMA:');readln(mhs[i].nama);

 writeln;

 end;

 write('data semula');

 writeln(' ');

 writeln(a);

 writeln(b);

 writeln(c);

 begin

   input;

   end;

  {bubble sort}
  for i:= 1 to n-1 do
      for j:=i+1 to n do
      begin
      if mhs[i].nama > mhs[j].nama then
          begin
          siswa:=mhs[i];
          mhs[i]:=mhs[j];
          mhs[j]:=siswa;
          end;
       end;

keterangan : coding yg berwarna hijau merupakan coding sort pada pascal

  writeln;

  write('sorting berdasarkan nama');

  writeln(' ');

  writeln(b);

  writeln(a);

  writeln(c);

  begin

   input;

   end;

  writeln;

  write('selesai...');readln;

 readkey;

 end.

   keterangan : ini merupakan output sorting program pada pascal