Algorithma Bilangan Prima dengan Pascal

Oleh -
Screenshot Pascal Compiler di OnlineGDB

Kangen dengan bahasa pemrograman Pascal, yang merupakan salah satu bahasa pemrograman awal-awal penulis belajar tentang bahasa dan algorithma komputer, dalam tulisan ini, penulis mencoba mengimplementasikan kembali algorithma bilangan prima dengan menggunakan bahasa Pascal.

Berbeda dengan jaman dahulu yang penulis harus menginstal compiler Pascal terlebih dahulu di komputer penulis, saat tulisan ini ditulis, ternyata telah banyak ditemukan Pascal Compiler Online, seperti di https://www.onlinegdb.com/online_pascal_compiler.

Dengan compiler online tersebut, tentunya akan semakin mempermudah dalam belajar bahasa pemrograman, khususnya Pascal.

Berikut ini kode Pascal yang dapat digunakan untuk menampilkan bilangan prima sampai batas input yang diberikan.

program BilanganPrima; 
Var 
    i,j,batas,p:Integer; 
begin 
    write('Ketik Batas : '); 
    readln(batas); 
    for i:=2 to batas do 
    begin 
        p:=0; 
        for j:=2 to i-1 do 
        begin 
            if i mod j=0 then p:=1; 
        end; 
        if p=0 then 
        begin 
            if i>2 then write(','); 
            write(i); 
        end; 
    end; 

end.

Terkait

Komentar

Posting Komentar



Postingan populer dari blog ini

Apps Script untuk Cetak Sertifikat

Oleh -
Gambar
Tutorial pembuatan sertifikat menggunakan Google Docs, Sheets dan Apps Script teleh penulias buat dalam video di bawah ini: Sedangkan berikut ini adalah kode Apps Script yang penulis gunakan di dalam tutorial di atas: function onOpen() { const ui = SpreadsheetApp.getUi(); const menu = ui.createMenu("Cetak Sertifikat"); menu.addItem("Cetak Sertifikat", "generateMode"); menu.addToUi(); } function generateMode() { var idtemplate="1qseLMkdYIzmx0rhkKELF0xxlsD13CS1eCk0MlcTKt_g"; var idtarget="1ZLNksdiilEc0mQ88WOfAuU8_JcMVcO6ewXuJes-UU9I"; var ss = SpreadsheetApp.openById("1j1TArXYzRlVGvB9q7ly7NdyF-nsJcCH6RT3rOQik0yQ"); var so=ss.getSheetByName("Source"); var data=so.getRange("A1:C").getValues().map(function(row){return (row[0]!="")?row:null}).filter(function(cellData){return cellData != null;}); const docTemplate=DocumentApp.openById(idtemplate); var docTarget=DocumentApp.open...
Baca selengkapnya

Ngobrol Penghabisan Dana Akhir Tahun

Oleh -
Gambar
Ilustrasi pelatihan di hotel (Sumber gambar:Pixabay/Megha01) Suatu hari libur, di bulan Desember, penulis bersilaturahmi ke salah satu kerabat yang bekerja sebagai perangkat desa. Disana, kerabat penulis ternyata sedang dikunjungi oleh rekan kerjanya dari desa lain. Penulis pun berkenalan, tanpa perlu saling menyebutkan nama, dan penulis pun duduk serta mendengarkan perbincangan tentang kegiatan yang telah mereka lakukan, beberapa hari sebelumnya. Tampaknya, mereka begitu bangga karena dapat mengikuti kegiatan tersebut. Hal itu terlihat dari cara mereka menceritakan, begitu senangnya dapat berkenalan dengan pejabat-pejabat dari desa lain, dan dapat mengikuti acara, makan serta menginap gratis di salah satu hotel bintang lima di kota kami. Sampai-sampai. "Bagaimana tidak senang, sudah diundang, menginap gratis, dan diberi uang saku pula!" seru salah satu dari mereka ke penulis. Dalam perbincangan itu pula, rupanya acara yang mereka datangi adalah...
Baca selengkapnya

Menggambar Lingkaran Menyala dengan Efek Shadow

Oleh -
Gambar
Fungsi bayangan ternyata merupakan salah satu hal penting dalam proses menggambar, terutama untuk menambahkan kesan elegan. Gambar di atas, adalah contoh pemanfaatan efek bayangan di HTML5 Canvas, untuk menggambar lingkaran yang seakan menyala. Dengan warna bayangan sama dengan warna lingkaran, akan dapat dihasilkan bentuk lingkaran yang futuristik. Kode di bawah ini adalah kode untuk menggambar lingkaran di atas: <html> <head> <title>Draw Circle Generator</title> </head> <body> <canvas id= "myCanvas" width= "1024" height= "768" > </canvas> <script> var canvas = document.getElementById( "myCanvas" ); var ctx = canvas.getContext( "2d" ); ctx.fillStyle = "black" ; ctx.fillRect(0,0,canvas.width,canvas.height); function Menggambar() { ctx.fillStyle= "#50575C" ; var rx=0.5*canvas.width; var ry=0.5*canvas.height; var r=...
Baca selengkapnya

Hati-hati Calo Sertifikat Tanah

Oleh -
Gambar
Ilustrasi permohonan (Sumber: Pixabay/jarmoluk) Mengurus sertifikat tanah, baik itu membuat baru atau balik nama, kalau bisa jangan sampai menggunakan pihak ketiga (seperti calo), tetapi langsung ke notaris saja. Hal ini karena, bagaimana pun juga pihak ketiga tersebut, akan pergi juga ke notaris pada akhirnya. Syukur-syukur, jika pemohon bisa datang langsung ke Kantor BPN. Sehingga alur kebutuhan dana saat proses, lebih jelas dibanding melewati pihak ketiga, yang umumnya berupa komisi. Contoh yang terjadi pada penulis. Awalnya, karena belum pernah sama sekali, penulis meminta tolong pihak ketiga, balik nama sertifikat, katakan pihak ketiga itu bernama Samin. Samin melihat ukuran tanah dan cara yang dia lakukan, dia mematok harga mulai 8 juta. Penulis percaya dengan Samin, dan memberikan uang jalan sebesar 3 juta sebagai DP dan uang jalan. Dan katanya, dia akan me-mark-up sedemikian rupa, sehingga harga jasa balik nama semurah-murahnya. Markup...
Baca selengkapnya

Seberapa Hebatkah Orang Dalam

Oleh -
Gambar
Ilustrasi Orang Dalam (Sumber gambar: Pixabay/mhouge) Dalam urusan pemberkasan sertifikat tanah atau semacamnya, seringkali kita menemui orang yang berani bilang "Dengan bantuan orang dalam, maka segala urusan apapun akan menjadi mudah dan murah". Biasanya, orang yang berani bilang seperti itu adalah mereka yang bekerja sebagai makelar atau calo. Kemudian bagi penulis sendiri, semenjak merasa ditipu oleh seorang 'makelar' pengurusan sertifikat tanah sebelum tulisan ini ditulis, penulis menjadi sulit mempercayai kata-kata orang yang menyebutkan orang dalam tersebut. Sehingga, jika terdapat irang yang bilang semacan itu, penulis hanya balik menantang "Coba jaman sekarang, dia berani kagak!". Alasannya, pertama, peraturan semakin ketat, seperti yang penulis posting sebelumnya, notaris pun saat tulisan ini ditulis, tidak berani untuk melakukan jalan pintas. Misalnya untuk masalah perwalian pembelian tanah waris, 3 dari 4 notaris yang penulis temu...
Baca selengkapnya

Review Pengguna yang Berperilaku Konsumtif

Oleh -
Gambar
Suatu pagi, penulis sebagai developer Aplikasi Long Division, Computational Lab mendapat review seperti gambar di bawah ini: Mungkin bagi sebagian banyak orang akan menganggap ini lucu, karena mengadu/review aplikasi hanya masalah bahasa, adalah lebih ke pribadi pengguna, bukan ke developer. Apalagi aplikasi yang direview bertema matematika, angka-angka merupakan bahasa sendiri dan tidak tergantung pada penjelasan bahasa tertentu, untuk tingkat dasarnya. Namun bagi penulis, yang juga menjadi pengajar, hal ini membuat saya sedih. Pasalnya, generasi didikan kita (sesuai ditunjukkan pada review di atas), diusia dini sudah menunjukkan identitasnya sebagai konsumen yang tulen. Entah, apa memang dia berasal dari keluarga yang kaya, atau memang pendidikan yang menyebabkan dia berpola pikir seperti itu. Artinya generasi didik kita lebih ingin memposisikan diri sebagai raja/ratu yang harus dilayani sebaik mungkin, dan jika tidak puas atau tidak sesuai keinginan mereka sedikit saja, maka sudah p...
Baca selengkapnya

Anak Usia Sekolah Hendaknya tidak hanya Bermain Game Online

Oleh -
Dalam bulan tulisan ini ditulis, penulis terganggu dengan kegaduhan anak-anak muda yang bermain game online di dekat rumah mertua penulis. Pasalnya, mereka masih anak usia sekolah menengah. Pandemi Corona yang semakin diperpanjang, membuat mereka tidak masuk sekolah, yang tidak lain akibat dari pendidikan yang dilakukan secara online. Mirisnya, mereka tidak menyibukkan diri dengan belajar, melainkan bermain game online, dan hal itu mereka lakukan mulai sekitar jam 10 malam, sampai subuh. Penulis tidak habis pikir, bagaimana mereka menanam bom waktu, yang bisa menghancurkan masa depan mereka sendiri suatu hari kelak. Pekerjaan macam apa yang mereka inginkan? Apakah sekolah sampai SMA/STM, tongkrongan motor sport gede, lulus, berijazah, rambut disemir, lalu mereka dapat menaklukkan dunia? Apakah mereka tidak tahu kalau kerasnya dunia justru berawal ketika mereka bekerja dan lepas dari orang tua? Dan apakah mereka akan menjadi sampah, benalu atau panutan masyarakat? Sungguh penulis tidak ...
Baca selengkapnya

Perguruan Tinggi, Investasi atau Formalitas Semata?

Oleh -
Gambar
Ilustrasi pendidikan sarjana (Sumber gambar: Pixabay) Penulis sedikit merenung dan miris, tentang sebenarnya apa tujuan pendidikan di Indonesia. Banyak yang bergelar lebih dari S1, namun apakah hal tersebut hanya formalitas dan untuk mendapatkan gaji dengan nominal yang tinggi. Sampai tulisan ini ditulis, dikalangan masyarakat, asumsi tujuan utama sekolah sampai mendapat gelar sarjana, hanyalah untuk orientasi kerja. Yaitu untuk dapat bekerja dikantoran, dan dengan gaji di atas standar. Bahkan, bagi sarjana yang sudah bekerja sekalipun, banyak dari mereka yang berusaha untuk sekolah lagi. Agar mendapatkan kenaikan gaji, dari gelar sarjana barunya, yang tentu saja lebih tinggi. Pertanyaannya, bagaimana pengaruhnya terhadap perusahaan atau instansi yang diwajibkan menggaji karyawan sesuai gelar, dimana tingkat kemampuan karyawan ternyata tidak sebanding dengan tingkat gelarnya? Yang pasti "Collapse". Bayangkan jika pekerjaan yang harus ditanga...
Baca selengkapnya

Tip Memilih Notaris

Oleh -
Gambar
Ilustrasi sertifikat (Sumber gambar: Pixabay/DKrue) Tidak disangka penulis, saat tulisan ini ditulis, ternyata menjadi notaris PPAT (Petugas Pembuat Akta Tanah) merupakan pekerjaan yang rentan dengan penipuan. Berikut ini adalah tip, untuk menghindari penipuan yang mungkin dilakukan oleh oknum notaris baik sengaja maupun tidak sengaja. Tidak sengaja yang dimaksudkan di sini adalah oleh tingkat keilmuan atau pengalamannya. Adakalanya karena masih muda, si notaris belum tahu kebutuhan biaya yang tidak terduga, yang muncul ditengah-tengah pengurusan akte tanah. Atau karena sudah terlalu pengalaman, si notaris terlanjur mematok harga semurah mungkin, yang nyatanya dia tidak tahu ternyata ada langkah dan biaya tambahan yang harus dilewati untuk meminimalisir penipuan oleh pihak negara. Contoh kasusnya, penulis pernah meminta tolong untuk balik nama sertifikat tanah yang pemilik aslinya sudah meninggal. Dari hasil diskusi, sesuai pengalaman, si notaris memperki...
Baca selengkapnya

Dibalik Penerimaan CPNS 2018

Oleh -
Gambar
Pada suatu khutbah jumat yang penulis dengarkan, diceritakan dalam penerimaan CPNS 2018, peserta CPNS yang diterima, adalah peserta yang lolos tes kompetensi dasarnya. Sehingga meskipun peserta CPNS lulusan bergelar tinggi dan jebolan dari luar negeri, kalau test kompetensi dasarnya tidak lolos, maka tidak akan dipertimbangkan lagi dan berkas mereka langsung ditolak.  Penulis sebenarnya tidak tahu menahu mengenai test CPNS, karena memang tidak pernah ikut, dan sepertinya tidak akan akan berkesempatan ikut, terkait umur penulis yang telah melebihi batas usia pendaftaran.  Namun berdasarkan cerita yang penulis dengar, test kompetensi dasar berisi tentang test pengetahuan kenegaraan. Di mana yang diotak penulis langsung, mendengar kata kenegaraan terbersik kata “PPKN”.  Jika pembaca familiar dengan kata “PPKN”, berarti penulis satu zaman sekolah dengan penulis.  Kemudian apakah hubungannya dengan interpreneur?  Penulis bukan mencoba menghubu...
Baca selengkapnya