R2 Blog

Cara Membuat WiFi LAPTOP menjadi HOTSPOT dengan CMD (Command Prompt)

Unknown March 20, 2014 Tutorial Jaringan

<div dir="ltr" style="text-align: left;" trbidi="on">
Membuat HOTSPOT Access Point dengan Topologi Infrastruktur menggunakan 
WiFi LAPTOP dalam 1 LANGKAH Mudah & Cepat = 1 detik, 1 Baris!<br />
<br />
Fitur:<br />
1) Access Point = YES!<br />
2) Repeater = YES!<br />
3) Custom = YES!<br />
4) Programmable = YES! <br />
<br />
Tanpa Bayar/Gratis,<br />
Tanpa Download<br />
Tanpa Software<br />
Tanpa Driver Emulasi<br />
Apa adanya<br />
<br />
Cara Singkat :<br />
<br />
1. ketik di CMD sebagai berikut :<br />
netsh wlan set hostednetwork mode=allow ssid="kaskus hotspot" key=selamatdatang & netsh     wlan start hostednetwork<br />
<br />
2. Untuk mematikan hotspot:<br />
netsh wlan stop hostednetwork<br />
<br />
----------------oo0oo----------------<br />
Untuk Detilnya Silakan Simak Paparan di Bawah Ini<br />
<br />
<br />
<br />
Cara membuat Hotspot :<br />
1. Buka Comand Prompt dengan klik key Windows + R, lalu isi dengan nama CMD, lalu enter<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEigFQkfKjdcqgTT1oVBWPYEqYzOPcCuDD95jiKV493stj7JJi0yj-Jy9eI61ALbTpapEkXQsbX6XQzNBKfuU9RL3OzrmGDGO0wOMW-TvGyx4jTOoYqCs6viDp0dzfdKf-Vj7xxlepwAO1g/s1600/1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEigFQkfKjdcqgTT1oVBWPYEqYzOPcCuDD95jiKV493stj7JJi0yj-Jy9eI61ALbTpapEkXQsbX6XQzNBKfuU9RL3OzrmGDGO0wOMW-TvGyx4jTOoYqCs6viDp0dzfdKf-Vj7xxlepwAO1g/s1600/1.png" /></a></div>
<br />
<br />
<br />
<br />
2. dalam Command prompt ketikan : netsh wlan set hostednetwork mode=allow ssid="kaskus hotspot" key=selamatdatang<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRIQ4NJGFpONS3PF8FLPESH_m3IUBHSIauJrgeYRMP9gO-22k9gmMc2Icwac8aDhHvFM03S-iIKbtNckmPkUsGzXS3Zz4BUFwCu7QS_tNDsEw-KIS07yY-Vuz9hgMPdla66NZI3Zz59nw/s1600/2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRIQ4NJGFpONS3PF8FLPESH_m3IUBHSIauJrgeYRMP9gO-22k9gmMc2Icwac8aDhHvFM03S-iIKbtNckmPkUsGzXS3Zz4BUFwCu7QS_tNDsEw-KIS07yY-Vuz9hgMPdla66NZI3Zz59nw/s1600/2.png" /></a></div>
<br />
<br />
<br />
3. dalam tahap ini infraktruktur hotspot udah jadi<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzcgPSrvu4qCVR214SrPxnsHis2EYB-CDhy6X2B9s54PreWrMB4CVbKnaqcKT4O8r-Qr5Y-ETw5TkTJMxk8ZH6jN2a1hN4VmK0rVVMphRM7Zk4tqjwbbSuDe-5lyJx_-w0IsJCcF3e03A/s1600/3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzcgPSrvu4qCVR214SrPxnsHis2EYB-CDhy6X2B9s54PreWrMB4CVbKnaqcKT4O8r-Qr5Y-ETw5TkTJMxk8ZH6jN2a1hN4VmK0rVVMphRM7Zk4tqjwbbSuDe-5lyJx_-w0IsJCcF3e03A/s1600/3.png" /></a></div>
<br />
<br />
<br />
<br />
Membuat INTERNET Berbagi<br />
1. Buka Control Panel\Network and Connection\Network Connection<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxBI7SYgH0PHEpNj6jTn83TLGw6WDOrhKcM1Ll5q1wMq-SJhrLPk9AfDcbV_8jx3THP2rZPK3rxR1dl4CdJW0pIM59pc43V_cf9FSGmpIJBQAT9j2tUAYDFRLG95ibu2cMQew-NmZAC4U/s1600/4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxBI7SYgH0PHEpNj6jTn83TLGw6WDOrhKcM1Ll5q1wMq-SJhrLPk9AfDcbV_8jx3THP2rZPK3rxR1dl4CdJW0pIM59pc43V_cf9FSGmpIJBQAT9j2tUAYDFRLG95ibu2cMQew-NmZAC4U/s1600/4.png" /></a></div>
<br />
<br />
<br />
2. Pilih dimana koneksi internet yang akan dibagi, misal disini:Local Are Network > Klik Kanan > Properties<br />
1) Pilih Tab: Sharing<br />
2) Centang: Allow other network...<br />
3)
 Pada bagian Home Networking connection, pilih: Microsoft Virtual Wifi 
Miniport Adapter* kalo profile bisa saja: "Wireless Network Connection 
2" atau yg lain yg penting adapternya = "Microsoft Virtual Wifi Miniport
 Adapter" > basa dilihat diproperti koneksi.<br />
3. OK<br />
4. 
Pilih:Microsoft Virtual Wifi Miniport Adapter* kl profile bisa saja: 
"Wireless Network Connection 2" atau yg lain yg penting adapternya = 
"Microsoft Virtual Wifi Miniport Adapter" > bisa dilihat diproperti 
koneksi.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKtLjZDvOC62rPc6gI8zOTvR7MwzT1W34W3NmdgxVEx3PBL1Zg3Ex7yB9TYHm6EwYMPgq4OcQrDC7BNAOAvAOq2vMRdxPVKdQ85oZbIn87TB3EpKEh3_VjrZvNusiVxyo-XB48P-yjpTM/s1600/5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKtLjZDvOC62rPc6gI8zOTvR7MwzT1W34W3NmdgxVEx3PBL1Zg3Ex7yB9TYHm6EwYMPgq4OcQrDC7BNAOAvAOq2vMRdxPVKdQ85oZbIn87TB3EpKEh3_VjrZvNusiVxyo-XB48P-yjpTM/s1600/5.png" /></a></div>
5. setelah itu keluar pesan berikut, pilih yes<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9Wen6nhEatX3tJdFAvlpdR_DxguGVI-2w5-8uxalEe8dffUqG2l7d4goKSpjRvsdDVoX8gGhGKrmoBnbOmFIQxqFmWudYFWPbA4rZLNWOR61m51cSXPt4TtXutvNIdI-vlQCDyoObLkU/s1600/6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9Wen6nhEatX3tJdFAvlpdR_DxguGVI-2w5-8uxalEe8dffUqG2l7d4goKSpjRvsdDVoX8gGhGKrmoBnbOmFIQxqFmWudYFWPbA4rZLNWOR61m51cSXPt4TtXutvNIdI-vlQCDyoObLkU/s1600/6.png" /></a></div>
<br />
<br />
<br />
<br />
Memulai HOTSPOT<br />
1. untuk memulai hotspot cukup dengan menulis perintah berikut:netsh wlan start hostednetwork<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbHTC7puj_laRpGNCrReHlTE17QLoWXc5q3WsrrR4JOXreCbjUpPlM-sbwqUdkWSwLWLH9B-o863LVV0RhWK2FBbx0lHtnx_fb3fu_Xu5g1gvXLNVlpi8INCQzy1Iu9PZxzCgaFYhyphenhyphenyuE/s1600/7.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbHTC7puj_laRpGNCrReHlTE17QLoWXc5q3WsrrR4JOXreCbjUpPlM-sbwqUdkWSwLWLH9B-o863LVV0RhWK2FBbx0lHtnx_fb3fu_Xu5g1gvXLNVlpi8INCQzy1Iu9PZxzCgaFYhyphenhyphenyuE/s1600/7.png" /></a></div>
Mematikan HOTSPOT<br />
1. untuk memulai hotspot cukup dengan menulis perintah berikut:netsh wlan stop hostednetwork<br />
<br />
Keterangan:<br />
1)
 Untuk menghidupkanya lagi tinggal: cukup melakukan langkah ke-3, tidak 
perlu dari langkah pertama kecuali mau mengganti ssid atau password <br />
2)
 Jika sering menggunakan taruh aja shortcut file start_wifi.bat dan 
stop_wifi.bat pada langkat 3 dan 4 di desktop, jadi tinggal sekali klik 
mudah langsung terpancarkan, kurang dari 1 detik! <br />
<br />
Cara ini dapat digunakan pada wifi baik di:<br />
1) Wifi Internal Laptopo, atau<br />
2) USB Wifi<br />
<br />
<br />
<br />
            <br />
<br />
<br />
<br />
<br />
Kalo Tidak mau repot :<br />
<a href="https://sites.google.com/site/repostdot/My%20Wifi%20%28%20re-postdot%20%29.rar?attredirects=0&d=1">Download Disini</a><br />
<br />
<br />
<br />
jika tidak mau repot ketik2 tinggal klik filenya saja, sangat kecil <1kb. No Virus, no trojan, totally free & save! <br />
Isi file:<br />
1) Set WiFi<br />
2) Start<br />
3) Stop<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj0PYBScOvptHIChASkXKo0m6EuwwjG6wJiMi_h6kSXSKOp6zEsXbXfxJ9cyZFJmLAS5Av3eRnnVR2Rp2QSXmXXlAidscwWMjj1KnUJ6V8Pg2hD21tq_MmsECYuJwvYhHb8UGTgbQchzHw/s1600/8.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj0PYBScOvptHIChASkXKo0m6EuwwjG6wJiMi_h6kSXSKOp6zEsXbXfxJ9cyZFJmLAS5Av3eRnnVR2Rp2QSXmXXlAidscwWMjj1KnUJ6V8Pg2hD21tq_MmsECYuJwvYhHb8UGTgbQchzHw/s1600/8.png" /></a></div>
<br />
<br />
TroubleShooting<br />
Kalau kadang ketemu error pas sharing dan gagal sharing, please do the following simple stupid things,<br />
1.
 Check device/card WiFi lo, apa able to host network apa ga. Keliatannya
 sepele, tapi penting banget gan! Kebanyakan driver sudah out of date 
dan kadang ga support sharing network, cara checkingnya:<br />
Code : netsh wlan show drivers<br />
<br />
<br />
tar muncul info dan perhatiin baris info ini:<br />
Code : Hosted network supported : No<br />
2. Kalau muncul itu, mendingan buruan cari update driver terbaru.. habis update, check lagi, sudah support atau belum<br />
Aktifin Windows Firewall, keliatan sepele juga, tapi kebanyakan ini dia yang bikin error ga bisa sharing! coba masuk ke:<br />
<br />
<br />
START>RUN dan type "services.msc" tanpa kutip trus cari "Windows Firewall" dan Enable!<br />
<br />
<br />
Sumber: Pengalaman Pribadi, Google</div>

Membuat HOTSPOT Access Point dengan Topologi Infrastruktur menggunakan WiFi LAPTOP dalam 1 LANGKAH Mudah & Cepat = 1 detik, 1 Baris! Fitur: 1) Access Point = YES! 2) Repeater = YES! 3) Custom = YES...

20Mar2014

Cara install Mysql Server 5.5.15 di Windows 7

Unknown March 18, 2014 Tutorial Windows

<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-weight: bold;">Download program Mysql Servernya <a href="http://www.mediafire.com/?u6vwnhio6l5423y">DISINI</a></span><br />
<span style="font-weight: bold;"><br /></span>
<br />
<span style="font-weight: bold;">Lalu setelah download selesai buka programnya maka akan muncul seperti gambar di bawah ini</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhS23-w0PrA6t9b2uBCSi_qPfn5CUH9h9qeVP9WurkemQFDVeDi0Gm6Dm2OhuUVyveNWlo9GKGm-Mmynvea9DzTCmAjnDDdF2xoONqbA60byYBm_F132zK3glVBiEjroC3qng91IcZxnxg/s1600/1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhS23-w0PrA6t9b2uBCSi_qPfn5CUH9h9qeVP9WurkemQFDVeDi0Gm6Dm2OhuUVyveNWlo9GKGm-Mmynvea9DzTCmAjnDDdF2xoONqbA60byYBm_F132zK3glVBiEjroC3qng91IcZxnxg/s1600/1.png" width="320" /></a></div>
<br />
<br />
<span style="font-weight: bold;">Setelah itu check list pada “I accept the terms in the License Agreement lalu klik Next.</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4Hb4ucDDNqdrBjDGDD3BvclmEP7OJSS1FFGaU2d5RzT5ipAIQzSm5Yment5SAMKFYIzzjeV2kHkA29nB5qWvt2z74JQdBfCqqY3PSwkAWFj83GwZOhWJkAUZwFv09VTvy0T87E9ef6ws/s1600/2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4Hb4ucDDNqdrBjDGDD3BvclmEP7OJSS1FFGaU2d5RzT5ipAIQzSm5Yment5SAMKFYIzzjeV2kHkA29nB5qWvt2z74JQdBfCqqY3PSwkAWFj83GwZOhWJkAUZwFv09VTvy0T87E9ef6ws/s1600/2.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Lalu akan muncul gambar ini. Pilih yang Typical.</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimpGc2xjmTBkzZwYscxdCaqlDiVAudXRukSxN0r6D5YNtqo2aNVkjoHvzs3b4IJCI2a1zXlrVB5Dk47cH7pGzU8sILePYQxX1CMru73fV3IewmAb6t_lWliHajQilDUquIduYaNHR1vm0/s1600/3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimpGc2xjmTBkzZwYscxdCaqlDiVAudXRukSxN0r6D5YNtqo2aNVkjoHvzs3b4IJCI2a1zXlrVB5Dk47cH7pGzU8sILePYQxX1CMru73fV3IewmAb6t_lWliHajQilDUquIduYaNHR1vm0/s1600/3.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Klik Instal,lalu tunggu sampai proses instal selesai</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgXrwN1ha1qF94ZI75WMNPJK28QWj7bHouU9F8mUBWdtLZnbEenEVUbjpyJhHbyil2RT2JJ7i0okVULM9aOj6D2tXsOTd-fL_Xmj2fZiI2YFGWlJVIHxq9AKOPYHoZLJnFCo6yqfavw5qU/s1600/4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgXrwN1ha1qF94ZI75WMNPJK28QWj7bHouU9F8mUBWdtLZnbEenEVUbjpyJhHbyil2RT2JJ7i0okVULM9aOj6D2tXsOTd-fL_Xmj2fZiI2YFGWlJVIHxq9AKOPYHoZLJnFCo6yqfavw5qU/s1600/4.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Setelah proses Install selesai.klik Finish lalu akan muncul gambar ini.Klik Next</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhP8T9eJeQgQmgugHcTpA1BwOpHfJcIbiKiKEv9VVuTwpATJ0aev6_YJpz8U03-p1SuGxB-xSAyM9f9VRmfAn_3ZrZYDmdCcfUBrDNchhy0XG3VDEEjy6USgLX_LydXyT4k_pP75m78nHg/s1600/6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhP8T9eJeQgQmgugHcTpA1BwOpHfJcIbiKiKEv9VVuTwpATJ0aev6_YJpz8U03-p1SuGxB-xSAyM9f9VRmfAn_3ZrZYDmdCcfUBrDNchhy0XG3VDEEjy6USgLX_LydXyT4k_pP75m78nHg/s1600/6.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">klik Next.</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_mTcgQY4litHfv1bG7bTWI3CwJhyphenhyphen-n6Q8Wl2BQ3yb64iyOajPnCAXdH7Dh6p-jzhwzd5kUDDtQMX5ujjSWPDQIgSS1-LKJVgqVdgz6xwKS4sBYe8vA88anIVNAhw9cNyPpMzbErT9IjU/s1600/7.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_mTcgQY4litHfv1bG7bTWI3CwJhyphenhyphen-n6Q8Wl2BQ3yb64iyOajPnCAXdH7Dh6p-jzhwzd5kUDDtQMX5ujjSWPDQIgSS1-LKJVgqVdgz6xwKS4sBYe8vA88anIVNAhw9cNyPpMzbErT9IjU/s1600/7.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Lalu klik Next.</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkezQcaW_ORXeddOpS7no9N8V8mRoW4CcWQXBy4GFxl5npTeaLsEhBlUx8FMZ2ftn2vsmVAEpRmdn-v241DTsEXPYvbjoBhnnNKbhDqF0ry6Wu0wJNaKq8dL9HqTQ594dk8YGC2NyD9jE/s1600/8.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkezQcaW_ORXeddOpS7no9N8V8mRoW4CcWQXBy4GFxl5npTeaLsEhBlUx8FMZ2ftn2vsmVAEpRmdn-v241DTsEXPYvbjoBhnnNKbhDqF0ry6Wu0wJNaKq8dL9HqTQ594dk8YGC2NyD9jE/s1600/8.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Lalu pilih Detailed Configuration. Lalu klik Next.</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfHJ_SSYJi3pmlBJJECWRpYFjcH_3wNOKHvjrtrGC87QDia7Py17gaiasyN1cs6zP_DVmsjnZEc7ICE3242sOifG0hXGt5C16-3_jKc2nb9luMZJYgYcJ2KoXt5ImKwtEA8zC4-ph2i4g/s1600/9.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfHJ_SSYJi3pmlBJJECWRpYFjcH_3wNOKHvjrtrGC87QDia7Py17gaiasyN1cs6zP_DVmsjnZEc7ICE3242sOifG0hXGt5C16-3_jKc2nb9luMZJYgYcJ2KoXt5ImKwtEA8zC4-ph2i4g/s1600/9.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Lalu pilih Developer Machine. Lalu klik Next.</span><br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgm6nLNUf3JbjMFgGNZQmb0-dJLcbEnIwc8djXzKIAODAhCL02byHvAPBeArP2zMXHyGeioPEDv3ATT9OrsleaawHvdmr5HuS-a7UaQphIoorIHGV2Dt5aylCgC-K4Ae9kMvHSvlJdWHxU/s1600/10.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgm6nLNUf3JbjMFgGNZQmb0-dJLcbEnIwc8djXzKIAODAhCL02byHvAPBeArP2zMXHyGeioPEDv3ATT9OrsleaawHvdmr5HuS-a7UaQphIoorIHGV2Dt5aylCgC-K4Ae9kMvHSvlJdWHxU/s1600/10.png" width="320" /></a></div>
<br />
<br />
<br />
<span style="font-weight: bold;">Lalu pilih Multifunctional Database. Klik Next</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRrVDYmtmXpz6s2noKiOEorOG0YGHY5SLj0_h6LKiKXq2R_suOlUm38VjC7-7WaMGyTA19HO7cZnP780xTCU5Xl9fw871qeDJq3O_GMnG0WYGvzihhyphenhyphen1AG0eyCWsN-VBZ5GmEZA-dDMeU/s1600/11.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRrVDYmtmXpz6s2noKiOEorOG0YGHY5SLj0_h6LKiKXq2R_suOlUm38VjC7-7WaMGyTA19HO7cZnP780xTCU5Xl9fw871qeDJq3O_GMnG0WYGvzihhyphenhyphen1AG0eyCWsN-VBZ5GmEZA-dDMeU/s1600/11.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Pilih drive untuk tempat menyimpan program Mysql nya. Lalu Next</span><br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5W3Ru0U6wPN4VeDZjUiY6fUKwKq56D9nUPvUMnMHHAENth0YHuvH5BzgNHCZsx9xTV9d9E9tzqRGP7gIJCryXxScCfXx9aQ-GFSP6armN1tdC9Bww_D9RKjt07zvcAZwRabPPnBJXc2c/s1600/12.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5W3Ru0U6wPN4VeDZjUiY6fUKwKq56D9nUPvUMnMHHAENth0YHuvH5BzgNHCZsx9xTV9d9E9tzqRGP7gIJCryXxScCfXx9aQ-GFSP6armN1tdC9Bww_D9RKjt07zvcAZwRabPPnBJXc2c/s1600/12.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Lalu pilih Manual Setting, masukkan angka </span><span style="font-weight: bold;"> </span><span style="font-weight: bold;">Concurrent connections , saya pilih angka yaitu 5. Lalu Next</span><br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKaAu-DcUJQTo04xK5VeDLLQPFFDxV004HEg5aqFouVypRazHlz71oHHIg5mwo_m5iRW1rkEkerk_wZoBUfn_EuaQ1bw2t9psA_iI56eM1MlPZr8aVLrlUzpUAMlz73NAFc1lyd3UFGl8/s1600/13.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKaAu-DcUJQTo04xK5VeDLLQPFFDxV004HEg5aqFouVypRazHlz71oHHIg5mwo_m5iRW1rkEkerk_wZoBUfn_EuaQ1bw2t9psA_iI56eM1MlPZr8aVLrlUzpUAMlz73NAFc1lyd3UFGl8/s1600/13.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Lalu pilih klik check list pada Enable 
TCP/IP dan Enable Strcit Mode seperti gambar di bawah ini dan default 
server Port yaitu 3306. Jika kamu mengubah angka server port ini maka 
kamu memerlukan port spesifik untuk aplikasi – aplikasi untuk connect 
dengan server. Lalu Next</span><br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGcYJqmVvxYWaJWo1wgwPSKzF63n303nfVTUeAkW99_hjQ-EOYNMS9b9ZwLFRPrR88qb9DZqbrMSpqV6BFx1UIeIZH6GOP6oEdLxbMYEkoW9H6DFluWUNMa7CT5JReZA8CtO5nU1SMDZI/s1600/14.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGcYJqmVvxYWaJWo1wgwPSKzF63n303nfVTUeAkW99_hjQ-EOYNMS9b9ZwLFRPrR88qb9DZqbrMSpqV6BFx1UIeIZH6GOP6oEdLxbMYEkoW9H6DFluWUNMa7CT5JReZA8CtO5nU1SMDZI/s1600/14.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<br />
<span style="font-weight: bold;">Lalu pilih Best Support For Multingualism</span><span style="font-weight: bold;">  </span><span style="font-weight: bold;">untuk membuat UTF8 sebagai default character. Lalu klik Next </span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjioTlfoklp5CXNVuuF0toyZndWPmY8nf1CKALxC1fIInuNKzYq8rwa7fGjvVKKKzTB_a5AHvtP0JfAoxmKTJjRcftQSObTK1yFM2GussPQ-hJKIle6FjFvALIcMIZgMWvAxT8LC6iRUQg/s1600/15.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjioTlfoklp5CXNVuuF0toyZndWPmY8nf1CKALxC1fIInuNKzYq8rwa7fGjvVKKKzTB_a5AHvtP0JfAoxmKTJjRcftQSObTK1yFM2GussPQ-hJKIle6FjFvALIcMIZgMWvAxT8LC6iRUQg/s1600/15.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;"><span style="font-weight: bold;">Lalu beri check list pada keduanya seperti gambar ini, lalu pilih Service Name sesuai keinginan anda. </span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGYwBi6Bu1jKwL_vnAOcY53F1m5pwpMiHsq-Nel4b_PFEeYN154cZnjF5xbi3wi-lC3fen-NKOeNETavgHO2CuWdJTEQV_S-RpAvmxBwI3rkJK0KWX6oxy6ZMLE8ECCOhl_LLjWpnFz64/s1600/16.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGYwBi6Bu1jKwL_vnAOcY53F1m5pwpMiHsq-Nel4b_PFEeYN154cZnjF5xbi3wi-lC3fen-NKOeNETavgHO2CuWdJTEQV_S-RpAvmxBwI3rkJK0KWX6oxy6ZMLE8ECCOhl_LLjWpnFz64/s1600/16.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;"><span style="font-weight: bold;"><span style="font-weight: bold;">Lalu beri checklist pada Modify 
security Settings jika anda ingin memberi pasword root. Seperti gambar 
di bawah ini. Jika tidak ingin menggunakan password, jangan beri 
chechlist pada Modify security settings. Lalu klik Next </span></span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiOccd2zMBXd_CBHBLmrzusFSORd5gcE0YRu04jRGMqMNjnmP5xBofG7o4oU7eR9_Tcvlr7E34K2QxTA6Y2SqvUcKeL5r_5IEKh7aMD4-N7VeRIjcZG89bAOuKZhavfwuMkayaZ1BnS6Kw/s1600/17.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiOccd2zMBXd_CBHBLmrzusFSORd5gcE0YRu04jRGMqMNjnmP5xBofG7o4oU7eR9_Tcvlr7E34K2QxTA6Y2SqvUcKeL5r_5IEKh7aMD4-N7VeRIjcZG89bAOuKZhavfwuMkayaZ1BnS6Kw/s1600/17.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;"><span style="font-weight: bold;"><span style="font-weight: bold;"><span style="font-weight: bold;">Lalu klik Execute dan tunggu hingga instalasi selesai seperti gambar di bawah ini.</span> </span></span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjv9SLYyiHBgm6_VEB0RHEIR87-aNcvKaT28KdpjBBnIpvIk1Mg23KvjyCm_smpyimWz9FNiUqFl_pD-dmHs9MFsy2cRBlJc4Reas_00EtyHoN_MOA6IHOEN2wpUj6k-6QZUsaulDnodVs/s1600/18.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjv9SLYyiHBgm6_VEB0RHEIR87-aNcvKaT28KdpjBBnIpvIk1Mg23KvjyCm_smpyimWz9FNiUqFl_pD-dmHs9MFsy2cRBlJc4Reas_00EtyHoN_MOA6IHOEN2wpUj6k-6QZUsaulDnodVs/s1600/18.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
<span style="font-weight: bold;"><span style="font-weight: bold;"><span style="font-weight: bold;"><span style="font-weight: bold;">Setelah itu anda bisa langsung mencoba Mysql Servernya seperti di bawah ini.</span> </span></span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEillxwo7eK7gySGpRQioVZHnhL5Ksy2oAO6HfKSreMl3MGNw06EyEWLGgedY2IP6clHhb_f_jOkr8wna10trpTJshf8_pOlBtc2WAy_Ry4ey4Q9Mc4sdk3vMl7iIHumfkmAhGXpSsYa-rw/s1600/20.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="161" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEillxwo7eK7gySGpRQioVZHnhL5Ksy2oAO6HfKSreMl3MGNw06EyEWLGgedY2IP6clHhb_f_jOkr8wna10trpTJshf8_pOlBtc2WAy_Ry4ey4Q9Mc4sdk3vMl7iIHumfkmAhGXpSsYa-rw/s1600/20.png" width="320" /></a></div>
<br />
<br />
<br />
<br />
Selesai.<br />sampai jumpa lagi...

<br />
<br />
Sumber: Pengalaman Pribadi <br />
<br />
<br />
<br />
<br />
<br /></div>

Download program Mysql Servernya DISINI Lalu setelah download selesai buka programnya maka akan muncul seperti gambar di bawah ini Setelah itu check list pada “I accept the terms in the Licens...

18Mar2014

Perbaiki Windows 7 Setelah Menghapus Windows Xp (Dual Boot) / fix mbr / boot mgr

Unknown March 13, 2014 Tutorial Windows

<div dir="ltr" style="text-align: left;" trbidi="on">
Semalam saya dengan teman saya sedang menginstall windows xp dual boot dengan windows 7,,<br />
lalu uninstall / menghapus kembali windows xp nya,,<br />
eh tau-tau windows 7 gak muncul lagi,,<br />
<br />
nah, khusus masalah ini,, (menghapus wondows xp)<br />
untuk memunculkan kembali windows 7 nya,,<br />
<br />
caranya seperti ini:<br />
<br />
-- Masukan Cd / flash booting nya...<br />
-- Pilih Repair<br />
-- Load Driver , jangan klik next dulu, lalu akan masuk ke explore windows,,<br />
-- klik kanan system reserve ,, lalu format.<br />
-- sesudah di format, Buka propertis di Partisi System reserve lalu pilih tab tool, dan klik Check now,,<br />
-- exit dari propertis dan load driver nya,, <br />
-- Akan Muncul Pilihan Windows nya kembali,, dan kini klik next..<br />
-- nah kini muncul menu startup repair,command prompt, dan sebagainya,,<br />
-- pilih startup repair dan tunggu sampai selesai,, lalu restart laptop / pc nya,,<br />
<br />
nah kini windows 7 nya sudah muncul lagi kan,,,<br />
kalau ada kesulitan / tidak mengerti komentar aja atau email saya <br />
email saya ada di header blog ini,<br />
terima kasih atas kunjungan nya..<br />
sampai jumpa lagi...<br />
<br />
Sumber: Pengalaman Pribadi </div>

Semalam saya dengan teman saya sedang menginstall windows xp dual boot dengan windows 7,, lalu uninstall / menghapus kembali windows xp nya,, eh tau-tau windows 7 gak muncul lagi,, nah, khusus masal...

13Mar2014

Cara Mengatasi Wifi Netbook Lenovo Ideapad S10-3 / Lenovo S10-3 Gak bisa konek

Unknown March 10, 2014 23 Trik-Komputer

<div dir="ltr" style="text-align: left;" trbidi="on">Masalah baru saya,,<br />
kemaren saya menerima instalasi netbook lenovo s10-3,,<br />
terus wifi nya tidak terdeteksi,,<br />
sudah saya cari-cari obatnya di google 2 hari, namun saya tidak menemukannya...<br />
tetap tidak bisa juga,,,<br />
<br />
nah, akhirnya saya ber experimen sendiri,,<br />
3 jam saya ber experiment bersama teman saya <a href="https://www.facebook.com/akmalonesteep.co.id">Akmal</a>,,<br />
akhirnya saya menemukan jalan keluarnya,,,<br />
<br />
solusinya di bawah ini,,<br />
pertama-tama,,<br />
- Pastikan tombol wifi on/off di samping (sebelah kiri netbooknya,dekat lampu indikasi) hidup,, <br />
- Uninstall kembali Driver Wireless Wlan nya,,<br />
- Download Lenovo Energy Manajement  <a href="http://www.4shared.com/rar/mTnpD04r/Lenovo_Energy_Management.html">DISINI</a><br />
- Lalu install Lenovo energy Manajement nya,,<br />
- Terus install kembali Driver wlan nya,,<br />
- restart dulu netbooknya,,<br />
- sesudah hidup kembali netbooknya,,<br />
- buka folder C:\Program files\Lenovo\Energy Management\<br />
- nah , di situ ada Aplikasi Lenovo Super Energy Saver (Berlambang Kuning)<br />
- klik open di aplikasi itu, lalu tunggu beberapa saat, dan lihatlah di notifikasi Wifinya,,<br />
- sudah dapat wifi nya kan?<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div>jika wifi anda belum bisa juga,,<br />
beritahukan saya dengan mengkomentari atau kirim ke email saya ktprachmat2@gmail.com,,<br />
terima kasih telah berkunjung,,<br />
salam blogger...<br />
<br />
Sumber: Pengalaman Pribadi  </div>

Masalah baru saya,, kemaren saya menerima instalasi netbook lenovo s10-3,, terus wifi nya tidak terdeteksi,, sudah saya cari-cari obatnya di google 2 hari, namun saya tidak menemukannya... tetap tidak...

10Mar2014

Tutorial VB6 Lengkap

Unknown March 08, 2014 Bahan Kuliah

Assalamualaikum kawan,,, lagi males ngetik,, ni langsung aja KESINI untuk download Modulnya. bye bye... :)

08Mar2014

Windows Explorer Tidak Bisa Dibuka / Icon Blank / Icon Menjadi Putih Semua

Unknown March 04, 2014 4 Tutorial Windows

<div dir="ltr" style="text-align: left;" trbidi="on">
Assalamualaikum agan2 yg baik hatinya,,,<br />
2 Hari yang lalu,,<br />
saya mendapatkan Keluhan Icon Dekstop jadi putih semua dan tidak bisa di buka,,<br />
<br />
Setidaknya masalahnya seperti gambar di bawah ini:<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKwrBYInJ77SFySkM25ymNMoz8-lvxSb6PoejAeIwJlwFp0X3MpK6Tl5jSBl7GLvBsPyJN8yf3EepEBxusTdvDdmgdoUa705EKL-S4shqxuM7jjtmQ7zIhXcg-d_XaOAdU_uAd478MHLI/s1600/2014-03-04_024102.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="223" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKwrBYInJ77SFySkM25ymNMoz8-lvxSb6PoejAeIwJlwFp0X3MpK6Tl5jSBl7GLvBsPyJN8yf3EepEBxusTdvDdmgdoUa705EKL-S4shqxuM7jjtmQ7zIhXcg-d_XaOAdU_uAd478MHLI/s1600/2014-03-04_024102.jpg" width="400" /> </a></div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
Nah... Cara nya simple Banget Gan,,</div>
Download Dulu File Registry <a href="http://www.mediafire.com/download/dcoaba88d7i3ddm/openwith_error_fix.rar">DISINI</a>.<br />
sesudah itu di Extrack,,<br />
ada 2 file di situ,,<br />
Buka kedua-duanya,,<br />
kalau ada pemberitahuan YES dan NO,,<br />
yes kan saja ke dua-dua file tersebut,,<br />
lalu restart laptop agan,,<br />
nah,, sekarang laptop nya menjadi baik seperti semula,,<br />
terima kasih atas kunjungan nya y gan,,<br />
salam Blogger,,,<br />
<br />
Tags: Memperbaiki Icon Blank, Icon Jadi Putih, Windows Explore tidak bisa dibuka, <br />
<br />
Sumber: Pengalaman Pribadi </div>

Assalamualaikum agan2 yg baik hatinya,,, 2 Hari yang lalu,, saya mendapatkan Keluhan Icon Dekstop jadi putih semua dan tidak bisa di buka,, Setidaknya masalahnya seperti gambar di bawah ini: ...

04Mar2014

Program KHS Mahasiswa

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
program record_data_mahasiswa;<br />
uses crt;<br />
const nMaks = 100;<br />
Mn = 10;<br />
<br />
Type <br />
     matakuliah = record<br />
         kodemk : string[8];<br />
         namamk : string[20];<br />
            sks : integer;<br />
         nilai  : integer;<br />
      sksxnilai : integer;<br />
end;<br />
<br />
      mahasiswa = record<br />
             mk : array[1..Mn] of matakuliah;<br />
            NIM : string[15];<br />
       nama : string[20];<br />
       skstotal : integer;<br />
      nilaitotal: integer;<br />
             ip : real;<br />
        nextsks : string[8];<br />
<br />
end;<br />
<br />
var<br />
         TabMhs : array[1..nMaks] of mahasiswa;<br />
     I, J, M, N : integer;<br />
         nilaiN : integer;<br />
         nilaiH : string[2];<br />
         tambah : char;<br />
<br />
procedure konversinilaiH;<br />
begin<br />
     if TabMhs[I].mk[J].nilai > 80 then nilaiH := 'A'<br />
else if(TabMhs[I].mk[J].nilai >=70)and(TabMhs[I].mk[J].nilai <=80)then nilaiH := 'B'<br />
else if(TabMhs[I].mk[J].nilai >=50)and(TabMhs[I].mk[J].nilai <=69)then nilaiH := 'C'<br />
else if(TabMhs[I].mk[J].nilai >=40)and(TabMhs[I].mk[J].nilai <=59)then nilaiH := 'D'<br />
else                                                                   nilaiH := 'E'<br />
end;<br />
<br />
procedure konversinilaiN;<br />
begin<br />
     if NilaiH = 'A' then nilaiN := 4<br />
else if nilaiH = 'B' then nilaiN := 3<br />
else if nilaiH = 'C' then nilaiN := 2<br />
else if nilaiH = 'D' then nilaiN := 1<br />
else                      nilaiN := 0<br />
end;<br />
<br />
procedure ambilsks;<br />
begin<br />
     if TabMhs[I].ip >= 3.00                              then TabMhs[I].nextsks := '22 - 24'<br />
else if (TabMhs[I].ip <= 2.99) and (TabMhs[I].ip >= 2.50) then TabMhs[I].nextsks := '22 - 24'<br />
else if (TabMhs[I].ip <= 2.49) and (TabMhs[I].ip >= 2.00) then TabMhs[I].nextsks := '20 - 22'<br />
else if (TabMhs[I].ip <= 1.99) and (TabMhs[I].ip >= 1.50) then TabMhs[I].nextsks := '18 - 20'<br />
else if  TabMhs[I].ip <  1.50                             then TabMhs[I].nextsks := '16 - 18'<br />
end;<br />
<br />
procedure tampildata;<br />
begin<br />
for I:= 1 to N do<br />
begin<br />
writeln ('                    Kartu Hasil Studi    ');<br />
writeln ('                 ------------------------');<br />
writeln ('                                         ');<br />
writeln ('                 ------------------------');<br />
writeln ('                                         ');<br />
writeln ('                 ------------------------');<br />
writeln('=====================================================================');<br />
writeln('Nama Mahasiswa : ',TabMhs[I].nama);<br />
writeln('NRP Mahasiswa  : ',TabMhs[I].NIM);<br />
writeln('---------------------------------------------------------------------');<br />
writeln('No |Kode MK   |Nama Mata Kuliah   |Nilai|Nilai|Nilai|SKS|SKS x Nilai ');<br />
writeln('                                  |  MK |  H  |  N  |   |      Angka ');<br />
writeln('---------------------------------------------------------------------');<br />
<br />
for J := 1 to M do<br />
begin<br />
konversinilaiH;<br />
konversinilaiN;<br />
<br />
TabMhs[I].mk[J].sksxnilai := nilaiN * TabMhs[I].mk[J].sks;<br />
writeln(J:1,TabMhs[I].mk[J].kodemk:11,TabMhs[I].mk[J].namamk:19,<br />
TabMhs[I].mk[J].nilai:7,nilaiH:6,nilaiN:6,<br />
TabMhs[I].mk[J].sks:5,TabMhs[I].mk[J].sksxnilai:8);<br />
<br />
TabMhs[I].skstotal   := TabMhs[I].skstotal + TabMhs[I].mk[J].sks;<br />
TabMhs[I].nilaitotal := TabMhs[I].nilaitotal + TabMhs[I].mk[J].sksxnilai;<br />
<br />
end;<br />
<br />
writeln('---------------------------------------------------------------------');<br />
writeln('                TOTA L           ',TabMhs[I].skstotal:22,TabMhs[I].nilaitotal:8);<br />
writeln('---------------------------------------------------------------------');<br />
<br />
TabMhs[I].ip := TabMhs[I].nilaitotal / TabMhs[I].skstotal;<br />
<br />
writeln('IP Semester = ',TabMhs[I].nilaitotal,'/',TabMhs[I].skstotal,' = ',TabMhs[I].ip:0:2);<br />
<br />
ambilsks;<br />
writeln('SKS yang dapat diambil semester berikutnya = ',TabMhs[I].nextsks);<br />
writeln;<br />
end;<br />
end;<br />
<br />
procedure bacadata;<br />
begin<br />
for I := 1 to N do<br />
begin<br />
write('NRP Mahasiswa ke-',I,'       = ');readln(TabMhs[I].NIM);<br />
write('Nama Mahasiswa ke-',I,'      = ');readln(TabMhs[I].nama);<br />
write('Jumlah Mata Kuliah       = ');readln(M);<br />
writeln('--------------------------------------------------');<br />
<br />
for J := 1 to M do<br />
begin<br />
write('Kode Matakuliah ke  -',J,'   = ');readln(TabMhs[I].mk[J].kodemk);<br />
write('Nama Matakuliah          = ');readln(TabMhs[I].mk[J].namamk);<br />
write('SKS Matakuliah           = ');readln(TabMhs[I].mk[J].sks);<br />
write('nilai Matakuliah         = ');readln(TabMhs[I].mk[J].nilai);<br />
writeln('--------------------------------------------------');<br />
end;<br />
end;<br />
end;<br />
<br />
begin<br />
write('Masukkan Jumlah Data Mahasiswa = ');readln(N);<br />
<br />
Repeat<br />
clrscr;<br />
bacadata;<br />
<br />
clrscr;<br />
tampildata;<br />
write ('Anda Ingin Memasukkan Data Mahasiswa Lagi? [Y/N] (maaf, koment repeat gagal,');<br />
write ('anda bisa perbaikinya sendiri) : ');readln(tambah);<br />
tambah := Upcase(tambah);<br />
until (tambah <> 'Y');<br />
end.</div>

program record_data_mahasiswa; uses crt; const nMaks = 100; Mn = 10; Type matakuliah = record kodemk : string; namamk : string; sks : integer; nilai : i...

01Mar2014

Program Pencari Pembagi

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Program yang mungkin terlihat paling 
ribet, tapi sebenarnya alurnya sederhana. Berungsi untuk menampilkan 
pembagi dan hasil bagi bilangan bulat yang di masukan. Selain itu, 
disini juga bisa digunakan untuk menentukan bilangan mana yang prima 
atau bukan. Sebelumnya program ini sudah pernah di publish di artikel ini, namun saya tidak tampilkan source kodenya. Silahkan bila ingin langsung mencoba bisa langsung kesana.</div>
<div style="text-align: justify;">
Sebenarnya ada cacat di program 
ini, yaitu ada 2 perulangan disini. Yang satu untuk menentukan bilangan 
prima,  satunya lagi untuk menentukan pembagi. Sebenarnya 2 perulangan 
itu dapat dipangkas menjadi satu saja. Sehingga 2 perulangan menjadi 
tidak efisien. Kenapa harus 2?</div>
<div style="text-align: justify;">
Sejarahnya begini, awalnya saya 
menulis program ini iseng-iseng hanya untuk mencari yang mana bilangan 
prima. Lalu saya kembangkan lagi menjadi bisa menuliskan daftar bilangan
 pembagi, waktu itu, daripada repot mengedit perulangan untuk menentukan
 bilangan prima yang sudah mapan, saya membuat perulangan baru. Dan 
akhirnya program ini punya 2 perulangan yang strukturnya hampir mirip.</div>
<div style="text-align: justify;">
Tapi nampaknya tidak masalah, 
toh selisih waktu kalkulasinya hanya beberapa milidetik, bahkan untuk 
bilangan yang mencapai ratusan juta sekalipun. Mau edit lagi, rasanya 
malas……Berikut kodenya…….:</div>
<div style="text-align: justify;">
Hint: Sebelum di compile, buat dulu file bernama output.txt di folder yang sama dengan source code pembagi.</div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2T1Wp_ke3cDw6Uop1tM23STsHhBjk-1d3t1UohN-4hMtjjhZSRXeOlSRjh58lf-AMVmiZ-n7OUj7hQqwwkL0nzFCEpTPBCyesbX0T7MQnLczubEfgHODcgqLdfp6sd_tPFemBBnf8caQ/s1600/15.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2T1Wp_ke3cDw6Uop1tM23STsHhBjk-1d3t1UohN-4hMtjjhZSRXeOlSRjh58lf-AMVmiZ-n7OUj7hQqwwkL0nzFCEpTPBCyesbX0T7MQnLczubEfgHODcgqLdfp6sd_tPFemBBnf8caQ/s1600/15.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
program pembagi;</div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var x,y,q,w,z,e,f,g:longint;</div>
<div style="text-align: justify;">
    l,a:string;</div>
<div style="text-align: justify;">
    out:text;</div>
<div style="text-align: justify;">
label k;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{prosedur untuk sekedar  merapikan hasil output}</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
procedure rapikan(s:longint;var t:string);</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
if s<10 then</div>
<div style="text-align: justify;">
 t:='          '</div>
<div style="text-align: justify;">
 else if (s>9) and (s<100) then</div>
<div style="text-align: justify;">
 t:='         '</div>
<div style="text-align: justify;">
 else if (s>99) and (s<1000) then</div>
<div style="text-align: justify;">
 t:='        '</div>
<div style="text-align: justify;">
 else if (s>999) and (s<10000) then</div>
<div style="text-align: justify;">
 t:='       '</div>
<div style="text-align: justify;">
 else if (s>9999) and (s<100000) then</div>
<div style="text-align: justify;">
 t:='      '</div>
<div style="text-align: justify;">
 else if (s>99999) and (s<1000000) then</div>
<div style="text-align: justify;">
 t:='     '</div>
<div style="text-align: justify;">
 else if (s>999999) and (s<10000000) then</div>
<div style="text-align: justify;">
 t:='    '</div>
<div style="text-align: justify;">
 else if (s>9999999) and (s<100000000) then</div>
<div style="text-align: justify;">
 t:='   '</div>
<div style="text-align: justify;">
 else if (s>99999999) and (s<1000000000) then</div>
<div style="text-align: justify;">
 t:='  '</div>
<div style="text-align: justify;">
 else if (s>999999999) and (s<1000000000) then</div>
<div style="text-align: justify;">
 t:=' '</div>
<div style="text-align: justify;">
 else t:=' ';</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{program utama}</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
textbackground(blue);</div>
<div style="text-align: justify;">
textcolor(Yellow);</div>
<div style="text-align: justify;">
clrscr;</div>
<div style="text-align: justify;">
assign(out,'output.txt');</div>
<div style="text-align: justify;">
append(out);</div>
<div style="text-align: justify;">
 gotoxy(3,1);writeln('+______________________________________________________+');</div>
<div style="text-align: justify;">
 gotoxy(3,2);writeln('|Copyright@2009, Xenovon, http://komputok.blogspot.com |');</div>
<div style="text-align: justify;">
 gotoxy(3,3);Writeln('+------------------------------------------------------+');</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 gotoxy(3,5);writeln('Hint: Masukan angka 2 untuk keluar');</div>
<div style="text-align: justify;">
 gotoxy(3,6);writeln('      hasil juga dioutputkan ke output.txt');</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 gotoxy(15,9);writeln('----[MENENTUKAN PEMBAGI SUATU BILANGAN BULAT]------');</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{menuliskan ke output.txt}</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out,'+______________________________________________________+');</div>
<div style="text-align: justify;">
 writeln(out,'|Copyright@2009, Xenovon, http://komputok.blogspot.com |');</div>
<div style="text-align: justify;">
 Writeln(out,'+------------------------------------------------------+');</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out,'----[MENENTUKAN PEMBAGI SUATU BILANGAN BULAT]------');</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 begin</div>
<div style="text-align: justify;">
{input bilangan yang akan di cari}</div>
<div style="text-align: justify;">
 k:</div>
<div style="text-align: justify;">
 write('masukan bilangan yang akan di cek : ');readln(x);writeln;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{error handling}</div>
<div style="text-align: justify;">
 if x<2 then goto k else</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{pemeriksaan kondisi untuk keluar program, yaitu dengan menginput angka 2}</div>
<div style="text-align: justify;">
 if x=2 then</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
    writeln('2 adalah bilangan prima');</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
    write('Mau keluar?(y/x)');readln(l);</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
      if l='y' then exit else goto k;</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{Menentukan apakah bilangan prima atau bukan}</div>
<div style="text-align: justify;">
 begin</div>
<div style="text-align: justify;">
  y:=1;</div>
<div style="text-align: justify;">
  repeat</div>
<div style="text-align: justify;">
   y:=y+1;</div>
<div style="text-align: justify;">
   q:=x mod y;</div>
<div style="text-align: justify;">
  until  (q=0);</div>
<div style="text-align: justify;">
 end;</div>
<div style="text-align: justify;">
if y=x then</div>
<div style="text-align: justify;">
 begin</div>
<div style="text-align: justify;">
  writeln(x,' adalah bilangan prima');writeln;</div>
<div style="text-align: justify;">
 writeln(out,x,' adalah bilangan prima');writeln(out);</div>
<div style="text-align: justify;">
 end</div>
<div style="text-align: justify;">
else</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
     {apabila bukan prima, maka program menentukan pembagi yang mungkin}</div>
<div style="text-align: justify;">
 writeln('Pembagi dari ',x,': ');</div>
<div style="text-align: justify;">
 writeln('--------------------');</div>
<div style="text-align: justify;">
 writeln(out,'Pembagi dari ',x,': ');</div>
<div style="text-align: justify;">
 writeln(out,'--------------------');</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 w:=1;</div>
<div style="text-align: justify;">
 repeat</div>
<div style="text-align: justify;">
  w:=w+1;</div>
<div style="text-align: justify;">
  e:=x mod w;</div>
<div style="text-align: justify;">
  if e=0 then</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
           {menuliskan pembagi & hasil bagi ke konsole dan ke output.txt}</div>
<div style="text-align: justify;">
   g:=x div w;</div>
<div style="text-align: justify;">
   rapikan(w,a);</div>
<div style="text-align: justify;">
   writeln(w,a,'--> ',x,'/',w,'= ',g);</div>
<div style="text-align: justify;">
   writeln(out,w,a,'--> ',x,'/',w,'= ',g);</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
 until  (w=x);</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
goto k;</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
close(out);</div>
<div style="text-align: justify;">
end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
<br />
<br />
<br /></div>

Program yang mungkin terlihat paling ribet, tapi sebenarnya alurnya sederhana. Berungsi untuk menampilkan pembagi dan hasil bagi bilangan bulat yang di masukan. Selain itu, disini juga bisa digun...

01Mar2014

Program Iterasi (Melukis Z)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi:  Melukis huruf Z dengan karakter ‘*’ sebesar jumlah perulangan yang di inputkan</div>
<div style="text-align: justify;">
Hint : Masukan angka untuk menentukan besar huruf Z</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqk0ALnYKZGak8EPku3Kd31bRw0zeqEYTos_k8uzIEb1XGvQbCzBVh-ZlzEpP8Z5f7uTHynHb3R1C53cHalAB_Zya3F8eiZfkmf5x5ml9_mDiWJ42ldEAhjqWTPr9HveEzZNpvYernW2A/s1600/14.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqk0ALnYKZGak8EPku3Kd31bRw0zeqEYTos_k8uzIEb1XGvQbCzBVh-ZlzEpP8Z5f7uTHynHb3R1C53cHalAB_Zya3F8eiZfkmf5x5ml9_mDiWJ42ldEAhjqWTPr9HveEzZNpvYernW2A/s1600/14.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var n,i,a:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(n);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to n do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> for a:=1 to n do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>begin</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">     </span> if (i=1) or (i=n) then</div>
<div style="text-align: justify;">
  <span style="white-space: pre;">      </span>write('#')</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">     </span> else if (i<>1) and (i<>n) then</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">      </span>  begin</div>
<div style="text-align: justify;">
  <span style="white-space: pre;">       </span> if a+i=n then</div>
<div style="text-align: justify;">
    <span style="white-space: pre;">       </span> write('#')</div>
<div style="text-align: justify;">
     <span style="white-space: pre;">      </span>else</div>
<div style="text-align: justify;">
   <span style="white-space: pre;">       </span> write(' ');</div>
<div style="text-align: justify;">
   <span style="white-space: pre;">     </span> end;</div>
<div style="text-align: justify;">
    <span style="white-space: pre;">   </span>end;</div>
<div style="text-align: justify;">
    <span style="white-space: pre;">  </span> writeln;</div>
<div style="text-align: justify;">
    <span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
<span style="white-space: pre;"> </span>end.<br />
<br /></div>

Fungsi: Melukis huruf Z dengan karakter ‘*’ sebesar jumlah perulangan yang di inputkan Hint : Masukan angka untuk menentukan besar huruf Z Screen Shot: uses crt; var n,i,a:integer; begin ...

01Mar2014

Program Iterasi (Tebak Angka)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi:  Permainan Tebak angka, masukan angka rahasia dan suruh teman untuk menebaknya</div>
<div style="text-align: justify;">
Hint :  Permainan ini tidak akan asik bila dilakukan sendirian.</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW8akb3GoSnQWghQV7g6YZOlCnUjY1lMAl5i__4fsTl4sUyUOKj05RpON1Mp-rgpTqksGYG8jvbUe_6LXkAmLh1_gIPfQhBaTQAC1o_XEkyQbHid3ATogjh8uVs60fpFtGGotKQpd8MTg/s1600/13.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW8akb3GoSnQWghQV7g6YZOlCnUjY1lMAl5i__4fsTl4sUyUOKj05RpON1Mp-rgpTqksGYG8jvbUe_6LXkAmLh1_gIPfQhBaTQAC1o_XEkyQbHid3ATogjh8uVs60fpFtGGotKQpd8MTg/s1600/13.jpg" /></a></div>
<br />
<br />
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var a,teb,c,d,rhs:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>Write('Bilangan Rahasia : ');readln(rhs);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>repeat</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>write('masukan Tebakan anda : ');readln(teb);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>if (teb<>rhs) and (teb>rhs) then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Bilangan terlalu besar!')</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> else if (teb<>rhs) and (teb</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('bilangan terlalu kecil');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>until (teb=rhs);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('Tebakan Anda Benar!!!!, selamat!!!!');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
<br />
<br />
<br /></div>

Fungsi: Permainan Tebak angka, masukan angka rahasia dan suruh teman untuk menebaknya Hint : Permainan ini tidak akan asik bila dilakukan sendirian. Screen Shot: uses crt; var a,teb,c,d...

01Mar2014

Program Iterasi (Jumlah Pangkat)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi:  untuk menghasilkan deret pangkat, misal : 1, 4, 9, 16, 25 dst dan menjumlahkannya</div>
<div style="text-align: justify;">
Hint : Masukan jumlah deret pangkat yang akan ditampilkan untuk di jumlah…</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkU4lFrMJVF86LobjeGMF5F9An7oVqRboU2DPPoZcBLeg1o4XSqTIJdU2lgjNZ4cpr9hvB7Bm9D0f8hAXFYyRMoaFxcBOsemH5qBfCZbGNSSYra4DGLfJzFTrJbx5RJzYQzaxtH5ijXas/s1600/12.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkU4lFrMJVF86LobjeGMF5F9An7oVqRboU2DPPoZcBLeg1o4XSqTIJdU2lgjNZ4cpr9hvB7Bm9D0f8hAXFYyRMoaFxcBOsemH5qBfCZbGNSSYra4DGLfJzFTrJbx5RJzYQzaxtH5ijXas/s1600/12.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var k,jum:double;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>i,n:longint;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(n);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>jum:=0;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to n do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> k:=sqr(i);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>write(k:0:0);</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">   </span>if i<>n then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span> write('+');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> <span style="white-space: pre;"> </span>jum:=jum+k;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> <span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('=',jum:0:0);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.<br />
<br /></div>

Fungsi: untuk menghasilkan deret pangkat, misal : 1, 4, 9, 16, 25 dst dan menjumlahkannya Hint : Masukan jumlah deret pangkat yang akan ditampilkan untuk di jumlah… Screen Shot: uses crt; va...

01Mar2014

Program Iterasi (Angka)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi: Tak ada fungsi khusus, hanya menampilkan pola-pola angka saja…</div>
<div style="text-align: justify;">
Hint : Begitu jalan, langsung masukan angka saja, Jangan masukan angka terlalu kecil atau besar.</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrVmL-GLqrOMZgzVugTPr60Pt1zlISUl9Z8Mk09_I9IgY-JHRnxHKDJID7gWwNYHoqyx45U7sM4mYhyh919ryVVgynnVsS2cFwptS0BEi2W0moEFKZaEcMGMnS-CKvD3Gr3jx2x4vm1iM/s1600/11.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrVmL-GLqrOMZgzVugTPr60Pt1zlISUl9Z8Mk09_I9IgY-JHRnxHKDJID7gWwNYHoqyx45U7sM4mYhyh919ryVVgynnVsS2cFwptS0BEi2W0moEFKZaEcMGMnS-CKvD3Gr3jx2x4vm1iM/s1600/11.jpg" /></a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var inp,i,a,t,r:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(inp);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>t:=inp;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to inp do</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> for a:=1 to inp do</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">    </span>write(a-t);</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">    </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span> t:=t-1;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.</div>

Fungsi: Tak ada fungsi khusus, hanya menampilkan pola-pola angka saja… Hint : Begitu jalan, langsung masukan angka saja, Jangan masukan angka terlalu kecil atau besar. Screen Shot: use...

01Mar2014

Program Array (Fibbonaci Generator)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi: Kode untuk Menghasilkan deret fibbonaci</div>
<div style="text-align: justify;">
Hint : Fibbonaci adalah deret yang angka selanjutnya adalah penjumlahan 2 angka sebelumnya.</div>
<div style="text-align: justify;">
Misal : 1 1 2 3 5 8 13 21 ….dst</div>
Screen Shot:<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSEvvC43erkmQg1B8uDU9509Q3QWT7jDUruM_84qMMH0pBOuFlD7pbAHPdlyvQ9rdsvU00H0QQStdo8WoNbVGTQrLy2dhwUBBssenI7kBLepAAk-BE0tShytOTSeaCvtJOPU6jM30ghhg/s1600/10.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSEvvC43erkmQg1B8uDU9509Q3QWT7jDUruM_84qMMH0pBOuFlD7pbAHPdlyvQ9rdsvU00H0QQStdo8WoNbVGTQrLy2dhwUBBssenI7kBLepAAk-BE0tShytOTSeaCvtJOPU6jM30ghhg/s1600/10.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var a:array[1..1000] of longint;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>i,k:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('Input banyaknya fibbonaci: ');readln(i);</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>{fibbonacigenerator}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>a[1]:=1;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>a[2]:=1;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for k:=2 to i do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>a[k+1]:=a[k]+a[k-1];</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{menulis fibbonaci}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for k:=1 to i do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>write(a[k],' ');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end. </div>

Fungsi: Kode untuk Menghasilkan deret fibbonaci Hint : Fibbonaci adalah deret yang angka selanjutnya adalah penjumlahan 2 angka sebelumnya. Misal : 1 1 2 3 5 8 13 21 ….dst Screen Shot: uses crt...

01Mar2014

Program Array (Tabel Ajaib)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Membuat tabel angka yang apabila nilai tabel dalam satu baris, kolom, dan diagonal di jumlahkan hasilnya akan sama.</div>
<div style="text-align: justify;">
Hint: jangan terlalu heran, semua sudah ada rumusnya. Tinggal masukan angka-angka saja.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnFZesvA6ZvAkz1lR-O1FFLMIe7GmqpQHYbuiBWjk-fehyphenhyphenwersBcgqp535UoI85VievNqqo2IrG9VURA3eHKjXF7LIRE4YMpHeb5yFmN9wclcVj5QMKX0tPsNj0JUuqLnHap4v6ymLARI/s1600/8.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnFZesvA6ZvAkz1lR-O1FFLMIe7GmqpQHYbuiBWjk-fehyphenhyphenwersBcgqp535UoI85VievNqqo2IrG9VURA3eHKjXF7LIRE4YMpHeb5yFmN9wclcVj5QMKX0tPsNj0JUuqLnHap4v6ymLARI/s1600/8.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var a,b,c,d,w,x,y,z,i,j:integer;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>tab:array[1..4,1..4] of integer;</div>
<div style="text-align: justify;">
procedure lukistabel;</div>
<div style="text-align: justify;">
{Prosedur untuk menampilkan tabel}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>var c:string;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>for i:=1 to 4 do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>for j:=1 to 4 do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">     </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">      </span> begin</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">       </span>if (tab[i,j]>9) or ((tab[i,j]<0) and (tab[i,j]>-10))  then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">        </span>  c:='    '</div>
<div style="text-align: justify;">
<span style="white-space: pre;">       </span> else if (tab[i,j]<10) and (tab[i,j]>-1) then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">        </span>  c:='      '</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">       </span> else c:='  ';</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">      </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">     </span>if j=1 then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">      </span>write(tab[i,j],c)</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">     </span>else if j=2 then write(tab[i,j])</div>
<div style="text-align: justify;">
<span style="white-space: pre;">      </span> else write(c,tab[i,j]);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">     </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
{program utama}</div>
<div style="text-align: justify;">
Begin</div>
<div style="text-align: justify;">
{memasukan nilai}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('a = ');readln(a);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('b = ');readln(b);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('c = ');readln(c);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('d = ');readln(d);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('w = ');readln(w);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('x = ');readln(x);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('y = ');readln(y);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('z = ');readln(z);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('memproses.......');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>delay(500);</div>
<div style="text-align: justify;">
{rumusnya ini}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,1]:=a-w;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,2]:=c+w+y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,3]:=b+x-y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,4]:=d-x;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,1]:=d+w-z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,2]:=b;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,3]:=c;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,4]:=a-w+z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,1]:=c-x+z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,2]:=a;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,3]:=d;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,4]:=b+x-z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,1]:=b+x;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,2]:=d-w-y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,3]:=a-x+y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,4]:=c+w;</div>
<div style="text-align: justify;">
{pemanggilan prosedur lukis tabel}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>lukistabel;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.</div>

Fungsi : Membuat tabel angka yang apabila nilai tabel dalam satu baris, kolom, dan diagonal di jumlahkan hasilnya akan sama. Hint: jangan terlalu heran, semua sudah ada rumusnya. Tinggal masukan an...

01Mar2014

Program Array (Pendataan Mahasiswa)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi: Mendata data mahasiswa, atau apalah dengan array dan menampilkannya.</div>
<div style="text-align: justify;">
Hint: Intinya adalah membuat array di record.</div>
Screen shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivf6bgarLgJpdcL1Yn_XRbE-OiDi6Gacq23XEgb97tLAtWvugkqqFHXKz_aH7LGXkwxV2-KwreUZYj53OjIly-yq7TnU-mg4kkqQ5kh8U3PZ-1Mug7F_PJXisUvipfY9f6G3i0BuF-88U/s1600/7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivf6bgarLgJpdcL1Yn_XRbE-OiDi6Gacq23XEgb97tLAtWvugkqqFHXKz_aH7LGXkwxV2-KwreUZYj53OjIly-yq7TnU-mg4kkqQ5kh8U3PZ-1Mug7F_PJXisUvipfY9f6G3i0BuF-88U/s1600/7.jpg" /></a></div>
<div style="text-align: justify;">
program mhsw;</div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
type mahasiswa=record</div>
<div style="text-align: justify;">
               nama,nim,kelas:string;</div>
<div style="text-align: justify;">
               end;</div>
<div style="text-align: justify;">
var m:array[1..41] of mahasiswa;</div>
<div style="text-align: justify;">
       j,i:integer;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('Jumlah mahasiswa yang mendaftar : ');readln(j);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to j do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Mahasiswa ',i,':');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> write('Nama       : ');readln(m[i].nama);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> write('Nim        : ');readln(m[i].nim);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> write('Kelas      : ');readln(m[i].kelas);</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">   </span>writeln;</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">   </span>writeln;</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">  </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('==================================');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('DATA MAHASISWA KOMPUTOK');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('==================================');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to j do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> <span style="white-space: pre;"> </span>writeln('Mahasiswa ',i,':');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Nama       : ',m[i].nama);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Nim        : ',m[i].nim);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Kelas      : ',m[i].kelas);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.</div>

Fungsi: Mendata data mahasiswa, atau apalah dengan array dan menampilkannya. Hint: Intinya adalah membuat array di record. Screen shot : program mhsw; uses crt; type mahasiswa=record ...

01Mar2014

Program Array (Penjumlah Matrix)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Menjumlahkan dua matriks 3x3 yang diinputkan</div>
<div style="text-align: justify;">
Hint: Masukan nilai matriks di tiap-tiap baris dan kolom.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGmsea_XJ1BpS41osl2w9E2J8RzcF209d60wyZUva6tnZLDsIPvpXeNFxFzf5pzD0mAHfL9NbfU1Rp0l16fEJzHFnLI_q7cWtxY7PBDbe7YQ31eO8f5BWrFj2AXPdSf4P1qywx2aIcc7k/s1600/6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGmsea_XJ1BpS41osl2w9E2J8RzcF209d60wyZUva6tnZLDsIPvpXeNFxFzf5pzD0mAHfL9NbfU1Rp0l16fEJzHFnLI_q7cWtxY7PBDbe7YQ31eO8f5BWrFj2AXPdSf4P1qywx2aIcc7k/s1600/6.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
 var m1,m2,mp:array[1..10,1..10] of integer;</div>
<div style="text-align: justify;">
       i,j,k,l:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
{Menginput nilai matriks}</div>
<div style="text-align: justify;">
  writeln('Matriks ke 1');</div>
<div style="text-align: justify;">
  for i:=1 to 3 do</div>
<div style="text-align: justify;">
    for j:=1 to 3 do</div>
<div style="text-align: justify;">
       begin</div>
<div style="text-align: justify;">
          write('m1[',i,',',j,'] : ');readln(m1[i,j]);</div>
<div style="text-align: justify;">
       end;</div>
<div style="text-align: justify;">
  writeln;</div>
<div style="text-align: justify;">
  writeln('Matriks ke 2');</div>
<div style="text-align: justify;">
  for i:=1 to 3 do</div>
<div style="text-align: justify;">
       for j:=1 to 3 do</div>
<div style="text-align: justify;">
         begin</div>
<div style="text-align: justify;">
           write('m2[',i,',',j,'] : ');readln(m2[i,j]);</div>
<div style="text-align: justify;">
         end;</div>
<div style="text-align: justify;">
  writeln;</div>
<div style="text-align: justify;">
{jumlahkan}</div>
<div style="text-align: justify;">
 begin</div>
<div style="text-align: justify;">
  for i:=1 to 3 do</div>
<div style="text-align: justify;">
    for j:=1 to 3 do</div>
<div style="text-align: justify;">
       begin</div>
<div style="text-align: justify;">
          mp[i,j]:=m1[i,j]+m2[i,j];</div>
<div style="text-align: justify;">
       end;</div>
<div style="text-align: justify;">
 {lukis hasil penjumlahan}</div>
<div style="text-align: justify;">
 writeln('Hasil Penambahan = ');</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
    for i:=1 to 3 do</div>
<div style="text-align: justify;">
      begin</div>
<div style="text-align: justify;">
       writeln;</div>
<div style="text-align: justify;">
       for j:=1 to 3 do</div>
<div style="text-align: justify;">
         write(mp[i,j],' ');</div>
<div style="text-align: justify;">
      end;</div>
<div style="text-align: justify;">
readln;</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
</div>

Fungsi : Menjumlahkan dua matriks 3x3 yang diinputkan Hint: Masukan nilai matriks di tiap-tiap baris dan kolom. Screen Shot : uses crt; var m1,m2,mp:array of integer; i,j,k,l:integer;...

01Mar2014

Program Array (Mencari angka kelipatan 3)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi :Mencari angka kelipatan 3 dari sekumpulan angka yang diinputkan.</div>
<div style="text-align: justify;">
Hint: Masukan angka dan masukan -1 untuk berhenti, otomatis hasil akan ditampilkan.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDe6woZ2k6mQst5jWxyXABLGuYy4j4E6toYM0L9hBCAw20MTMLbjuwxBzwAThsZOnfKHOTp6z8T2QK0oFxolYkBGUagccvO4Mi_NL3KVfyTTvY-alIzwqVr81GFb8S_tzyPIRG9WJmkfs/s1600/5.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDe6woZ2k6mQst5jWxyXABLGuYy4j4E6toYM0L9hBCAw20MTMLbjuwxBzwAThsZOnfKHOTp6z8T2QK0oFxolYkBGUagccvO4Mi_NL3KVfyTTvY-alIzwqVr81GFb8S_tzyPIRG9WJmkfs/s1600/5.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
 var a,b:array[1..10] of integer;</div>
<div style="text-align: justify;">
        i,j,k,l:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
       {memasukan angka}</div>
<div style="text-align: justify;">
   j:=1;</div>
<div style="text-align: justify;">
   repeat</div>
<div style="text-align: justify;">
     write('angka ke-',j,': ');readln(a[j]);</div>
<div style="text-align: justify;">
      j:=j+1;</div>
<div style="text-align: justify;">
   until a[j-1]=-1;</div>
<div style="text-align: justify;">
   {menentukan mana yang kelipatan 3}</div>
<div style="text-align: justify;">
   for k:=1 to j do</div>
<div style="text-align: justify;">
     begin</div>
<div style="text-align: justify;">
        if a[k] mod 3=0 then</div>
<div style="text-align: justify;">
           b[k]:=a[k];</div>
<div style="text-align: justify;">
      end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>{Menampilkan mana yang kelipatan tiga}</div>
<div style="text-align: justify;">
  write('angka kelipatan 3 adalah : ');</div>
<div style="text-align: justify;">
  for i:=1 to (j-1) do</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
       if b[i]<>0 then</div>
<div style="text-align: justify;">
         write(b[i],', ');</div>
<div style="text-align: justify;">
     end;</div>
<div style="text-align: justify;">
  readln;</div>
end.</div>

Fungsi :Mencari angka kelipatan 3 dari sekumpulan angka yang diinputkan. Hint: Masukan angka dan masukan -1 untuk berhenti, otomatis hasil akan ditampilkan. Screen Shot : uses crt; var a,b:arr...

01Mar2014

Program Penjumlah Pecahan

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Menjumlahkan 2 buah pecahan.</div>
<div style="text-align: justify;">
Hint:  Tinggal masukan saja penyebut dan pembilang.</div>
Screenshot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0dHlJxnVwlJjPvPFqz1zl8aegNpk9ztJPAzf2vcsBlIkiNUbnbD4p9lIDhR53YbjT51nkLm58bgtl852QNIWUkSHVMcucJ3s0vXRyMmTzzX1ielsB3nMGVi-wtyw8MBPhohslQpmTRO4/s1600/4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0dHlJxnVwlJjPvPFqz1zl8aegNpk9ztJPAzf2vcsBlIkiNUbnbD4p9lIDhR53YbjT51nkLm58bgtl852QNIWUkSHVMcucJ3s0vXRyMmTzzX1ielsB3nMGVi-wtyw8MBPhohslQpmTRO4/s1600/4.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var pemi,pemII,penyi,penyII:integer;</div>
<div style="text-align: justify;">
      j,k:integer;</div>
<div style="text-align: justify;">
function pemb(a,c:integer):integer;</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
       j:=penyii;</div>
<div style="text-align: justify;">
       k:=penyi;</div>
<div style="text-align: justify;">
       pemb:=a*j+k*c;</div>
<div style="text-align: justify;">
    end;</div>
<div style="text-align: justify;">
function peny(b,d:integer):integer;</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
     peny:=b*d;</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
    writeln('Pecahan 1 ');</div>
<div style="text-align: justify;">
    write('Pembilang i :');readln(pemi);</div>
<div style="text-align: justify;">
    write('Penyebut i :');readln(penyI);</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
    write('Pecahan 2 ');</div>
<div style="text-align: justify;">
    write('Pembilang ii :');readln(pemII);</div>
<div style="text-align: justify;">
    write('Penyebut II: ');readln(penyII);</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
    writeln('maka hasil dari 
pertambahan ',pemi,'/',penyI,'+',pemii,'/',penyII,' adalah 
',pemb(pemi,pemii),'/',peny(penyi,penyii));</div>
<div style="text-align: justify;">
readln;</div>
end.</div>

Fungsi : Menjumlahkan 2 buah pecahan. Hint: Tinggal masukan saja penyebut dan pembilang. Screenshot : uses crt; var pemi,pemII,penyi,penyII:integer; j,k:integer; function pemb(a,c:inte...

01Mar2014

Program Menghitung Waktu Gerhana

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Menghitung tanggal gerhana pada bulan tertentu dengan rumus yang sudah ada.</div>
<div style="text-align: justify;">
Hint: Sebenarnya intinya hanya 
membuat prosedur yang menampilkan jumlah hari dalam bulan 
tertentu..waktu gerhana ini sebagai tambahan saja.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAB5A3oxImjGx0J6x0VYf5FUpZsPxNuIXIJ4oXXJH3oDgKuyQFZVBuy7lKlWMHkvEvWeyT-U0_T_oqFW9UdurwwVoRT9zEJ54XZ60Vpfk_ln23eNcmXCqJFdvjInSCUbwNnfGpiunw0I4/s1600/3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAB5A3oxImjGx0J6x0VYf5FUpZsPxNuIXIJ4oXXJH3oDgKuyQFZVBuy7lKlWMHkvEvWeyT-U0_T_oqFW9UdurwwVoRT9zEJ54XZ60Vpfk_ln23eNcmXCqJFdvjInSCUbwNnfGpiunw0I4/s1600/3.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var b,ha,ger:integer;</div>
<div style="text-align: justify;">
      bul:string;</div>
<div style="text-align: justify;">
procedure maks(s:integer);</div>
<div style="text-align: justify;">
    var y,k:integer;</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
      case s of</div>
<div style="text-align: justify;">
        1,3,5,7,8,10,12:ha:=31;</div>
<div style="text-align: justify;">
        4,6,9,11:ha:=30;</div>
<div style="text-align: justify;">
        2:begin</div>
<div style="text-align: justify;">
            write('masukan tahun ');readln(y);</div>
<div style="text-align: justify;">
            k:=y mod 4;</div>
<div style="text-align: justify;">
            if k=0 then</div>
<div style="text-align: justify;">
              ha:=28</div>
<div style="text-align: justify;">
           else ha:=29;</div>
<div style="text-align: justify;">
           end;</div>
<div style="text-align: justify;">
      else writeln('Bulan salah!!!');readln;exit;</div>
<div style="text-align: justify;">
    end;</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
procedure hitung(bee:integer);</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
     ger:=bee-(2*b);</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
   write('masukan bulan ke- :');readln(b);</div>
<div style="text-align: justify;">
   maks(b);</div>
<div style="text-align: justify;">
   hitung(ha);</div>
<div style="text-align: justify;">
   write('Gerhana bulan ');</div>
<div style="text-align: justify;">
   case b of</div>
<div style="text-align: justify;">
       1 : WRITE('Januari');</div>
<div style="text-align: justify;">
       2:WRITE('Februari');</div>
<div style="text-align: justify;">
       3:WRITE('Maret');</div>
<div style="text-align: justify;">
       4:WRITE('April');</div>
<div style="text-align: justify;">
       5:WRITE('Mei');</div>
<div style="text-align: justify;">
       6:WRITE('Juni');</div>
<div style="text-align: justify;">
       7:write('Juli');</div>
<div style="text-align: justify;">
       8:WRITE('Agustus');</div>
<div style="text-align: justify;">
       9:write('September');</div>
<div style="text-align: justify;">
       10:write('Oktober');</div>
<div style="text-align: justify;">
       11:WRITE('November');</div>
<div style="text-align: justify;">
       12:WRITE('desemberrrr');</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
   writeln(' terjadi pada hari ke-',ger);</div>
<div style="text-align: justify;">
readln;</div>
<div style="text-align: justify;">
end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
</div>

Fungsi : Menghitung tanggal gerhana pada bulan tertentu dengan rumus yang sudah ada. Hint: Sebenarnya intinya hanya membuat prosedur yang menampilkan jumlah hari dalam bulan tertentu..waktu gerha...

01Mar2014

Program Mencari Penyelesaian Fungsi Kuadrat

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Mengitung nilai persamaan kuadrat bila nilai x diketahui</div>
<div style="text-align: justify;">
Hint: Masukan  nilai a,b,c  dan nilai x.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEif2BESt4djBurF5C-Nm0aZNkLXluLzUUN3BQ9fAj2madc4LjF8AhsHDwJuvXcV9fsXDoFFcIW4FmwhNL7_qKeGK55Ft1uz5J_YJ2Vf0xrYu9YTfctQJF605d2vOAsKbwmif6PVJXNinSI/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEif2BESt4djBurF5C-Nm0aZNkLXluLzUUN3BQ9fAj2madc4LjF8AhsHDwJuvXcV9fsXDoFFcIW4FmwhNL7_qKeGK55Ft1uz5J_YJ2Vf0xrYu9YTfctQJF605d2vOAsKbwmif6PVJXNinSI/s1600/2.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var x,y,z,s:integer;</div>
<div style="text-align: justify;">
function fungsi(a,b,c,x:integer):integer;</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
       fungsi:=a*(x*x)-b*x+c;</div>
<div style="text-align: justify;">
    end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
   write('masukan a : ');readln(x);</div>
<div style="text-align: justify;">
   write('masukan b : ');readln(y);</div>
<div style="text-align: justify;">
   write('masukan c : ');readln(z);</div>
<div style="text-align: justify;">
   write('masukan x : ');readln(s);</div>
<div style="text-align: justify;">
   writeln('f(x)=',x,'(x^',x,'2)-',y,'x+',z);</div>
<div style="text-align: justify;">
   writeln('f(',s,') =',fungsi(x,y,z,s));</div>
<div style="text-align: justify;">
   readln;</div>
<div style="text-align: justify;">
end.</div>
</div>
</div>

Fungsi : Mengitung nilai persamaan kuadrat bila nilai x diketahui Hint: Masukan nilai a,b,c dan nilai x. Screen Shot : uses crt; var x,y,z,s:integer; function fungsi(a,b,c,x:integer):intege...

01Mar2014

Program Prosedur dan Fungsi (Dilatasi)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Mengalikan dua buah angka yang dimasukan dengan angka tertentu.</div>
<div style="text-align: justify;">
Hint<span style="white-space: pre;"> </span>: -</div>
Screenshot Output:<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQB7txkUWYwv2Iqhv2hWYVQf0HjJgkwcIgDs3bp2hYl3vGXLU-XGzwtfr8ybqWegBZO9ZsIJ0WdMopAUZrVijUnajEF7y-Mo2UE_OJgAzwjAlS_ggH6DFXtsg4IphVdJQG83FddFngMpk/s1600/Dilatasi.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="60" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQB7txkUWYwv2Iqhv2hWYVQf0HjJgkwcIgDs3bp2hYl3vGXLU-XGzwtfr8ybqWegBZO9ZsIJ0WdMopAUZrVijUnajEF7y-Mo2UE_OJgAzwjAlS_ggH6DFXtsg4IphVdJQG83FddFngMpk/s1600/Dilatasi.jpg" width="320" /></a></div>
<br />
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var absis,ordinat,pengali:integer;</div>
<div style="text-align: justify;">
procedure dilat(a,b,peng:integer);</div>
<div style="text-align: justify;">
   var c,d:integer;</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
    c:=a*peng;</div>
<div style="text-align: justify;">
    d:=b*peng;</div>
<div style="text-align: justify;">
    writeln('(',c,',',d,')');</div>
<div style="text-align: justify;">
  <span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
  writeln('Kordinat Awal');</div>
<div style="text-align: justify;">
  write('Absis : ');readln(absis);</div>
<div style="text-align: justify;">
  write('Ordinat : ');readln(ordinat);</div>
<div style="text-align: justify;">
  writeln;</div>
<div style="text-align: justify;">
  write('masukan faktor pengali ');readln(pengali);</div>
<div style="text-align: justify;">
  write('Kordinat (',absis,',',ordinat,') setelah didilatasikan terhadap faktor ',pengali,' menjadi ');</div>
<div style="text-align: justify;">
  dilat(absis,ordinat,pengali);</div>
<div style="text-align: justify;">
  readln;</div>
end.<br />
<br /></div>

Fungsi : Mengalikan dua buah angka yang dimasukan dengan angka tertentu. Hint : - Screenshot Output: uses crt; var absis,ordinat,pengali:integer; procedure dilat(a,b,peng:integer); var c,...

01Mar2014

Program Matrix

Unknown March 01, 2014 Tutorial Turbo-Pascal

program Matrix; uses crt; var a:Array of integer; baris,kolom:integer; begin write('jumlah baris : ');readln(baris); write('jumlah kolom : ');readln(kolom); for baris:=1...

01Mar2014

DASAR - DASAR PEMROGRAMAN TURBO PASCAL

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<b>a. </b><b>Nama Program</b><br />
Untuk keperluan dokumentasi, suatu program dapat diberi nama.  Nama 
program ini bersifat optional (boleh ada boleh tidak).  Jika akan 
diberikan nama program, maka syntaknya sebagai berikut :<br />
Syntax :<br />
<b>Program NamaProgram;</b><br />
NamaProgram mempunyai ketentuan sebagai berikut :<br />
o          Karakter pertama harus <i>Abjad</i>.<br />
o          Karakter kedua dan seterusnya yang diijinkan adalah <i>Abjad</i>, <i>Angka</i> dan <i>Garis</i> <i>Bawah</i> ( _ ).<br />
(aturan ini berlaku UMUM untuk : <i>Nama Program</i>, <i>Nama Constanta</i>,  <i>Nama Type Data</i>, <i>Nama Variabel</i>, <i>Nama Fungsi</i> dan  <i>Nama Procedure</i>)<br />
<b> </b><br />
<b>b. </b><b>Variable</b><br />
Variabel adalah suatu “wadah data” yang harus dideklarasikan dibagian
 deklarasi variabel sebelum dipakai dalam program.  Inilah salah satu 
perbedaan pokok antara PASCAL dengan BASIC.  Di dalam BASIC kita dapat 
memakai sembarang nama variable tanpa pusing-pusing “memesan” dulu.  
Tetapi di dalam PASCAL, variabel yang akan dipakai harus “dipesan” dulu 
dengan dideklarasikan dalam deklarasi variabel.<br />
Syntax :<br />
<b> </b><b>Var   NamaVariable :  TipeVariable;</b><br />
<b> </b><br />
Di dalam program selanjutnya variabel dapat diisi data, dengan cara<i> ditugasi langsung</i> atau <i>dibaca dari keyboard.</i><br />
Berikut adalah Type Variable dalam PASCAL yang dapat dipilih<br />
<br />
<table border="0" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td valign="top" width="140">Type Variable</td>
<td valign="top" width="217">Kisaran Nilai</td>
<td valign="top" width="161">Ukuran Memory   (Byte)</td>
</tr>
<tr>
<td valign="top" width="140">Byte
Word<br />
ShortInt<br />
Integer<br />
LongInt<br />
Real</td>
<td valign="top" width="217">0  …    255
0 … 65535<br />
-128 … 127<br />
-32768 … 32757<br />
-2147483648 … 2147483648<br />
1 E-38 … 1E+38</td>
<td valign="top" width="161">1
2<br />
1<br />
2<br />
4<br />
6</td>
</tr>
<tr>
<td valign="top" width="140">Single
Double<br />
Extended</td>
<td valign="top" width="217">1.5 E-45 … 1.5 E+45
5.0 E-324 … 5.0 E+308<br />
1.9E-4951 … 1.1E+4932</td>
<td valign="top" width="161">4
8<br />
10</td>
</tr>
<tr>
<td valign="top" width="140">Boolean
Char<br />
String</td>
<td colspan="2" valign="top" width="378">Kondisi TRUE, FALSE
satu karakter ‘a’, ‘b’,…,’z’,   ‘0’,’1’,…,’9’,’^’,dll<br />
rangkaian karakter seperti hari   <img alt=":(" class="wp-smiley" src="http://s0.wp.com/wp-includes/images/smilies/icon_sad.gif?m=1129645325g" />  ‘senin’, ‘selasa’ ,dst)</td>
</tr>
<tr>
<td valign="top" width="140">Array
Record<br />
File<br />
Set<br />
Pointer</td>
<td colspan="2" valign="top" width="378">Larik karakter , numerik atau   demensi
Numerik, string, char<br />
Numerik, string, larik, record<br />
Data ordinal<br />
Alamat memori (menunjukkan   letrak data di memori)</td>
</tr>
</tbody>
</table>
<br />
<b>a. </b><b>Type Data</b><br />
Deklarasi Type Data dipakai apabila kita akan mendefinisikan suatu Type Data kita diluar Type Data standard PASCAL.<br />
Cara mendeklarasikan adalah :<br />
<b> </b><b>Type   NamaTypeData = TypeDataPASCAL;</b><br />
<b> </b><br />
<b>b. </b><b>Constanta</b><br />
Konstanta adalah suatu nilai data yang bersifat tetap selama progarm 
dijalankan (“run time”). Konstanta dideklarasikan dengan cara :<br />
Syntax :<br />
<b> </b><b>Const   NamaKonstanta = NilaiData;</b><br />
Yang harus diingat adalah bahwa antara nama konstanta dengan nilai data dipisahkan tanda  <b>=</b> (Sama Dengan).<br />
<b>c. </b><b>Unit</b><br />
Unit adalah suatu satuan kumpulan instruksi  yang harus diaktifkan 
jika instruksi yang bersangkutan akan dipakai. Di dalam PASCAL ada 4 
unit yang sering dipakai yaitu <b><i>CRT</i></b> (berhubungan dengan perintah-perintah pengaturan layar), <b><i>PRINTER</i></b> (berhubungan dengan media cetak printer), <b><i>DOS</i></b> (berhubungan dengan perintah berkaitan dengan DOS) dan <b><i>GRAPH</i></b> (perintah-perintah grafik).<br />
Sebagai contoh : <b>Clrscr</b>, adalah prosedur untuk membersihkan layar yang ada di dalam unit CRT, maka untuk dapat memakai Clrscr, unit Crt harus di ‘<b><i>Uses</i></b>‘ dalam deklarasi unit.  <b>Uses Crt</b> dan  <b>Clrscr</b>,
 merupakan pasangan dalam arti Clrscr adalah suatu prosedur PASCAL yang 
menghendaki dideklarasikannya unit namanya CRT, dengan cara Uses Crt.  
Prosedur lain yang memerlukan unit Crt antara lain <i>Gotoxy(x,y)</i>, <i>DelLine</i>, <i>InsLine</i> dan lain-lain yang akan dibahas kemudian.<br />
<b> </b><br />
<b>d. </b><b>Label</b><br />
Label adalah suatu nama tertentu (dapat terdiri angka atau huruf atau
 kombinasinya), yang dalam program nanti akan dituju oleh statemen <i>GOTO</i>.  Namun dalam PASCAL sesungguhnya statement <i>GOTO</i>
 ini hanya diijinkan tetapi sama sekali TIDAK DIANJURKAN.  Karena 
statemen Goto menyebabkan struktur program menjadi tidak jelas.<br />
<b>e. </b><b>Fungsi dan Procedure</b><br />
Pemrograman PASCAL yang terstruktur menghendaki pemecahan masalah 
menjadi modul-modul yang lebih kecil.  Modul ini nanti dapat 
diimplementasikan melalui fungsi atau prosedur, sehingga program utama 
hanyalah bertugas mengelola pemanggilan fungsi dan prosedur yang sudah 
dideklarasikan.  Pada topik fungsi dan prosedur, deklarasi ini  akan 
dikupas lebih jauh.<br />
<b>h. </b><b>Procedure Write dan Writeln</b><br />
Procedure Write dan Writeln digunakan untuk mencetak suatu  
konstanta, variable, ekspresi atau kombinasi dua atau ketiganya, dapat 
berupa konstanta string atau konstanta numerik.<br />
Syntax :<br />
<b> Write(‘kontanta’, ‘ekspresi’, ‘variabel’) </b><br />
<b> Writeln(‘konstanta’, ‘ekspresi’, ‘variabel’)</b><br />
<br />
Rangkaian karakter yang <span style="text-decoration: underline;">diapit tanda petik tunggal</span> (‘ …..karakter …’)<br />
<i>Write</i> :     akan mencetak dan  posisi kursor pada baris yang sama.<br />
<i>Writeln</i> :    mencetak dan kursor akan turun satu baris, ke awal  baris.<br />
<b><i>Example 1:</i></b><br />
Begin<br />
Write(‘Halo ‘);<br />
Write(‘  PASCAL’); Writeln;<br />
Write(‘HALO’);<br />
Write(‘   PASCAL’); Writeln;<br />
Writeln(‘Halo’);<br />
Writeln(‘PASCAL’);<br />
Readln;<br />
End.<br />
<b><i>Hasil Run :</i></b><br />
Halo   PASCAL<br />
HALO   PASCAL<br />
Halo<br />
PASCAL<br />
<br />
<b>h. </b><b>Procedure Read dan Readln</b><br />
Prosedur Read dan Readln adalah untuk membaca data DARI KEYBOARD 
dengan hasil pembacaan akan ditampung dalam variabel yang ada dalam 
argumen Read dan Readln tersebut.<br />
Syntax :<br />
<b>Read(NamaVar1, NamaVar2, …);</b><br />
<b>Readln(NamaVar1, NamaVar2, …);</b><br />
<br />
Tidak seperti Write atau Writeln dimana argumen (apa-apa yang ada 
dalam tanda kurung), dapat terdiri dari konstanta, variabel atau 
ekspresi, maka argumen Read atau Readln hanya dapat berupa <i>Variable-Variable</i> yang dapat satu atau lebih, yang sudah dideklarasikan dalam deklarasi variable.  Data yang masuk haruslah sesuai dengan <i>Type Variable</i> yang bersangkutan.<br />
<b><i>Example 2:</i></b><br />
{file  : P12.Pas<br />
Nama         : Yuni   01.05.2000<br />
Tara   01.05.2005<br />
Hari/tgl/jam : Selasa, 10 01 01, 11.00<br />
Kelp./passw  : SL2-F/22F<br />
Ass          : Winnie}<br />
<br />
Program menghitung_bilangan;<br />
Uses Crt;;<br />
Var<br />
A,B,C : integer;<br />
P,Q   : real;<br />
Z     : string;<br />
<br />
Begin<br />
Clrscr;<br />
A := 4; B:= 5; C:=A*B;<br />
Z:= ‘SMKPGRI1NGAWI’;<br />
Writeln(A,B,C);<br />
Writeln(‘ISI Z = ’,Z);<br />
Readln<br />
End.<br />
<b><i>Hasil Run:</i></b><br />
4520<br />
ISI Z = SMKPGRI1NGAWI<br />
<br />
<b><i>Example:</i></b><br />
{file : P12A.Pas<br />
Nama         : Yuni   02.05.2000<br />
Tara   02.05.2005<br />
Hari/tgl/jam : Selasa, 01 10 02, 11.00<br />
Kelp./passw  : SL2/22F<br />
Ass          : Winnie}<br />
<br />
Program menghitung_bilangan;<br />
Uses Crt;<br />
Var<br />
A,B,C : integer;<br />
P,Q   : real;<br />
Z     : string;<br />
<br />
Begin<br />
Clrscr;<br />
A := 4; B:= 5; C:=A*B;<br />
Z:=’SMKPGRI1NGAWI’;<br />
Writeln(‘A=’,A:5, ‘B=’,B:5, ‘C=’,C:5);<br />
Writeln(‘ISI Z=’,Z:10);<br />
Readln;<br />
End.<br />
<b><i> Hasil Run:</i></b><br />
A=    4    B=    5    C=   20<br />
ISI Z =   SMKPGRI1NGAWI</div>

a. Nama Program Untuk keperluan dokumentasi, suatu program dapat diberi nama. Nama program ini bersifat optional (boleh ada boleh tidak). Jika akan diberikan nama program, maka syntaknya sebagai ...

01Mar2014

Load More Post

R2 Blog

Labels

Comment

Technology

March 2014

Cara Membuat WiFi LAPTOP menjadi HOTSPOT dengan CMD (Command Prompt)

Cara install Mysql Server 5.5.15 di Windows 7

Perbaiki Windows 7 Setelah Menghapus Windows Xp (Dual Boot) / fix mbr / boot mgr

Cara Mengatasi Wifi Netbook Lenovo Ideapad S10-3 / Lenovo S10-3 Gak bisa konek

Tutorial VB6 Lengkap

Windows Explorer Tidak Bisa Dibuka / Icon Blank / Icon Menjadi Putih Semua

Program KHS Mahasiswa

Program Pencari Pembagi

Program Iterasi (Melukis Z)

Program Iterasi (Tebak Angka)

Program Iterasi (Jumlah Pangkat)

Program Iterasi (Angka)

Program Array (Fibbonaci Generator)

Program Array (Tabel Ajaib)

Program Array (Pendataan Mahasiswa)

Program Array (Penjumlah Matrix)

Program Array (Mencari angka kelipatan 3)

Program Penjumlah Pecahan

Program Menghitung Waktu Gerhana

Program Mencari Penyelesaian Fungsi Kuadrat

Program Prosedur dan Fungsi (Dilatasi)

Program Matrix

DASAR - DASAR PEMROGRAMAN TURBO PASCAL

Author Name

Contact Form