Algorithma Bilangan Prima dengan Pascal

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

• Algorithma Bilangan Prima dengan Javascript
• Algorithma Bilangan Prima dengan C++