Contoh program :
Program Mencari_Bilangan_Prima_Dengan_Array;
Uses Crt;
Var
Prima : Array[1..100] of Integer;
i,j : Integer;
bil : Integer;
Begin
ClrScr;
For i := 2 to 100 Do
Begin
Prima[i]:=i;
For j:= 2 to i-1 Do
Begin
bil := (i mod j); {* i dibagi j dicek apakah 0*}
If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*}
End;
If Prima[i] <> 0 Then Write(Prima[i],' '); {*cetak array yg prima*}
End;
Readln;
End.
26 responses to “Program Bilangan Prima dengan Menggunakan Bantuan Array”
saya mau tanya program radix sort kaya apa?kasih tau penjelasannya ya dan contoh programnya menggunakan pascal
@meliana
http://www.nusinau.com/program-untuk-mengurutkan-data-dengan-metode-radix-sort/
saiaa mau tanya, kalau buat program menyimpan bilangan genap ke dalam suatu stray sebanyak input user (10)..
bagaimana penyelesaiannya?????
terimaa kasiih..
@takirey
Coba cek disini Program Bilangan Genap
punten…
pas saya coba qoq gagal yua….?????
yg salah d bgian mana ‘a yua????
untk blgn prama mggunakan array…..
tlg yua….
@fitri
bila mbak fitri menggunakan pascal for windows,
rubah baris ke dua,
Uses Crt;
menjadi
Uses WinCrt;
Semoga tercerahkan… :)
gimana kalo di suruh menentukan jumlah bilangan prima yang ada dari 1 sampai 1000
terimakasih
@ushy
rubah baris ke empat
Prima : Array[1..100] of Integer;
menjadi
Prima : Array[1..1000] of Integer;
rubah juga baris ke sembilan
For i := 2 to 100 Do
menjadi
For i := 2 to 1000 Do
Semoga tercerahkan… :)
Mau tanya tentang materi cisco tracer, kalau bisa tutorial
@Rubiyanto
googling aja deh… saya belum bikin tutorial untuk cisco je…
Kalo di pindahkan ke turbo basic bisa ga ?
Wahh .. sangat membantu .. thx ya … ! good job =D
Kak Nu,
aku mau nanya nie, Kalau Program yang menggunakan Array dalam Record ada gk contohnya?
Kalau ada dikasih tau ya…! hari rabu aku mau ujian dengan materi tersebut…! Please dikasih tau ya?
kok saya coba nggak compail yahh???
tlong dksh tau gmna biar compile
ga ada flowchartnya ya??
bagaimana membuat program pascal dengan soal sebagai berikut:diterima input dari keyboard sebanyak 3 buah bil pecahan(boleh negatif atau positif)jjika bil pertama adalah positif, maka bil tersebut dikurangi dgn bil prima diantara yg terdekat dgn bil kedua tersebutjjka bil kedua adalah negatif, maka bil tersebut ditanbahkan dgn nilai hasil sisa bagi 3 bil tesebuttentukan mana bil terbesar dan terkecil dari ketiga bil tadi, kemudian jumlahkan ketiga bil tersebut dan hasinya ditampilkan.
mas bagaimana apa bisa bilangan primer di atas di rubah ke TURBO BASIC kebetulan saya ada tugas juga di kampus…tolong mas kasihtau dunk caranya yah…sebelumnya trimakasih
alamt e-mail saya: [email protected]
contoh program bilangan prima dan fibonacci buat MIPS donk…
bingng nie…
tolong y…..
kalo program C++ bisaa gak gan ??? ane perlu sangat nii…
temukan berapa digit bilangan prima dari 1 sampai 2 miliar,??
gmn gan bisa gak :D
wahh. . .,blog ne sangat mmbntu,
ttttrrrriiimmmmzzzzz y^^
blog nya failed ka, gimana nih….
tentang bilangan prima dengan menggunakan array
ini terbatas sampai berapa digit?
mas mau tanya,kalo caranya membuat program function rata-rata n bilangan random (menggunakan fungsi proc. Randomize dan fungsi random) tu gmna ? makasih :)
1. bagaimana cara membuat raptor dengan metode searching didalam pascal?
2. bagaimana cara memasukan gambar kepascal
gimana flowchartnya??
tolongin q doch …. ada soal diberikan sebuah array integer A yg berukuran N elemen array A sudah terdefinisi elemen2nya. buatlah procedur untuk menghitung jumlah elemen array yg negetif……. itu soalnya mohon bantuannya yah makasih……………….