Kalau pada postingan kemarin kita membahas algoritma bagaimana cara mengetahui bilangan prima ke-n, misalkan kita ingin tahu bilangan prima ke-39, dengan memasukkan angka 39, maka dalam waktu sekejap kita langsung tahu bahwa bilangan prima ke-39 adalah 167, baca postingan tersebut di sini! Kalau pada kesempatan kali ini kita akan membuat suatu algoritma yang merupakan kebalikan dari postingan kemarin, misalnya dengan memasukkan angka 167 maka kita akan tahu bahwa 167 itu adalah bilangan prima ke-39
Sekarang kita akan mulai, untuk awalnya tentu akan dimasukkan suatu bilangan yang akan kita periksa apakah bilangan itu termasuk bilangan prima atau bukan dengan tujuan akhir jika bilangan tersebut merupakan bilangan prima maka akan diketahui bahwa bilangan tersebut merupakan urutan ke sekian dalam himpunan bilangan prima.
Misalkan bilangan yang dimasukkan itu dengan m, dan bilangan m itu pasti akan memenuhi salah satu dari 3 kondisi berikut:
uses crt;
label d;
var a,b,c,m:longint;
begin clrscr;
write('PROGRAM INI AKAN MEMINTA MASUKAN SEBUAH BILANGAN, JIKA BILANGAN'); write(' YANG DIMASUKKAN ITU ADALAH BILANGAN PRIMA MAKA PROGRAM AKAN MENYEBUTKAN'); writeln(' URUTAN KE BERAPA BILANGAN PRIMA TERSEBUT DALAM BARISAN BILANGAN PRIMA'); writeln(#10);
write('input nilai m! ');
readln(m); if m<2 then
writeln('Maaf, bilangan yang dimasukkan tidak sesuai dengan permintaan Program') else if m=2 then writeln('2 adalah bilangan prima ke-1') else begin
Sekarang kita akan mulai, untuk awalnya tentu akan dimasukkan suatu bilangan yang akan kita periksa apakah bilangan itu termasuk bilangan prima atau bukan dengan tujuan akhir jika bilangan tersebut merupakan bilangan prima maka akan diketahui bahwa bilangan tersebut merupakan urutan ke sekian dalam himpunan bilangan prima.
Misalkan bilangan yang dimasukkan itu dengan m, dan bilangan m itu pasti akan memenuhi salah satu dari 3 kondisi berikut:
- m lebih kecil dari 2 (m < 2)
- m adalah 2 (m = 2)
- m lebih besar dari 2 (m > 2)
- Untuk kodisi m < 2 tidak akan ada pembahasannya, karna tujuan kita adalah mencari urutan keberapa suatu bilangan prima dalam himpunan bilangan prima, sementara tidak ada bilangan prima yang lebih kecil dari 2, maka telah dilakukan kesalahan jika dimasukkan bilangan yang lebih kecil dari 2 untuk diketahui urutan prima ke berapa bilangan yang lebih kecil dari 2 itu, maka pada kondisi ini cukup ditampilkan tulisan “Maaf, bilangan yang dimasukkan salah” dan programpun berakhir.
- Untuk kondisi m = 2 maka tidak akan ada pemeriksaan untuk bilangan 2 apakah bilangan 2 bilangan prima atau bukan, karna sudah jelas bilangan 2 adalah merupakan bilangan prima dan merupakan prima urutan ke-1 dalam himpunan bilangan prima, dan programpun berakhir.
- Untuk kondisi m > 2 akan dilakukan pembahasan selanjutnya
uses crt;
label d;
var a,b,c,m:longint;
begin clrscr;
write('PROGRAM INI AKAN MEMINTA MASUKAN SEBUAH BILANGAN, JIKA BILANGAN'); write(' YANG DIMASUKKAN ITU ADALAH BILANGAN PRIMA MAKA PROGRAM AKAN MENYEBUTKAN'); writeln(' URUTAN KE BERAPA BILANGAN PRIMA TERSEBUT DALAM BARISAN BILANGAN PRIMA'); writeln(#10);
write('input nilai m! ');
readln(m); if m<2 then
writeln('Maaf, bilangan yang dimasukkan tidak sesuai dengan permintaan Program') else if m=2 then writeln('2 adalah bilangan prima ke-1') else begin
a:=2; c:=1;
d: a:=a+1;
for b:=2 to a-1 do
begin if a mod b = 0 then
begin b:=a-1; if a=m then writeln(a,' bukan bilangan prima') else goto d;
end else begin if b=a-1 then begin c:=c+1; if a=m then writeln(a,' adalah bilangan prima ke-',c) else goto d; end; end; end; end; readln end.
Setelah sintaks di atas dijalankan di dalam bahasa pemrograman turbo pascal maka akan tercipta suatu aplikasi yang dapat didownload di sini, untuk file .pas (yang akan diketikkan di bahasa pemrograman turbo Pascal) dapat mendownloadnya di sini, sedangkan untuk file ms-word nya silakan ambil di sini. ingin dapat update tentang program pascal lainnya? silakan Join group facebook sahabat-informasi.com dan Like Fanpage sahabat informasi dengan dengan account facebook kamu, Burung Irian Cendrawasih Cukup sekian Terima kasih lihat juga algoritma dan program pascal lainnya di sini
7 komentar:
PERTAMAX!!!
Good post dan memberikan pencerahan...
Wah Ilmu nih.. Tx sob!
waaah nggak ngerti pascal
nice share brooooo
mampir
aku ngga ngerti, hhihihihiihiih
gk ngerti tapi menarik juga
dech
hehe
jangan lupa berkunjung ke congcot yaaa
Posting Komentar