Capaian yang harus aku kerjakan di tahun 2018:
- Lancar hafalan
- Belajar bahasa inggris untuk syarat internasionalisasi
- Buat animasi untuk mengikuti BDI Denpasar
- Aktif kelas decoding untuk menambah skill programmer
- Keluar Negeri guna pelatihan atau lomba
- Jangan males mengerjakan tugas-tugas kuliah, biar maksimalkan......
ya Allah...
Lancarkanlah segala urusan hamba-Mu ini...
Sehatkanlah laptop hamba, normalkanlah....karna hamba seddih jika tanpa barang satu ini :/
Rumah Pencari Ilmu
Rabu, 25 April 2018
Senin, 02 April 2018
TIPS AND TRICK FOR PROGRAMMING
Assalamu'alaikum wr wb.........
Selamat siang menjelang sore guys...
Sebagai pembuka gue mau crita dulu ya guys...kali ini gue menulis dalam keadaan kepengin nangis..., ceritanya nih..sejak kemarin gue keinget yang di Bandung, especially pada saat program PERMATA itu tuuh...,dari mulai stalker instagram dan you tube mereka, chatt whattshap, sampe yg satu ini nih..yg bikin gue sedih.. apa itu? "flashdisk sandisk dengan gantungan kunci dinamik" pemberian mahasiswa Bandung sebagai kenang2an.
yang jadi pertanyaan kenapa sebuah flashdisk dapat membuat saya ingin menangis dan gregett bgt rasanya? yapz itu karna isinya guys...
bayangin aja wis... 16 GB sisa 3 GB,
eiits... kembali ke tujuan gue nulis blog ini ya guys..
gue pengin ng'share 1 file dari sekian file yang ada difd tersebut,, khususnya buat yang lagi belajar di Ilmu Komputer..perhatikan dg seksama ya guys....
Semoga Bermanfaat !!!
"-------------------| README.txt |
| Made by : MNF |
-------------------
> May this flashdisk useful for you
> In this fd there are my promgramming folder, maybe some of this can help or can be reference
> And i give you some tools and program that may useful too for you (Install sublime text for coding, its very useful text editor with so much plugin)
> TIPS AND TRICK FOR PROGRAMMING
- Always googling when stuck
- Always googling with english
- Open stackoverflow
- Some of this web maybe helpful
-> w3school
-> codecademy
-> codepolitan
-> stackoverflow
-> androidhive
-> Every framework or language official website (read the documentation)
- Important language for college
-> C
-> Java
-> HTML + CSS
-> PHP (with the framework [get CI first then Laravel])
-> SQL
- Study about OOP
- Always think logic not memorize
- Always 'ngulik'
- Advanced programming
-> Get AI
-> Machine Learning
-> Mobile Programming
-> Study JavaScript and Python
-> Study framework
- Role in programming life
-> Backend (Think about code, logic, database)
-> Frontend (Think about design, UX, and color)
-> *Businessman (not so important but important in Startup)
> I want to give you some certificate for my thanks to you that has helped us in some event. But so sorry i cant print it well then i give you the softcopy here.
> Last i want to say Thank You very much for coming to Ilkom UPI especially become a part of KEMAKOM. May your experience and your knowledge here useful for your future and for your career and become a unforgettable memories. And i represent of my friend want to say sorry if we are not really help and accompany you when you are in here. Come here again everytime when you want insyaAllah we can accompany you better next time. See ya may Allah always give the best way for you :)
- M. N----l F------i (Ketua BEM KEMAKOM 2017 / 2018)
Senin, 27 November 2017
Cara Setting Mikrotik hAP Lite Classic RB941-2nD
Cara Setting Mikrotik hAP Lite Classic RB941-2nD
RouterBoard hAP Lite Classic
RB941-2nD memiliki antarmuka sebagai berikut.
1. Sumber daya (5V 0.7A).
1. Sumber daya (5V 0.7A).
Sumber daya ini yang menjadi
perantara ke listrik agar mendapatkan daya untuk mikrotik.
2. Tombol Reset / WPS.
2. Tombol Reset / WPS.
Tombol Reset/WPS ini berfungsi untuk
mengembalikan mikrotik ke pengaturan semula, caranya yaitu dengan memasukkan
alat berbentuk seperti jarum ( boleh memakai jarum ) ke dalam tombol reset
setelah mikrotik dihubungkan sumber dayanya ke listrik, tekan alat tersebut
hinga lampu indikator ACT yang semula menyala berubah jadi kedap-kedip, setelah
lampu indikator ACT kedap-kedip langsung cabut alat tersebut dan mikrotik telah
selesai di reset.
3. Lampu indikator kerja (ACT).
3. Lampu indikator kerja (ACT).
Lampu ini berfungsi sebagai indikator
di suatu kondisi tertentu pada mikrotik, seperti mereset mikrotik.
4. Lampu indikator daya (PWR).
4. Lampu indikator daya (PWR).
Lampu ini berfungsi sebagai
indikator daya pada mikrotik.
5. Antarmuka RJ45 (1, 2, 3, 4).
5. Antarmuka RJ45 (1, 2, 3, 4).
Antarmuka RJ45 ini sebagai perantara
kabel RJ45. Biasanya yang nomor 1 digunakan untuk perantara internet.
6. Antarmuka nirkabel (tidak terlihat pada Gambar diatas).
6. Antarmuka nirkabel (tidak terlihat pada Gambar diatas).
Dalam mengatur MikroTik RouterOS
pada MikroTik RouterBoard, terdapat tiga cara utama untuk
melakukan konfigurasi sebagai berikut.
• Akses melalui Command Line Interface (CLI) menggunakan Telnet, SSH, atau kabel (serial / UTP).
• Akses melalui Graphical User Interface (GUI) menggunakan Web (WebFig).
• Akses melalui aplikasi WInBox.
melakukan konfigurasi sebagai berikut.
• Akses melalui Command Line Interface (CLI) menggunakan Telnet, SSH, atau kabel (serial / UTP).
• Akses melalui Graphical User Interface (GUI) menggunakan Web (WebFig).
• Akses melalui aplikasi WInBox.
Pada kesempatan kali ini saya akan memeberikan tutorial setting Mikrotik hAP Lite Classic RB941-2nD melalui kabel dan telnet. Berikut
adalah langkah-langkahnya, cermati dan ikuti dengan seksama ya..
1. Hubungkan terminal dengan port ethernet 2 pada perangkat MikroTik menggunakan kabel
UTP.
2. Buat jalur koneksi Telnet pada alamat 192.168.88.1.
3. Masukkan username “admin” pada Login dan biarkan Password kosong. Tekan Enter.
UTP.
2. Buat jalur koneksi Telnet pada alamat 192.168.88.1.
3. Masukkan username “admin” pada Login dan biarkan Password kosong. Tekan Enter.
4. selanjutnya mengatur
personalisasi perangkat mikrotik, tapi sebelumnya didalam mikrotik terdapat
pengaturan bawaan dan untuk melihatnya secara menyeluruh, gunakan perintah
berikut:
Setelah selesai, cobalah Login lagi dengan username dan
password yang
telah dibuat sebelumnya.
Untuk mengamankan perangkat MikroTik, ada baiknya untuk menonaktifkan user admin. Berikut perintah untuk menonaktifkan user admin:
Untuk mengamankan perangkat MikroTik, ada baiknya untuk menonaktifkan user admin. Berikut perintah untuk menonaktifkan user admin:
5. Selanjutnya mengatur antarmuka
perangkat mikrotik. Pada
pengaturan bawaan, tertera bahwa terdapat pengaturan bridge yang membuat antarmuka tidak
bebas. Hal ini membuat tiap antarmuka terkunci pada pengaturan bridge. Untuk memisahkan semua
antarmuka sehingga mampu memiliki pengaturan tersendiri, maka pengaturan bridge perlu
dinonaktifkan. Berikut teknik menonaktifkan pengaturan bridge secara aman:
bebas. Hal ini membuat tiap antarmuka terkunci pada pengaturan bridge. Untuk memisahkan semua
antarmuka sehingga mampu memiliki pengaturan tersendiri, maka pengaturan bridge perlu
dinonaktifkan. Berikut teknik menonaktifkan pengaturan bridge secara aman:
c. Membuat alamat statis pada antarmuka berikut.
1. Antarmuka ether2 (192.168.2.1/24).
2. Antarmuka ether3 (192.168.3.1/24).
3. Antarmuka ether4 (192.168.4.1/24).
4. Antarmuka wlan1 (192.168.5.1/24).
1. Antarmuka ether2 (192.168.2.1/24).
2. Antarmuka ether3 (192.168.3.1/24).
3. Antarmuka ether4 (192.168.4.1/24).
4. Antarmuka wlan1 (192.168.5.1/24).
e. Mengubah koneksi kabel dari port ether2
ke port ether3.
g. Melakukan komunikasi melalui Telnet ke
192.168.3.1.
h. Login dengan username dan password Anda.
6. Selanjutnya mengatur DHCP server
pada antarmuka perangkat mikrotik. Untuk
memudahkan pengaturan DHCP Server,
perangkat MikroTik telah dilengkapi dengan script
untuk mengatur DHCP Server. Script tersebut dapat diakses melalui perintah berikut:
untuk mengatur DHCP Server. Script tersebut dapat diakses melalui perintah berikut:
Berikut pengaturan DHCP Server yang akan diaplikasikan pada tiap antarmuka:
7. Selanjutnya mengatur
access point pada perangkat mikrotik
Pada pengaturan bawaan,
antarmuka nirkabel telah diatur sedemikian rupa sehingga Access Point
dapat berjalan. Oleh karena itu, yang perlu dilakukan dalam mengatur Access Point hanya mengubah
sebagian parameter dari pengaturan bawaan. Berikut langkah dalam mengatur Access Point pada
perangkat MikroTik dari pengaturan bawaan:
a. Tambahkan profil keamanan baru.
dapat berjalan. Oleh karena itu, yang perlu dilakukan dalam mengatur Access Point hanya mengubah
sebagian parameter dari pengaturan bawaan. Berikut langkah dalam mengatur Access Point pada
perangkat MikroTik dari pengaturan bawaan:
a. Tambahkan profil keamanan baru.
b. Mengubah pengaturan
antarmuka nirkabel sebagai berikut (Ubah SSID seunik mungkin agar tidak
terjadi tabrakan/kebingungan )
c. Coba hubungkan perangkat
nirkabel pada jaringan yang telah Anda ubah (Pada contoh ini, hubungkan
perangkat nirkabel pada “My Sample AP”
dengan key “9gagcute” (semua tanpa
tanda petik)).
tanda petik)).
8.
Selanjutnya pengaturan lanjutan pada perangkat mikrotik, meliputi beberapa fitur lanjutan pada perangkat MikroTik, yaitu
sebagai berikut:
a. Mengatur koneksi internet
menggunakan NAT dan Masquerade. Pada pengaturan bawaan, pengaturan Masquerade telah diatur pada antarmuka ether1 sehingga
perangkat MikroTik dapat langsung terhubung pada internet. Pengaturan yang dilakukan pada antarmuka
ether1 adalah sebagai berikut.
1. Atur agar antarmuka ether1 secara otomatis menerima IP dari ISP melalui DHCP Client.
perangkat MikroTik dapat langsung terhubung pada internet. Pengaturan yang dilakukan pada antarmuka
ether1 adalah sebagai berikut.
1. Atur agar antarmuka ether1 secara otomatis menerima IP dari ISP melalui DHCP Client.
b. Pembatasan akses
menggunakan Web Proxy, Dalam manajemen jaringan, ada kalanya akses jaringan
harus dibatasi karena alasan tertentu. Berikut
akan dijelaskan penggunaan Web Proxy untuk membatasi akses pada alamat www.youtube.com.
1. Aktifkan fitur Web Proxy.
akan dijelaskan penggunaan Web Proxy untuk membatasi akses pada alamat www.youtube.com.
1. Aktifkan fitur Web Proxy.
c. Pengaturan QOS, Kualitas
jaringan merupakan hal penting yang harus diatur oleh pemilik jaringan. Salah
satu cara yang digunakan ialah dengan memanfaatkan Quality Of Service (QOS) atau dikenal dengan istilah Bandwidth Management. MikroTik RouterOS menyediakan fasilitas bandwidth management melalui fitur Queue. Berikut
contoh untuk memberikan batas bandwidth pada
antarmuka wlan1 dengan batas maksimumunggah sebesar 128kbps dan batas maksimum
unduh sebesar 256kbps.
d. Pengaturan Hotspot, Pada
prinsipnya, hotspot merupakan
mekanisme untuk memberikan akses untuk client terhadap
beberapa sumber daya dalam jaringan (misalnya internet)3. Hotspot sendiri merupakan gabungan dari
beberapa layanan seperti DHCP server, firewall NAT, firewall filter, proxy, dan sebagainya. Contoh dari
penggunaan Hotspot ialah Hotspot wifi.id.
Berikut pengaturan hotspot sederhana dengan menggunakan pengaturan dari antarmuka wlan1 (Manajemen hotspot yang lebih kompleks memerlukan alat bantuan tambahan, seperti MikroTik API PHP package
atau PHPMixBill (GitHub)).
beberapa sumber daya dalam jaringan (misalnya internet)3. Hotspot sendiri merupakan gabungan dari
beberapa layanan seperti DHCP server, firewall NAT, firewall filter, proxy, dan sebagainya. Contoh dari
penggunaan Hotspot ialah Hotspot wifi.id.
Berikut pengaturan hotspot sederhana dengan menggunakan pengaturan dari antarmuka wlan1 (Manajemen hotspot yang lebih kompleks memerlukan alat bantuan tambahan, seperti MikroTik API PHP package
atau PHPMixBill (GitHub)).
Setelah selesai, hubungkan
perangkat nirkabel pada access point yang
telah diatur sebelumnya pada
antarmuka wlan1. Saat muncul laman login, masukkan detail login berikut (Jika laman tidak muncul, arahkan ke 192.168.5.1)
antarmuka wlan1. Saat muncul laman login, masukkan detail login berikut (Jika laman tidak muncul, arahkan ke 192.168.5.1)
..
Sekian tutorial yang dapat
saya sampaikan, semoga bermanfaat 😊
Salam Pencari Ilmu !!
Rabu, 22 November 2017
Konfigurasi Router pada CPT (Cisco Packet Tracer)
Assalamu'alaikum wr wb..
Akhirnya setelah sekian lama tidak aktif di blog, kini saya hadir kembali untuk berbagi sedikit ilmu mengenai cara Konfigurasi Router pada CPT (Cisco Packet Tracer).
yups..mungkin langsung saja ya..karena dikejar waktu ( duhh.. jangan ditiru dah deadliner macam saya ini, parah..parah.. :D , tapi bagi saya.. penting faham sih dalam mengerjakan :) )
oke..sebelumnya teman-teman harus tau nih.. apa saja yang perlu di persiapkan untuk belajar bagaimana cara mengkonfigurasi router. Yang pertama, teman-teman harus punya niat, karena sangat eman dong melakukan sesuatu tanpa niat, disamping mengharap pahala (belajar/menuntut ilmu) tapi juga mengharap barakah (agar ilmunya bermanfaat), Yang kedua, teman teman butuh namnya "cinta", iyups,,betul,, mengerjakan sesuatu tanpa cinta saya jamin dah..akan terasa membosankan, apalagi kali ini kita akan belajar mengkonfigurasi router, kalau dicoba berulang kali tidak connect-connect kan sebel banget, oleh karena itu jangan lupa dijalani dengan cinta. :) . selanjutnya yang ketiga, teman-teman harus punya CPT (bukan "cepat" kayak singkatan di sms ya.. melainkan Cisco Packet Tracer), iyup..karena CPT adalah media yang akan kita gunakan untuk mengkonfigurasi router. dan yang terakhir teman-teman, perhatikan langkah demi langkah tutorial dibawah ini dengan baik dan jangan sampai terlewatkan ya.. karena sangat penting demi connectnya jaringan hasil konfigurasi router teman-teman.
yup..langsung saja, berikut adalah langkah-langkah untuk mengkonfigurasi router, kali ini saya memberikan contoh menggunakan 3 router :
1. Buka Cisco Packet Tracer
2. Ambil 3 router PT, 3 switch PT, dan 9 PC (sesuai keinginan), seperti pada gambar berikut:
Akhirnya setelah sekian lama tidak aktif di blog, kini saya hadir kembali untuk berbagi sedikit ilmu mengenai cara Konfigurasi Router pada CPT (Cisco Packet Tracer).
yups..mungkin langsung saja ya..karena dikejar waktu ( duhh.. jangan ditiru dah deadliner macam saya ini, parah..parah.. :D , tapi bagi saya.. penting faham sih dalam mengerjakan :) )
oke..sebelumnya teman-teman harus tau nih.. apa saja yang perlu di persiapkan untuk belajar bagaimana cara mengkonfigurasi router. Yang pertama, teman-teman harus punya niat, karena sangat eman dong melakukan sesuatu tanpa niat, disamping mengharap pahala (belajar/menuntut ilmu) tapi juga mengharap barakah (agar ilmunya bermanfaat), Yang kedua, teman teman butuh namnya "cinta", iyups,,betul,, mengerjakan sesuatu tanpa cinta saya jamin dah..akan terasa membosankan, apalagi kali ini kita akan belajar mengkonfigurasi router, kalau dicoba berulang kali tidak connect-connect kan sebel banget, oleh karena itu jangan lupa dijalani dengan cinta. :) . selanjutnya yang ketiga, teman-teman harus punya CPT (bukan "cepat" kayak singkatan di sms ya.. melainkan Cisco Packet Tracer), iyup..karena CPT adalah media yang akan kita gunakan untuk mengkonfigurasi router. dan yang terakhir teman-teman, perhatikan langkah demi langkah tutorial dibawah ini dengan baik dan jangan sampai terlewatkan ya.. karena sangat penting demi connectnya jaringan hasil konfigurasi router teman-teman.
yup..langsung saja, berikut adalah langkah-langkah untuk mengkonfigurasi router, kali ini saya memberikan contoh menggunakan 3 router :
1. Buka Cisco Packet Tracer
2. Ambil 3 router PT, 3 switch PT, dan 9 PC (sesuai keinginan), seperti pada gambar berikut:
3. Sambungkan antar router dengan kabel Serial DTE yang berwarna merah, dan sambungkan antara PC dan switch / switch dan router dengan kabel Copper Straight - Through yang berwarna hitam, seperti gambar berikut:
4. Selanjutnya masukkan IP Address, namun sebelum memasukkan IP Address alangkah baiknya teman-teman ketahui dahulu table addressing yang sudah saya buat seperti berikut:
Keterangan:
- pada router 1 terdapat 2 port yaitu fa0/0 dan Serial 2/0, router 2 terdapat 3 port yaitu fa0/0, Serial 2/0, dan Serial 3/0, router 3 terdapat 2 port yaitu fa0/0 dan Serial 3/0, sedangkan setiap PC memiliki satu port.
- setiap port memiliki alamat IP Address, untuk mengaturnya dapat diklik pada device yang akan diatur IP addressnya, pada router dapat digambarkan seperti berikut:
sedangkan pada PC, setelah klik device PC kemudian pilih dekstop -> ip configuration, kemudian dapat digambarkan seperti berikut ini:
Keterangan:
- pada router 1 terdapat 2 port yaitu fa0/0 dan Serial 2/0, router 2 terdapat 3 port yaitu fa0/0, Serial 2/0, dan Serial 3/0, router 3 terdapat 2 port yaitu fa0/0 dan Serial 3/0, sedangkan setiap PC memiliki satu port.
- setiap port memiliki alamat IP Address, untuk mengaturnya dapat diklik pada device yang akan diatur IP addressnya, pada router dapat digambarkan seperti berikut:
5. Langkah berikutnya, setelah memasukkan IP Address yaitu menentukan statik router, agar setiap device dapat terhubung. Untuk menentukan statik router perlu kita ketahui bahwa dalam jaringan yang saya buat ini memuat 5 subnet, yang saya gambarkan seperti gambar berikut:
setelah diketahui ada 5 subnet dan network number yaitu 199.199.0.0 , 199.199.1.0, 199.199.2.0, 20.20.20.0, dan 30.30.30.0 maka untuk mengetahui statik routernya kita dapat menggunakan cara membuat tabel routing, seperti gambar berikut ini :
setelah kita ketahui statik routernya dapat langsung dimasukan pada setiap router seperti pada gambar berikut:
6. langkah terakhir yaitu cek dengan ikon amplop yang ada diCisco Packet Tracer untuk mengirim dari PC ke PC, apabila berhasil maka terlihat seperti gambar berikut:
...
selamat mencoba.
sekian tutorial sederhana dari saya, semoga dapat bermanfaat, mohon maaf atas segala kekurangan, insyaallah suatu waktu akan saya perbaiki lagi dalam segi penulisan (maklum..deadliner :D,, ada kendala word error lagi..terpaksa ada yang tulis tangan kemudian saya foto, hehe, punteeen), kalau ada pertanyaan bisa tinggalkan pesan dalam kolom komentar.
terima kasiih..
see u next time :)
wassalamu'alaikum wr wb.
Salam Pencari Ilmu !!
Jumat, 29 September 2017
Soal Jawaban Teori Bahasa dan Otomata
Berikut saya sajikan link contoh soal dan jawaban tentang Teori Bahasa dan Otomata
https://goo.gl/KJ1Rtq
"Semoga Bermanfaat" :)
Salam Pencari Ilmu !!
https://goo.gl/KJ1Rtq
"Semoga Bermanfaat" :)
Salam Pencari Ilmu !!
Minggu, 14 Mei 2017
Prosedur dan Fungsi dari Luas(Segitiga, lingkaran, bujur sangkar) dan Volume(Kerucut, bola, kubus) serta Flowchart dari Keduanya
Salam Pencari Ilmu...
Kali ini saya akan berbagi tentang prosedur dan fungsi dari luas(segitiga, lingkaran, bujur sangkar) dan volume(kerucut, bola, kubus) serta flowchart dari keduanya.
Semoga bermanfaat dan mohon tinggalkan komentar bila ada yang perlu dikoreksi.
Selamat Belajar... :)
Berikut Fungsi dari Luas
Segitiga, Lingkaran dan Bujur Sangkar
program hitungluas;
uses crt;
var
pilih : integer;
hasil : real;
ulang : char;
function menu :
integer;
var pil:integer;
begin
writeln('====================');
writeln('Program
Hitung Luas');
writeln('====================');
writeln('1. Hitung
Luas Segitiga ');
writeln('2. Hitung
Luas Lingkaran');
writeln('3. Hitung
Luas Bujur Sangkar');
writeln('==============================');
write ('Pilihan Anda: '); readln (pil);
writeln('==============================');
menu := pil;
end;
function segitiga :
real;
var a, t : real;
begin
write('Alas Segitiga :
');readln(a);
write('Tinggi Segitiga
: '); readln(t);
segitiga := 0.5*a*t;
end;
function lingkaran :
real;
var
pi, r : real;
begin
write('Jari-jari
Lingkaran: ');
read(r);
pi := 3.14;
lingkaran := pi*r*r;
end;
function bujur_sangkar
: real ;
var s : real;
begin
write('Masukkan nilai
sisi : ');
readln(s);
bujur_sangkar := s*s;
end;
begin
repeat
clrscr;
pilih := menu;
case pilih of
1 : hasil := segitiga
;
2 : hasil :=
lingkaran;
3 : hasil :=
bujur_sangkar ;
else writeln('Pilihan
Anda Salah!');
writeln('==============================');
end;
if (pilih < 4) and
(pilih > 0) then
begin
writeln('==============================');
writeln('Hasil
Perhitungan: ',hasil:5:2);
writeln('==============================');
end;
write('Coba lagi?
(y/n) : ');
readln(ulang);
until (ulang = 'n') or
(ulang = 'N') ;
end.
Berikut Prosedur dari Luas
Segitiga, Lingkaran dan Bujur Sangkar
program
prosedur_luas_slb;
uses
wincrt;
var
s,r,a,t,luas:real;
procedure
segitiga;
begin
writeln
('Luas Segitiga');
write
('Masukkan Nilai Alas ='); readln (a);
write
('Masukkan Nilai Tinggi ='); readln (t);
Luas :=
1/2*(a*t);
writeln
('Luas Segitiga =',Luas:2:3);
end;
procedure
lingkaran;
begin
writeln
('Luas Lingkaran');
write
('Masukkan jari-jarinya ='); readln (r);
Luas :=
3.14 *r*r ;
writeln
('Luas Lingkaran =', Luas:0:2);
end;
procedure
bujur_sangkar;
begin
writeln
('Luas Bujur Sangkar');
write
('Masukkan Nilai Sisi ='); readln (s);
Luas :=
s*s;
writeln
('Luas Bujur Sangkar =', Luas:0:0);
end;
Var
pilihan:char;
akhir:boolean;
Begin
writeln('PROGRAM
MENGHITUNG LUAS');
writeln('1.
Menghitung Luas Segitiga');
writeln('2.
Menghitung Luas Lingkaran');
writeln('3.
Menghitung Luas Bujur Sangkar');
writeln('==========================================');
writeln('|
Untuk mengakhiri program ketik huruf x |');
writeln('==========================================');
writeln;
Repeat
akhir:=false;
write('ketikan
pilihan anda = ');
readln(pilihan);
writeln;
case
pilihan of
'1' : Begin
segitiga;
writeln;
end;
'2' : Begin
lingkaran;
writeln
end;
'3' : Begin
Bujur_sangkar;
writeln;
end;
'x' : Begin
akhir:=true;
end;
else begin
writeln('PILIHAN
SALAH !!! MOHON COBA LAGI ??');
end;
end;
until(akhir);
end.
Berikut Fungsi dari Volume Kerucut, Bola dan Kubus
program
hitungvolume;
uses crt;
var
pilih :
integer;
hasil :
real;
ulang :
char;
function
menu : integer;
var
pil:integer;
begin
writeln('====================');
writeln('Program
Hitung volume');
writeln('====================');
writeln('1.
Hitung Volume kerucut ');
writeln('2.
Hitung Volume Bola');
writeln('3.
Hitung Volume Kubus');
writeln('==============================');
write ('Pilihan Anda: '); readln (pil);
writeln('==============================');
menu :=
pil;
end;
function
kerucut : real;
var r, t: real;
begin
write('Masukkan
jari-jari kerucut: ');readln(r);
write('Masukkan
tinggi kerucut: '); readln(t);
kerucut :=
(3.14*r*r*t)/3;
end;
function
bola : real;
var
r : real;
begin
write('Masukkan
Jari-jari Lingkaran: ');readln(r);
bola :=
4/3*(3.14*r*r*r);
end;
function
kubus: real ;
var s: real;
begin
write('Masukkan
nilai sisi : ');readln(s);
kubus :=
s*s*s;
end;
begin
repeat
clrscr;
pilih :=
menu;
case pilih
of
1 : hasil :=
kerucut ;
2 : hasil
:= bola;
3 : hasil
:= kubus ;
else
writeln('Pilihan Anda Salah!');
writeln('==============================');
end;
if (pilih
< 4) and (pilih > 0) then
begin
writeln('==============================');
writeln('Hasil
Perhitungan: ',hasil:5:2);
writeln('==============================');
end;
write('Coba
lagi? (y/n) : ');
readln(ulang);
until
(ulang = 'n') or (ulang = 'N') ;
end.
Berikut Prosedur dari Volume Kerucut, Bola, dan Kubus
program
prosedur_volume;
uses
wincrt;
var
s,r,t,volume:real;
procedure
kerucut;
begin
writeln
('Volume Kerucut');
write
('Masukkan Jari-jari kerucut ='); readln (r);
write ('Masukkan
Tinggi Kerucut ='); readln (t);
volume :=
(3.14*r*r*t)/3;
writeln
('Luas Kerucut =',volume:6:2);
end;
procedure
bola;
begin
writeln
('Volume Bola');
write
('Masukkan jari-jarinya ='); readln (r);
volume :=
4/3*(3.14*r*r*r);
writeln
('Volume Bola =', volume:8:2);
end;
procedure
kubus;
begin
writeln
('Volume Kubus');
write
('Masukkan Nilai Sisi ='); readln (s);
volume :=
s*s*s;
writeln
('Volume Kubus =', volume:5:2);
end;
Var
pilihan:char;
akhir:boolean;
Begin
writeln('PROGRAM
MENGHITUNG VOLUME');
writeln('1.
Menghitung Volume Kerucut');
writeln('2.
Menghitung Volume Bola');
writeln('3.
Menghitung Volume Kubus');
writeln('==========================================');
writeln('|
Untuk mengakhiri program ketik huruf x |');
writeln('==========================================');
writeln;
Repeat
akhir:=false;
write('ketikan
pilihan anda = ');
readln(pilihan);
writeln;
case
pilihan of
'1' : Begin
kerucut;
writeln;
end;
'2' : Begin
bola;
writeln
end;
'3' : Begin
kubus;
writeln;
end;
'x' : Begin
akhir:=true;
end;
else begin
writeln('PILIHAN
SALAH !!! MOHON COBA LAGI ??');
end;
end;
until(akhir);
end.
Sekian....
See u next time :)
Langganan:
Postingan (Atom)