Menentukan bilangan prima atau bukan

Sebelum kita membuat program untuk menentukan bilangan prima, kita harus tahu dulu apa bilangan prima itu. Untuk mengetahui bilangan prima, kita akan merujuk kepada Sifat-Sifat Operasi Himpunan. Lebih jelasnya mengenai bilangan prima : 

 

Jika p bilangan bulat, p tidak sama dengan 0 dan p tidak sama dengan 1, hanya mempunyai pembagi 1 dan p, maka p disebut bilangan prima. Bilangan bulat selain bilangan prima disebut bilangan komposit.

Contoh bilangan-bilangan  prima : 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, …. 

Contoh bilangan-bilangan komposit : 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, 32, 33, 34, 35, 36, … (Kuliah Aljabar Modern, oleh Don Tasman)

Memenuhi permintaan sahabat di Forum-AlgoritmaSTMIK, kita akan membuat program C++ untuk menentukan apakah bilangan yang kita input adalah bilangan prima atau bukan (Soal praktikum 5 nomor 4). Selengkapnya mengenai praktikum 1 sampai praktikum 6 silahkan ke sini.

#include "stdio.h"
#include "conio.h"
main()
{
 clrscr();
 int bil,jumlah,i;
 jumlah=0;
 printf("Samin MT Musa mencari bilangan prima\n");
 printf("Masukkan sebuah bilangan  : ");scanf("%d",&bil);
   for (i=1;i<=bil;i++)
   if (bil%i==0)
     jumlah++;
     if (jumlah==2)
        printf("%d adalah bilangan prima",bil);
     else
        printf("%d bukan bilangan prima",bil);
 getch();
}

Hasil eksekusi program :

Semoga bisa membantu.

Read More

Praktikum 1 sampai 6

Terinspirasi dari pertanyaan teman-teman pada Forum-AlgoritmaSTMIK dan terbatasnya waktu saya untuk membuka forum tersebut, maka saya membuat aplikasi kecil yang sangat sederhana hanya untuk membantu teman-teman yang kebingungan dengan tugas praktikum. Saya sadar dengan segala keterbatasan dan kekurangan saya dalam membuatnya, namun saya hanya berniat untuk membantu karena bagi saya percuma kita memiliki ilmu kalau ilmu tersebut tidak berguna bagi orang lain. Maka dengan ilmu yang sedikit ini saya ingin membantu dan berbagi (...ingatlah akhirat kata "WALI" dalam Tomat).

Sekarang kita langsung saja ke aplikasinya.

• Saat pertama aplikasi dijalankan 

• Setelah memilih materi praktikum yang diinginkan akan ditampilkan listing programnya

• Screenshoot aplikasi dengan pilihan didalamnya. Jika tombol minimize diklik (tanda minus pada kontrol box pojok kanan atas jendela aplikasi) aplikasi akan diminimize ke system tray (perhatikan ikon aplikasi pada pojok kanan bawah). Pilihan ini juga terdapat pada popup menu saat menekan klik kanan pada jendela aplikasi. Keterangan ini saya berikan karena kemarin ada teman yang masih bingung menggunakannya. Bagi yang expert pasti sudah tahu menggunakannya.

Yang ingin mencobanya silahkan menghubungi saya pada saminmusa@gmail.com
Maklumlah belum punya file hosting.
Semoga membawa manfaat.

Read More

Menampilkan bilangan ganjil dari angka 1 s/d 100

Untuk menampilkan bilangan ganjil dari angka 1 sampai dengan angka 100 algoritmanya adalah sebagai berikut : 

Bilangan ganjil dari 1 sampai 100 = 1,3,5,7,9,…………,99

Catatan : bilangan apa saja yag dimod2=1 adalah bilangan ganjil

Untuk nilai I = 1 to 100 lakukan

      Jika nilai Imod2 = 1 maka

                        Cetak nilai

      Untuk programnya dalam bahasa pascal adalah :

uses crt;

var I: integer;

begin

   clrscr;

  for I:= 1 to 100 do

  begin

   if I mod 2= 1 then

       write(I:5);

end;

  Readln;

end.

        Hasilnya :

Read More

Input Bilangan Ganjil atau Genap

Program ini digunakan untuk menentukan apakah bilangan yang diinput termasuk bilangan ganjil atau bilangan genap. Metode yang digunakan adalah metode pemilihan.

      uses crt;
      var
      bilangan : integer;
      begin
           clrscr;
           write('Masukan sebuah bilangan='); Readln(bilangan);
           if (bilangan mod 2)= 0 then
                writeln('Bilangan yang Anda input adalah bilangan genap')
           else
                writeln('Bilangan yang Anda input adalah bilangan ganjil');
           Readln;
      End.

Read More

Menampilkan bilangan kelipatan 3 dan 5 dari 1 s/d 30

Untuk menampilkan bilangan kelipatan 3 dan kelipatan 5 dari angka 1 sampai 30 dalam bahasa pascal adalah

uses crt;

var I,A,B: integer;

begin

  clrscr;

  A:= 3;

  B:= 5;

  for I:= 1 to 6 do

  begin

    write (A,B);

    A:= A+3;

    B:= B+5;

  end;

  Readln;

          End.

Read More

Menampilkan bilangan prima dari angka 1 s/d 20

Program untuk menampilkan bilangan prima yang dimulai dari angka 1 sampai dengan angka 20 algoritmanya adalah :

Bilangan prima dari angka 1 s/d 20 = 2,3,5,7,11,13,17,19

Bilangan prima adalah bilangan yang bisa dibagi dengan bilangan 1 dan bilangan itu sendiri.

2: 2 mod 1=0, 2 mod 2=0

3: 3 mod 1=0, 3 mod 2=0, 3 mod 3=0

4: 4 mod 1=0, 4 mod 2=0, 4 mod 3=1, 4 mod 4=0

      5: 5 mod 1=0, 5 mod 2=1, 5 mod 3=2, 5 mod 4=1, 5 mod 5=0

 Program dalam bahasa pascal adalah sebagai berikut :

Uses crt;

Var i, pembagi, jumlah0 : integer;

Begin

  clrscr;

  for i:=2 to 20 do

Begin

       jumlah0:=0;

       for pembagi :=1 to i do

       begin

         if i mod pembagi=0 then

            jumlah0:=jumlah0+1;

       end;

       if jumlah0=2 then

         write(i:5);

  end;

  readln;

End.

Hasilnya :

Read More

Menampilkan bilangan genap dari angka 1 s/d 50

Untuk menampilkan bilangan genap yang dimulai dari angka 1 sampai dengan angka 50, susunan algoritmanya adalah sebagai berikut : 

Bilangan genap dari 1 sampai 50 = 2,4,6,8,10,12,14,16,18, …… 50

Catatan : bilangan apa saja yag dimod2=0 adalah bilangan genap

Untuk nilai I = 1 to 50 lakukan

      Jika nilai Imod2 = 0 maka

                        Cetak nilai

      Untuk program dalam bahasa pascal adalah :

uses crt;

var I : integer;

begin

clrscr;

  for I:= 1 to 50 do

begin

    if I mod 2= 0 then

       write(I:5);

end;

  Readln;

                  end.

Hasilnya :

Read More