akhmedB™ Publication's

Laboratorium On-Line MikroTik

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Buat kawan-kawan yang tertarik buat nge-lab RouterOS dengan topology yang cukup besar namun perangkat terbatas, kini anda sudah bisa melakukan kegiatan simulasi secara Online. Semua node router memiliki sistem operasi RouterOS dari <a href="http://www.mikrotik.com/" target="_blank">MikroTik</a>.</div>
<div style="text-align: justify;">
 </div>
<div style="text-align: justify;">
</div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<div style="text-align: justify;">
<div class="separator" style="clear: both;">
</div>
 
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfZLuVs7DMv4lnaDAk4fCAj1Mj6KSol_NlmgfKWJZA0JDnN7weG7faEgxfyDraDqwNoJhZNYhSKp-hgtbD6haQdJGKRhbc8nhQWd2Gfwd0JI7GRvFRDECmujz78ug69tEpPf2egAdNNreS/s1600/MWL_akhmedb.net.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="206" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfZLuVs7DMv4lnaDAk4fCAj1Mj6KSol_NlmgfKWJZA0JDnN7weG7faEgxfyDraDqwNoJhZNYhSKp-hgtbD6haQdJGKRhbc8nhQWd2Gfwd0JI7GRvFRDECmujz78ug69tEpPf2egAdNNreS/s320/MWL_akhmedb.net.png" width="320" /></a></div>
<div class="separator" style="clear: both;">
</div>
 <a href="http://www.astainformatics.com/" target="_blank">ASTA INFORMATICS</a> kini telah menyediakan fasilitas Lab in The Cloud, yang dapat diakses menggunakan software cloud computing dari <a href="http://www.2x.com/" target="_blank">2X</a>. Agar dapat mengakses lab secara Free, kita hanya cukup mendaftar disini : </div>
<div style="text-align: justify;">
</div>
<div style="text-align: justify;">
</div>
<div style="text-align: justify;">
</div>
<div style="text-align: justify;">
</div>
<div style="text-align: justify;">
</div>
<div style="text-align: justify;">
                                                            <a href="http://www.astainformatics.com/" target="_blank">FREE REGISTER</a></div>
<div style="text-align: justify;">
 </div>
<div style="text-align: justify;">
Anda akan diberikan username dan password untuk mengakses portal maksimal 2 x 24 jam setelah register.</div>
<div style="text-align: justify;">
 </div>
<div style="text-align: justify;">
Setelah Itu silahkan download program <a href="http://www.2x.com/rdp-client/" target="_blank">2X Client</a> disini :
</div>
<div style="text-align: justify;">
Windows, Mac, Linux disini : <a href="http://www.2x.com/rdp-client/windows-linux-mac/downloadlinks/" style="background-color: #fbfaf7; color: #551a8b; line-height: 24.566667556762695px; white-space: pre-wrap;" target="_blank">http://www.2x.com/rdp-client/windows-linux-mac/downloadlinks/</a></div>
<div style="text-align: justify;">

iPad dan iPhone disini : <a href="https://itunes.apple.com/us/app/2x-client/id401103105?mt=8" style="background-color: #fbfaf7; color: #551a8b; line-height: 24.566667556762695px; text-align: start; white-space: pre-wrap;" target="_blank">https://itunes.apple.com/us/app/2x-client/id401103105?mt=8</a>
Android disini : <a href="https://play.google.com/store/apps/details?id=com.tux.client" style="background-color: #fbfaf7; color: #551a8b; line-height: 24.566667556762695px; text-align: start; white-space: pre-wrap;" target="_blank">https://play.google.com/store/apps/details?id=com.tux.client</a>
BB Playbook disini : <a href="http://appworld.blackberry.com/webstore/content/124930/?lang=en" style="background-color: #fbfaf7; color: #551a8b; line-height: 24.566667556762695px; text-align: start; white-space: pre-wrap;" target="_blank">http://appworld.blackberry.com/webstore/content/124930/?lang=en</a>
Facebook Apps disini : <a href="https://apps.facebook.com/tuxclient/" style="background-color: #fbfaf7; color: #551a8b; line-height: 24.566667556762695px; text-align: start; white-space: pre-wrap;" target="_blank">https://apps.facebook.com/tuxclient/</a></div>
<div style="text-align: justify;">
 </div>
<div style="text-align: justify;">
Isikan Parameter berikut ini pada Aplikasi 2X Client untuk dapat mengakses portal lab : </div>
<div style="text-align: justify;">
 
</div>
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmioZfi3bqP9H9MSXstp9vk1p8S4_Wf1u0kw8xcRMuVjIktPeksSqQnYlzs775xZRBLQ_hexFNYsSOYCa3IuDa4ExxGfixE22uLX5cNwC5XzYypDqTQQEAiN52OTVddf3btTq0T0QalwEc/s1600/2xcllient+lab+in+the+cloud.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="225" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmioZfi3bqP9H9MSXstp9vk1p8S4_Wf1u0kw8xcRMuVjIktPeksSqQnYlzs775xZRBLQ_hexFNYsSOYCa3IuDa4ExxGfixE22uLX5cNwC5XzYypDqTQQEAiN52OTVddf3btTq0T0QalwEc/s320/2xcllient+lab+in+the+cloud.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: justify;">
 </div>
<div class="separator" style="clear: both; text-align: justify;">
 </div>
<div style="text-align: justify;">
Di menu 2X client : Klik File > Add New 2X Connection Primary server         : lab.astainformatics.com Connection Mode    : Gateway SSL Mode Port                          : 443 isikan username dan password sesuai dengan yang dikirimkan ke email anda. Setelah berhasil login, akan muncul menu aplikasi seperti dibawah ini :</div>
<div style="text-align: justify;">
 </div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<div style="text-align: justify;">
 </div>
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhAumQhKdvndSXnnkXOORYjir6goq3KdUKhyphenhyphenpfOKntHVXD1ATm4XUKKDKjjnJaoQuvNXFVtKEg4x-NL8jFqJZdHd1Hdnl-z1_FaCCLqhgEG-JIcIpEKatTtOcfnTCNR3Uy6E6MdFfSagu-u/s1600/labinthecloud2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="173" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhAumQhKdvndSXnnkXOORYjir6goq3KdUKhyphenhyphenpfOKntHVXD1ATm4XUKKDKjjnJaoQuvNXFVtKEg4x-NL8jFqJZdHd1Hdnl-z1_FaCCLqhgEG-JIcIpEKatTtOcfnTCNR3Uy6E6MdFfSagu-u/s320/labinthecloud2.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<div style="text-align: justify;">
 </div>
<div style="text-align: justify;">
 Untuk Mengakses Node Lab, silahkan gunakan aplikasi yang tertera di menu 2X Client, bisa dengan beberapa metode sbb : 1. Winbox     R1-JKT  : 192.168.0.1 username : admin ; password kosongkan     R2-BDG : 192.168.0.2 username : admin ; password kosongkan     R3-BGR : 192.168.0.3 username : admin ; password kosongkan     R4-SMI : 192.168.0.4 username : admin ; password kosongkan     R5-SMG : 192.168.0.5 username : admin ; password kosongkan     R6-YOG : 192.168.0.6 username : admin ; password kosongkan     R7-SLO : 192.168.0.7 username : admin ; password kosongkan 2. The Dude, setiap node bisa diakses langsung dengan cara Klik Kanan > Winbox 3. RDP digunakan untuk mengakses PC1 dan PC2 (Windows XP)      PC1 : 192.168.0.8 username : PC-Lab ; password : mikrotik      PC2 : 192.168.0.8 username : PC-Lab ; password : mikrotik lingkungan lab masih sangat terbatas. Dalam satu hari, simulator ini hanya dapat diakses oleh maksimal 5 user yang dipakai bersamaan dan dibagi 2 kelompok, yaitu : Shift I ( 06.30 s.d 18.00 WIB ) dan Shift II ( 18.30 sd 06.00 WIB ) TIPS :</div>
<blockquote class="tr_bq">
<div style="text-align: justify;">
Sesama user yang sedang login pada Shift yang sama, diharapkan dapat berkoordinasi dan berkomunikasi untuk melakukan kegiatan nge-lab bersama menggunakan software <a href="http://www.teamspeak.com/?page=downloads" target="_blank">TeamSpeak</a>. Anda dapat berinteraksi dengan user lain melalui chat dan voice. Petunjuknya akan didapatkan di email yang dikirimkan bersama usename dan password.</div>
</blockquote>
<div style="text-align: justify;">
 PENTING !! Jika diperlukan untuk mengulang konfigurasi lab di lain waktu, silahkan backup konfigurasi anda melalui files backup di terminal atau Winbox dan save di komputer anda. SELAMAT NGE-LAB==>> hosted by Asta Informatics  Join Juga di group <a href="http://www.facebook.com/groups/apmindo/" target="_blank">Asosiasi Professional Mikrotik Indonesia (APMINDO) </a></div>
<div style="text-align: justify;">
 </div>
<div style="text-align: justify;">
  </div>
</div>

Buat kawan-kawan yang tertarik buat nge-lab RouterOS dengan topology yang cukup besar namun perangkat terbatas, kini anda sudah bisa melak...

Selengkapnya . . . >>

Tugas UAS SIM (Sistem Informasi Manajemen) Yudharta Pasuruan

04.13 Unknown 0

<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
1.
Apa yang dimaksud sistem informasi terstruktur dan tidak terstruktur? Berikan
contohnya!</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Sistem
informasi terstruktur adalah sistem informasi yang
berjalan diatas norma-norma organisasi yang berlaku untuk semua, yang sesuai
dengan kedudukan/jabatannya masing-masing di dalam organisasi. </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Contoh :
Informasi kenaikan gaji</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Sistem
informasi tidak terstruktur adalah sistem-sistem yang
berlaku di suatu lingkungan organisasi secara tidak formal, namun tetap
mengikat dan berpengaruh pada organisasi yang bersangkutan tersebut.</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Contoh :
Surat izin tidak masuk kuliah</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
2.
Jelaskan aktivitas-aktivitas manajemen yang terdapat di dalam:</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
   
a. Pengendalian Operasional</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
   
b. Pengendalian Manajemen</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
   
c. Perencanaan Strategis</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Aktivitas-aktivitas
manajemen yang terdapat di dalam pengendalian operasional adalah: Membuat dan memelihara prosedur terdokumentasi untuk menangani
situasi dimana ketiadaannya dapat menyebabkan deviasi dari kebijakan dan tujuan
dan sasaran lingkungan; Menetapkan kriteria operasi dalam prosedur; Membuat dan
memelihara prosedur yang terkait dengan aspek penting lingkungan yang
teridentifikasi dari barang dan jasa yang digunakan organisasi dan
mengkomunikasikan prosedur dan persyaratan terkait kepada pemasok dan
kontraktor.</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Aktivitas-aktivitas
manajemen yang terdapat di dalam pengendalian manajemen adalah: mengukur prestasi, memutuskan tindakan pengendalian, merumuskan
aturan keputusan baru untuk ditetapkan personalia operasional dan
mengalokasikan sumber daya.</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Aktivitas-aktivitas
manajemen yang terdapat di dalam perancangan strategi adalah mengembangkan strategi sebagai sarana suatu organisasi untuk
mencapai tujuannya.</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
3.
Jelaskan proses dalam pengontrolan informasi!</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Proses
yang ada di dalam pengontrolan informasi adalah
sebagai berikut:</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Semua
data yang diperoleh dikumpulkan menjadi satu dan selanjutnya diproses. Di dalam
pemrosesan tersebut data dibedakan menjadi 2, yaitu informasi yang berguna dan
informasi yang tidak berguna. Informasi yang berguna itulah yang nantinya akan
dipakai, sedangkan informasi yang tidak berguna akan dibuang.</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
4.
Apa yang dimaksud evolusi dan aplikasi sistem informasi berbasis computer
(CBIS)? Jelaskan!</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Yang
dimaksud dengan evolusi dan aplikasi CBIS adalah bahwa suatu sistem
informasi manajemen tidak serta merta langsung menjadi suatu sistem yang bisa
digunakan, melainkan ada tahapan-tahapan yang harus dilalui untuk menghimpun,
menyimpan dan memproses data dari terciptanya sistem yang mengelola data
tersebut menjadi sebuah informasi dan dari informasi tersebut terciptalah
sistem pendukung keputusan berupa EDP, SIM dan DSS.</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
5.
Apa beda EDP, DSS dan SIM? Jelaskan!</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Perbedaan
EDP, SIM dan DSS:</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
EDP:</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
a. Fokus
pada data</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
b. Proses
transaksi yang efisien</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
c.
Mengintegrasi file-file dari pekerjaan sejenis</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
d.
Membuat ringkasan untuk laporan bagi manajemen</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
SIM:</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
a.
Mendukung pengambilan keputusan yang bersifat terstruktur pada level
operasional dan manajemen</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
b.
Umumnya SIM berorientasi pada laporan dan pengawasan. SIM didesain untuk
membantu membuat laporan kegiatan yang ada serta menyediakan pengawasan harian
terhadap kegiatan tersebut</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
c. SIM
bergantung pada data gabungan dan alur data</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
d. SIM
tidak terlalu memiliki kemampuan analisis</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
e.
Umumnya digunakan untuk mengambil keputusan dengan menggunakan data masa lalu
dan kini</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
f.
Relatif tidak fleksibel dan lebih memiliki orientasi internal daripada
eksternal</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
DSS:</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
a. DSS
menawarkan fleksibilitas, adaptabilitas dan respon yang cepat</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
b. DSS
dapat bekerja dengan hanya mengandalkan sedikit bantuan bahkan tanpa bantuan
seorang programmer</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
c. DSS
menyediakan bantuan untuk pengambilan keputusan dan masalah yang jalan
keluarnya tidak dapat dispesifikasi</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
d. DSS
menggunakan peralatan dan model analisis data yang mutakhir</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
6.
Jelaskan tentang keamanan sistem informasi? Ancaman apa saja yang ada di
dalamnya?</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Keamanan
sistem informasi mengacu pada perlindungan
terhadap semua sumber daya informasi perusahaan dari ancaman pihak-pihak yang
tidak berwenang.</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Ancaman
terhadap keamanan sistem informasi antara
lain:</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
a.
Kerusakan hardware</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
b.
Software tidak berfungsi</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
c.
Tindakan-tindakan personal</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
d.
Pencurian data atau peralatan</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
e.
Kebakaran</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
f.
Permasalahan listrik</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
g.
Kesalahan oleh user</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
h. dan
masih banyak lagi yang lainnya.</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
7.
Sebutkan proses dan kerangka kerja dalam pengambilan keputusan keorganisasian!</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Proses
dalam pengambilan keputusan keorganisasian
(menurut Rubeinstein dan Haberstroh): </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
a.
Pengenalan persoalan atau kebutuhan</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
b.
Analisis dan laporan alternatif-alternatif</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
c.
Pemilihan alternatif yang ada</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
d.
Komunikasi dan pelaksanaan keputusan</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
e.
Langkah lanjutan dan umpan balik hasil keputusan</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Kerangka
kerja dalam pengambilan keputusan keorganisasian:</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
a. Sistem
pengambilan keputusan</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
   
- Sistem keputusan tertutup</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
   
- Sistem keputusan terbuka</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
b. Pengetahuan
tentang hasil</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
c.
Tanggapan keputusan</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
   
- Keputusan terprogram</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
   
- Keputusan tidak terprogram</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
d. Uraian
tentang pengambilan keputusan</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
e.
Kriteria untuk pengambilan keputusan</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
f.
Relevansi konsep keputusan terhadap perancangan SIM</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
8.
Mengapa etika dalam komputer itu penting? Jelaskan!</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Etika
dalam komputer penting karena tidak dapat dipisahkan dari
permasalahan-permasalahan seputar penggunaan komputer yang meliputi kejahatan
komputer, netiket, e-commerce, pelanggaran HAKI (Hak Atas Kekayaan Intelektual)
dan tanggung jawab profesi.</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Nama        : Akhmad Barizi</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
NIM           : 2010.69.04.0025</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Kelas        : A</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Fakultas   : Teknik Informatika</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Study        : SIM (Sistem Informasi Manajemen)</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Semester : IV</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; margin-bottom: 0.0001pt; text-align: justify;">
Dosen        : Khasan Basori, S.Kom, MM</div>
<div style="font-family: Arial,Helvetica,sans-serif; text-align: justify;">
 
</div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; line-height: normal; text-align: justify;">
 </div>
<div class="MsoNormal" style="font-family: Arial,Helvetica,sans-serif; text-align: justify;">
 </div>

Artikel Kuliah Latihan sinau Study Tutorial Tugas UAS SIM (Sistem Informasi Manajemen) Yudharta Pasuruan

1. Apa yang dimaksud sistem informasi terstruktur dan tidak terstruktur? Berikan contohnya! Sistem informasi terstruktur adalah sistem...

Selengkapnya . . . >>

Mengenai Array Dengan Pascal

16.41 Unknown 0

<div dir="ltr" style="text-align: left;" trbidi="on">Bab 4 Array  
Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.  
Contoh:  
Var  
Untai : array[1..50] of Integer;  
Pada contoh Array dengan nama untai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 50 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.  
 
Contoh Program :  
 
<blockquote>Program Contoh_Array_Input; Uses Crt; Var Bilangan : array[1..50] of Integer; Begin ClrScr; Bilangan[1]:=3; Bilangan[2]:=29; Bilangan[3]:=30; Bilangan[4]:=31; Bilangan[5]:=23; Writeln('nilai varibel bilangan ke 3 =',Bilangan[3]); Readln; End. </blockquote> 
Array juga dapat dideklarasikan bersama dengan tipe yang beragam seperti contoh dibawah ini :  
 
<blockquote>Program Contoh_Deklarasi_Array_Beragam; Uses Crt; Var NPM : array[1..20] of string[10]; Nama : array[1..20] of string[25]; Nilai : array[1..20] of real; Umur : array[1..20] of byte; banyak,i : integer; Begin ClrScr; Write('Isi berapa data array yang diperlukan :');Readln(banyak); For i := 1 to banyak Do Begin Write('NPM =');Readln(NPM[i]); Write('Nama =');readln(Nama[i]); Write('Nilai=');readln(Nilai[i]); Write('Umur =');readln(Umur[i]); End; {cetak varibel array} Writeln('NPM NAMA NILAI UMUR '); For i:= 1 to banyak Do Begin Writeln(Npm[i]:10,Nama[i]:25,Nilai[i]:3:2,' ',Umur[i]:3); End; Readln; End. </blockquote> 
Untuk deklarasi array dapat digunakan beberapa cara seperti berikut ini :  
 
<blockquote>Type Angka = String[20]; Var Nama : Array [1..50] of Angka; Begin . . End. </blockquote> 
Deklarasi tipe indeks subrange integer Indeks pada array dapat tipe skalar atau subrange, tetapi tidak bisa real.  
Contoh:  
Var  
Nilai : Array[1..10] of Integer;  
pada contoh ini array nilai mempunyai 10 buah elemen yaitu dari 1 sampai 10. Array tersebut dapat dideklarasikan dengan type seperti berikut ini :  
 
Type  
Skala = 1..10;  
Var  
Nilai : Array [skala] of Integer;  
atau :  
Type  
Skala = 1..10;  
Y = Array[skala] of Integer;  
Var  
Nilai : Y;  
atau :  
Type  
Y = Array[1..10] of Integer;  
Var  
Nilai : Y;  
atau :  
Const  
Atas =1;  
Bawah = 5;  
type  
Y = Array[Atas..Bawah] of Integer;  
Var  
Nilai : Y;  
 
I. Deklarasi Type Indeks Skalar  
Indeks dari larik dapat berupa tipe skalar.  
Contoh. :  
 
<blockquote>Program Deklarasi_Indeks_Array_Skalar; Uses Crt; Var Jum : Array[(jan,feb,mar,apr,mei)] of Integer; Begin Jum[jan]:=25; Jum[feb]:=45; Jum[mar]:=21; Jum[apr]:=23; Jum[mei]:=50; Writeln('Jumlah nilai bulan maret =',Jum[mar]); Readln; End. </blockquote> dapat juga ditulis :  
 
<blockquote>type Bln = (jan,feb,mar,apr,mei); Var Jum : Array[bln] of Integer; atau : type Bln =(jan,feb,mar,apr,mei); Var Jum : Array[jan..mei] of Integer;</blockquote> 
II. Deklarasi Konstanta Array  
Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi variabel, tetapi dapat juga berupa konstanta (const).  
Contoh Program :  
 
<blockquote>Program Contoh_Deklarasi_Array_Konstan; Uses Crt; Const Tetap : Array[1..4] of Integer=(7,10,21,20); Var i : Integer; Begin For i:= 1 to 4 Do Writeln('Nilai Konstan array ke ',i:2,' =',Tetap[i]); Readln; End. </blockquote> konstanta array dapat juga berupa ketetapan dalam bentuk karakter seperti berikut.  
Contoh Program :  
 
<blockquote>Program Contoh_Konstan_Array_Char_; Uses Crt; Const Huruf : Array[0..5] of Char=('A','B','C','D','E','F'); Var i : Integer; Begin For i:= 0 to 5 Do Writeln('Nilai konstan array ke',i:2,' = ',Huruf[i]); Readln; End. </blockquote> Konstanta array dapat juga berupa string seperti berikut ini.  
Contoh Program :  
 
<blockquote>Program Constanta_Array_String; Uses Crt; Type A = Array [1..5] of String; Const Nama : A = ('basic','pascal','cobol','paradox','dbase'); Var i : Integer; Begin For i:= 1 to 5 Do Writeln('Nilai Array ke-',i:2,'= ',Nama[i]); readln; end. </blockquote> 
Dalam pascal string merupakan array dari elemen- elemen karakter seperti berikut :  
Contoh Program :  
 
<blockquote>Program String_Adalah_Array_Tipe_Char; Uses Crt; Var Nama : string; i : Integer; Begin Nama:='Turbo Pascal'; For i:= 1 to Length(nama) Do Writeln('Elemen ',i,' dari ',Nama,'= ',Nama[i]); Readln; End. </blockquote> 
contoh program bilangan prima dengan menggunakan bantuan array.  
Contoh program :  
 
<blockquote>Program Mencari_Bilangan_Prima_Dengan_Array; Uses Crt; Var Prima : Array[1..100] of Integer; i,j : Integer; bil : Integer; Begin ClrScr; For i := 2 to 100 Do Begin Prima[i]:=i; For j:= 2 to i-1 Do Begin bil := (i mod j); {* i dibagi j dicek apakah 0*} If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*} End; If Prima[i]<> 0 Then Write(Prima[i],' '); {*cetak array yg prima*} End; Readln; End. </blockquote> 
Contoh pengurutan data dengan metode buble sort, yaitu dengan cara penukaran, dapat dilihat pada contoh dibawah ini :  
Contoh Program :  
 
<blockquote>Program Penggunaan_Array_Untuk_Sortir_Buble_Sort; Uses Crt; Var nil1 : Array[1..100] of Integer; n,i,j,dum : Integer; Begin ClrScr; Write('mau isi berapa data acak (integer) ='); readln(n); For i := 1 to n Do Begin Write('Data Ke ',i,':');Readln(nil1[i]); End; {* penyapuan proses} for i:= 1 to n-1 do begin for j:= i to n do begin if nil1[j]<nil1[i] <br="" then="">begin  
dum:=nil1[j];  
nil1[j]:=nil1[i];  
nil1[i]:=dum;  
end;  
end;  
end;  
writeln;  
writeln('Hasil Sortir');  
for i := 1 to n do  
write(nil1[i]:3);  
readln;  
end.  
 
 
III. Array Dua Dimensi  
Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.  
1 2  
1 2 3  
Untuk mengetahui cara mendeklarasikan dari penggunaan aray dua dimensi dapat dilihat pada listing program dibawah ini .  
 
Contoh Program:  
</nil1[i]> 
<blockquote><nil1[i] <br="" then="">Program Deklarasi_Array_Dua_Dimensi; </nil1[i]><nil1[i] <br="" then="">Uses Crt;</nil1[i]><nil1[i] <br="" then="">Var Tabel : Array[1..3,1..2] of Integer;</nil1[i]><nil1[i] <br="" then="">i,j : Integer;</nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">ClrScr; </nil1[i]><nil1[i] <br="" then="">Tabel[1,1]:=1; </nil1[i]><nil1[i] <br="" then="">Tabel[1,2]:=2; </nil1[i]><nil1[i] <br="" then="">Tabel[2,1]:=3; </nil1[i]><nil1[i] <br="" then="">Tabel[2,2]:=4; </nil1[i]><nil1[i] <br="" then="">Tabel[3,1]:=5; </nil1[i]><nil1[i] <br="" then="">Tabel[3,2]:=6; </nil1[i]><nil1[i] <br="" then="">For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]); </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">Readln; </nil1[i]><nil1[i] <br="" then="">End. </nil1[i]></blockquote><nil1[i] <br="" then=""> 
 
IV. Alternatif Deklarasi Array Dua Dimensi.  
Ada beberapa cara dalam mendeklarasikan array dua dimensi, beberapa cara tersebut dapat dilihat dibawah ini :  
Contoh :  
</nil1[i]> 
<blockquote><nil1[i] <br="" then="">Var </nil1[i]><nil1[i] <br="" then="">Tabel : Array[1..3] of Array[1..2] of Byte; </nil1[i]><nil1[i] <br="" then="">atau : </nil1[i]><nil1[i] <br="" then="">Type </nil1[i]><nil1[i] <br="" then="">Matrik = Array[1..3,1..2] of Byte; </nil1[i]><nil1[i] <br="" then="">Var </nil1[i]><nil1[i] <br="" then="">Tabel : Matrik; </nil1[i]><nil1[i] <br="" then="">atau : </nil1[i]><nil1[i] <br="" then="">Type </nil1[i]><nil1[i] <br="" then="">Baris = 1..3; </nil1[i]><nil1[i] <br="" then="">Kolom = 1..2; </nil1[i]><nil1[i] <br="" then="">Matrik = Array[Baris,Kolom] of Byte; </nil1[i]><nil1[i] <br="" then="">Var </nil1[i]><nil1[i] <br="" then="">Tabel : Matrik; </nil1[i]><nil1[i] <br="" then="">atau : </nil1[i]><nil1[i] <br="" then="">Type </nil1[i]><nil1[i] <br="" then="">Baris = 1..3; </nil1[i]><nil1[i] <br="" then="">Kolom=1..2; </nil1[i]><nil1[i] <br="" then="">Matrik= Array[Baris] of Array[Kolom] of Byte; </nil1[i]><nil1[i] <br="" then="">Var </nil1[i]><nil1[i] <br="" then="">Tabel : Matrik; </nil1[i]><nil1[i] <br="" then="">Dibawah ini akan diberikan listing program penggunaan array dua dimensi dalam aplikasi penjumlahan matrik : </nil1[i]><nil1[i] <br="" then="">Contoh Prorgam: </nil1[i]><nil1[i] <br="" then="">Program Penjumlahan_Matrik; </nil1[i]><nil1[i] <br="" then="">Uses Crt; </nil1[i]><nil1[i] <br="" then="">Var </nil1[i]><nil1[i] <br="" then="">Matrik1,Matrik2, Hasil : Array[1..3,1..2] of Integer; </nil1[i]><nil1[i] <br="" then="">i,j : Integer; </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">ClrScr; </nil1[i]><nil1[i] <br="" then="">{ input matrik ke satu } </nil1[i]><nil1[i] <br="" then="">Writeln(' Elemen matrik satu'); </nil1[i]><nil1[i] <br="" then="">For i := 1 to 3 Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">For j := 1 to 2 Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Write('Elemen baris -',i,' Kolom -',j,'= '); </nil1[i]><nil1[i] <br="" then="">Readln(matrik1[i,j]); </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">{input matrik ke dua} </nil1[i]><nil1[i] <br="" then="">Writeln('input elemen matrik dua'); </nil1[i]><nil1[i] <br="" then="">For i:= 1 to 3 Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">For j:= 1 to 2 Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Write('Elemen baris -',i,' kolom -',j,'= '); </nil1[i]><nil1[i] <br="" then="">Readln(matrik2[i,j]); </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">{proses penjumlahan tiap elemen} </nil1[i]><nil1[i] <br="" then="">For i := 1 to 3 Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">For j:= 1 to 2 Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Hasil[i,j]:=Matrik1[i,j]+Matrik2[i,j]; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">{proses cetak hasil} </nil1[i]><nil1[i] <br="" then="">For i:= 1 to 3 Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">For j:= 1 to 2 Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Write(Hasil[i,j]:6); </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">Writeln; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">Readln; </nil1[i]><nil1[i] <br="" then="">End. </nil1[i]></blockquote><nil1[i] <br="" then=""> 
 
V. Array Sebagai Parameter  
Array dapat digunakan sebagai parameter yang dikirimkan baik secara nilai (by value) atau secara acuan (by reference) ke procedure atau ke function. Procedure yang menggunakan parameter berupa array harus dideklarasikan di dalam judul procedure yang menyebutkan parameternya bertipe array.  
 
Contoh Program :  
</nil1[i]> 
<blockquote><nil1[i] <br="" then="">Program Contoh_Pengiriman_Parameter_Array_Di_Procedure; </nil1[i]><nil1[i] <br="" then="">Uses Crt; </nil1[i]><nil1[i] <br="" then="">Const </nil1[i]><nil1[i] <br="" then="">Garis ='---------------------------------------------------'; </nil1[i]><nil1[i] <br="" then="">Type </nil1[i]><nil1[i] <br="" then="">Untai = Array[1..10] of String[15]; </nil1[i]><nil1[i] <br="" then="">Bulat = Array[1..10] of Integer; </nil1[i]><nil1[i] <br="" then="">Huruf = Array[1..10] of Char; </nil1[i]><nil1[i] <br="" then="">Var </nil1[i]><nil1[i] <br="" then="">i,Banyak : Integer; </nil1[i]><nil1[i] <br="" then="">Procedure Proses(Nama:Untai;Nilai:Bulat); </nil1[i]><nil1[i] <br="" then="">Var </nil1[i]><nil1[i] <br="" then="">Ket : String; </nil1[i]><nil1[i] <br="" then="">Abjad : Char; </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Writeln(Garis); </nil1[i]><nil1[i] <br="" then="">Writeln('Nama Nilai Abjad Keterangan'); </nil1[i]><nil1[i] <br="" then="">Writeln(Garis); </nil1[i]><nil1[i] <br="" then="">For i := 1 to Banyak Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">If Nilai[i] > 90 Then </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Abjad:='A'; </nil1[i]><nil1[i] <br="" then="">Ket :='Istimewa'; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">If (Nilai[i]<90) And (Nilai[i]>70) Then </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Abjad:='B'; </nil1[i]><nil1[i] <br="" then="">Ket :='Memuaskan'; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">If (Nilai[i]<70) And (Nilai[i]>60) Then </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Abjad:='C'; </nil1[i]><nil1[i] <br="" then="">Ket :='Cukup'; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">If (Nilai[i]<60) And (Nilai[i]>45) Then </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Abjad:='D'; </nil1[i]><nil1[i] <br="" then="">Ket :='Kurang'; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">If Nilai[i]< 45 Then </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Abjad:='E'; </nil1[i]><nil1[i] <br="" then="">Ket :='Sangat kurang'; </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">Writeln(Nama[i]:15,' ',Nilai[i]:4,' ',Abjad,' ',Ket:15); </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">Writeln(Garis); </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">Procedure Masuk_Data; </nil1[i]><nil1[i] <br="" then="">Var </nil1[i]><nil1[i] <br="" then="">Nama : Untai; </nil1[i]><nil1[i] <br="" then="">Nilai : Bulat; </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Write('Banyak data =');Readln(Banyak); </nil1[i]><nil1[i] <br="" then="">For i:= 1 to Banyak Do </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">ClrScr; </nil1[i]><nil1[i] <br="" then="">Writeln('Data ke - ',i); </nil1[i]><nil1[i] <br="" then="">Write('Nama =');readln(Nama[i]); </nil1[i]><nil1[i] <br="" then="">Write('Nilai =');readln(Nilai[i]); </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">Proses(Nama,Nilai); </nil1[i]><nil1[i] <br="" then="">End; </nil1[i]><nil1[i] <br="" then="">{modul Utama} </nil1[i]><nil1[i] <br="" then="">Begin </nil1[i]><nil1[i] <br="" then="">Masuk_Data; </nil1[i]><nil1[i] <br="" then="">Readln; </nil1[i]><nil1[i] <br="" then="">End. </nil1[i]></blockquote><nil1[i] <br="" then=""> Referensi : 
# Lepkom Universitas Gunadarma. 
# Dasar-dasar Pemrograman Pascal, Teori dan Program terapan , Ir.P. Insap Santosa, M.Sc.</nil1[i]><nil1[i] <br="" then="">dum:=nil1[j]; </nil1[i]><nil1[i] <br="" then="">nil1[j]:=nil1[i]; </nil1[i]><nil1[i] <br="" then="">nil1[i]:=dum; </nil1[i]><nil1[i] <br="" then="">end; </nil1[i]><nil1[i] <br="" then="">end; </nil1[i]><nil1[i] <br="" then="">end; </nil1[i]><nil1[i] <br="" then="">writeln; </nil1[i]><nil1[i] <br="" then="">writeln('Hasil Sortir'); </nil1[i]><nil1[i] <br="" then="">for i := 1 to n do </nil1[i]><nil1[i] <br="" then="">write(nil1[i]:3); </nil1[i]><nil1[i] <br="" then="">readln; </nil1[i]><nil1[i] <br="" then="">end. </nil1[i]></blockquote><nil1[i] <br="" then=""> 
 
III. Array Dua Dimensi  
Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.  
1 2  
1 2 3  
Untuk mengetahui cara mendeklarasikan dari penggunaan aray dua dimensi dapat dilihat pada listing program dibawah ini .  
 
Contoh Program:  
Program Deklarasi_Array_Dua_Dimensi;  
Uses Crt; 
Var Tabel : Array[1..3,1..2] of Integer; 
i,j : Integer; 
Begin  
ClrScr;  
Tabel[1,1]:=1;  
Tabel[1,2]:=2;  
Tabel[2,1]:=3;  
Tabel[2,2]:=4;  
Tabel[3,1]:=5;  
Tabel[3,2]:=6;  
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]);  
End;  
End;  
Readln;  
End.  
 
 
IV. Alternatif Deklarasi Array Dua Dimensi.  
Ada beberapa cara dalam mendeklarasikan array dua dimensi, beberapa cara tersebut dapat dilihat dibawah ini :  
Contoh :  
Var  
Tabel : Array[1..3] of Array[1..2] of Byte;  
atau :  
Type  
Matrik = Array[1..3,1..2] of Byte;  
Var  
Tabel : Matrik;  
atau :  
Type  
Baris = 1..3;  
Kolom = 1..2;  
Matrik = Array[Baris,Kolom] of Byte;  
Var  
Tabel : Matrik;  
atau :  
Type  
Baris = 1..3;  
Kolom=1..2;  
Matrik= Array[Baris] of Array[Kolom] of Byte;  
Var  
Tabel : Matrik;  
Dibawah ini akan diberikan listing program penggunaan array dua dimensi dalam aplikasi penjumlahan matrik :  
Contoh Prorgam:  
Program Penjumlahan_Matrik;  
Uses Crt;  
Var  
Matrik1,Matrik2, Hasil : Array[1..3,1..2] of Integer;  
i,j : Integer;  
Begin  
ClrScr;  
{ input matrik ke satu }  
Writeln(' Elemen matrik satu');  
For i := 1 to 3 Do  
Begin  
For j := 1 to 2 Do  
Begin  
Write('Elemen baris -',i,' Kolom -',j,'= ');  
Readln(matrik1[i,j]);  
End;  
End;  
{input matrik ke dua}  
Writeln('input elemen matrik dua');  
For i:= 1 to 3 Do  
Begin  
For j:= 1 to 2 Do  
Begin  
Write('Elemen baris -',i,' kolom -',j,'= ');  
Readln(matrik2[i,j]);  
End;  
End;  
{proses penjumlahan tiap elemen}  
For i := 1 to 3 Do  
Begin  
For j:= 1 to 2 Do  
Begin  
Hasil[i,j]:=Matrik1[i,j]+Matrik2[i,j];  
End;  
End;  
{proses cetak hasil}  
For i:= 1 to 3 Do  
Begin  
For j:= 1 to 2 Do  
Begin  
Write(Hasil[i,j]:6);  
End;  
Writeln;  
End;  
Readln;  
End.  
 
 
V. Array Sebagai Parameter  
Array dapat digunakan sebagai parameter yang dikirimkan baik secara nilai (by value) atau secara acuan (by reference) ke procedure atau ke function. Procedure yang menggunakan parameter berupa array harus dideklarasikan di dalam judul procedure yang menyebutkan parameternya bertipe array.  
 
Contoh Program :  
Program Contoh_Pengiriman_Parameter_Array_Di_Procedure;  
Uses Crt;  
Const  
Garis ='---------------------------------------------------';  
Type  
Untai = Array[1..10] of String[15];  
Bulat = Array[1..10] of Integer;  
Huruf = Array[1..10] of Char;  
Var  
i,Banyak : Integer;  
Procedure Proses(Nama:Untai;Nilai:Bulat);  
Var  
Ket : String;  
Abjad : Char;  
Begin  
Writeln(Garis);  
Writeln('Nama Nilai Abjad Keterangan');  
Writeln(Garis);  
For i := 1 to Banyak Do  
Begin  
If Nilai[i] > 90 Then  
Begin  
Abjad:='A';  
Ket :='Istimewa';  
End;  
If (Nilai[i]<90) And (Nilai[i]>70) Then  
Begin  
Abjad:='B';  
Ket :='Memuaskan';  
End;  
If (Nilai[i]<70) And (Nilai[i]>60) Then  
Begin  
Abjad:='C';  
Ket :='Cukup';  
End;  
If (Nilai[i]<60) And (Nilai[i]>45) Then  
Begin  
Abjad:='D';  
Ket :='Kurang';  
End;  
If Nilai[i]< 45 Then  
Begin  
Abjad:='E';  
Ket :='Sangat kurang';  
End;  
Writeln(Nama[i]:15,' ',Nilai[i]:4,' ',Abjad,' ',Ket:15);  
End;  
Writeln(Garis);  
End;  
Procedure Masuk_Data;  
Var  
Nama : Untai;  
Nilai : Bulat;  
Begin  
Write('Banyak data =');Readln(Banyak);  
For i:= 1 to Banyak Do  
Begin  
ClrScr;  
Writeln('Data ke - ',i);  
Write('Nama =');readln(Nama[i]);  
Write('Nilai =');readln(Nilai[i]);  
End;  
Proses(Nama,Nilai);  
End;  
{modul Utama}  
Begin  
Masuk_Data;  
Readln;  
End.  
Referensi : 
# Lepkom Universitas Gunadarma. 
# Dasar-dasar Pemrograman Pascal, Teori dan Program terapan , Ir.P. Insap Santosa, M.Sc.</nil1[i]></div>

Pemograman Mengenai Array Dengan Pascal

Bab 4 Array Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen te...

Selengkapnya . . . >>

Laboratorium On-Line MikroTik

Tugas UAS SIM (Sistem Informasi Manajemen) Yudharta Pasuruan

Mengenai Array Dengan Pascal

[Widget_title][horizontal][animated][7]