1. For … do

Bentuk Umum For_do Positif : 

for  pencacah  ←  range1  to  range2  do
   {aksi-aksi yang diulang}
Endfor

Catatan : range1 ≤ range2

Menghitung_S

{I.S.  : diberikan harga pencacah (i) = 10}

{F.S. : menampilkan hasil perhitungan S = 1+2+..+10}

Kamus:

    S, i  : integer

Algoritma:

    S  ←  0

    for  i  ←  1  to  10  do

        S ←  S  +  i

    endfor

    output(S)

for  pencacah ← range1 downto range2 do

        {aksi-aksi yang diulang}

endfor

Menghitung_S

{I.S.  : diberikan harga pencacah (i) = 10}

{F.S. : menampilkan hasil perhitungan S = 10+9+..+1}

Kamus:

    S, i  : integer

Algoritma:

    S  ←  0

    for  i  ← 10  downto  1  do

         S ←  S  +  i

    endfor

    output(S)

2. While … do

inisialisasi

While (kondisi) do

   {aksi aksi / perintah perintah yang diulang}

Endwhile

Menghitung_S

{I.S.  : diberikan harga pencacah (i) = 10}

{F.S. : menampilkan hasil perhitungan S = 1+2+..+10}

 Kamus :

       S,i : integer

 Algoritma :

      {inisialisasi}

      S← 0

      i ← 1

      While S ≤ 10 do

           S←S + i

           i ← i + 1

     Endwhile

     Output(S)

3. Repeat  …  until

inisialisasi

repeat

   {aksi aksi / perintah perintah yang diulang}

Until(kondisi)

Menghitung_S

{I.S.  : diberikan harga pencacah (i) = 10}

{F.S. : menampilkan hasil perhitungan S = 1+2+..+10}

 Kamus :

       S,i : integer

 Algoritma :

     {inisialisasi}

     S ← 0

     i ← 1

     repeat

             S ← S + i

             i ← i + 1

     Until(S ≤ 10)

     Output(S)

Sumber : Tim Algoritma dan Pemrogramman Universitas Komputer Indonesia

Sekian Struktur Pengulangan dalam Algortima dan Pemrogramman yang saya share saat ini, semoga bermanfaat yaaa :)

- Program Kalkulator Sederhana -

Untuk membuat program ini kita harus memahami konsep dasar struktur pemilihan dalam algoritma dan pemrograman serta mampu menganalisis persoalan yang ada !
Oiya saya lupa untuk menyapa sobat yang berkunjung . Hallo guys, selamat pagi, siang, sore, malam, atau dini hari yaa . Assalammualaikum Warahmatullahi Wabarakatu !
Kapanpun dan dimanapun anda membaca artikel ini, saya ucapkan salam, selamat belajar dan semoga anda dapat mendapatkan apa yang anda cari disini.

Kita dapat membuat program kalkulator sederhana dengan operator yang umun digunakan yaitu operator penjumlahan, pengurangan, perkalian dan pembagian pada 2 angka yang ingin dihitung pada program kalkulator.

Persoalannya sebagai berikut !

Buatlah algoritma dan program dalam pemrograman bahasa pascal kalkulator sederhana dengan menggunakan operator penjumlahan, pengurangan, perkalian dan pembagian pada 2 angka dan tampilkan kelayar hasilnya. - Kedua angka dan operator penghitungan dimasukkan oleh user !

1. Input 2 angka yang di tampung oleh variabel (bebas variabel apa saja). Saya gunakan variabel x dan y, kita anggap variabel x untuk angka ke-1 dan y untuk angka ke-2. Dan type data untuk variabelnya adalah integer, karena angka angka yang dimasukkan dalam bentuk bilangan bulat.

2 Input salah satu operator yang ditampung oleh variabel. Kalo saya gunakan variabel op. Karena operator yang digunakan adalah +,-,x,/ maka type data untuk variabel op adalah char agar sesuai dengan kebutuhan.

3. Menggunakan struktur pemilihan untuk proses mencacah penghitungan dan menentukan hasil dari penghitungan.

4. Tampung angka yang dihasilkan pada sebuah variabel, kalo saya menggunakan variabel hasil. Karena bilangan yang dihasilkan dari operator pembagian akan ada kemungkinan tidak akan menghasilkan bilangan bulat, jadi type data untuk variabel hasil adalah real.

Kami membutuhkan bantuan anda untuk mengisi survei singkat ini.
Tolong bantu ya untuk mengisi, gampang ko hanya mengisi nama, email sama 5 pertanyaan saja kawan. Bantu isi ya surveinya disini !!!.
Terimakasih. Semoga bantuan temen temen mendapat balasan yang berlipat ganda dari Allah SWT, Amin

K-Drama yang bejudulkan Gentleman Dignity sangat populer di korea, bahkan banyak yang menyukai drama ini di luar korea atau bisa dikatakan terkenal sampai ke luar korea termasuk di Indonesia. Menurut saya yang telah menonton drama ini dari episode awal sampai akhir hingga episode specialnya, yang membuat drama ini sukses dan laris dipasaran penggemar drama korea adalah alur cerita kisah percintaan yang sulit ditebak dan konflik yang seru di dalamnya, yang dimainkan oleh aktor dan aktris papan atas di korea, diantaranya sebagai berikut :

Pemain Utama K-Drama Gentleman Dignity

Yang bikin saya suka drama ini adalah karena ada Kim Ha-Neul yang bermain sebagai Seo Yi- Soo, jangan tanya kenapa aku suka sama dia ?! karena akupun tidak tau alasannya, pokoknya suka aja haha.
Terus yang membuat drama ini sukses pula adalah lagu - lagu yang menjadi soundtracknya, kenapa ? Karena lagu - lagunya lagu top, terus lagu - lagunya enak untuk didengakan, dan juga sangat menyentuh dengan perpaduan dramanya.

Salah satu lagu tersebut adalah lagu dari MBLAQ dengan judul If You Come Into My Heart yang dinyanyikan oleh Lee Jung-Rok kepada Istrinya Park Min-Sook di episode 9.

"Jika kamu datang ke dalam hatiku" itulah judul lagu ini, betapa dalamnya pesan yang disampaikan melalui lagu ini membuat Park Min-Sook menangis terharu mendengar suaminya Jung-Rok menyanyikan lagu ini untuknya. Lagu ini memiliki pesan seseorang kepada seseorang yang dia sukai bahwa dia sangat menginginkan untuk berada di dekatnya namun orang tersebut selalu menghindar.

Berikut lirik If You Come Into My Heart Ost K-Drama Gentleman's Dignity terjemahan bahasa Indonesia :

Kau berbalik pergi setiap aku mendekatimu
Kau melihat langit setiap kali aku memandangmu.
Kau benar-benar tidak memahami perasaanku atau kau hanya pura-pura tidak tahu ?
Setiap menit waktu beralalu.

Bahkan jika kau melewati tubuhku yang lelah.
Bahkan jika kau mencoba mengabaikanku.
Di dalam hatiku, bagaikan sebuah sungai.
Kau adalah pelangi yang melayang diatasnya.

Aku ingin berlari ke arahmu.
Aku ingin terbang ke arahmu.
Aku ingin kau ada dihatiku.
Selamanya seperti ini.

Tidak berlari kesana kemari seperti anak kecil.
Tidak terbang seperti kupu-kupu.
Aku akan selalu dan selamanya ada di sisimu.
Mengalir bagaikan sungai ke arahmu.

Aku ingin berlari ke arahmu. Aku ingin terbang ke arahmu.
Aku ingin kau ada dihatiku. Selamanya tetap seperti ini.
Aku ingin berlari ke arahmu. Aku ingin terbang ke arahmu.
Aku ingin kau ada dihatiku. Selamanya tetap seperti ini.

Aku ingin berlari ke arahmu. Aku ingin terbang ke arahmu.
Aku ingin kau ada dihatiku. Selamanya tetap seperti ini.
Aku ingin berlari ke arahmu. Aku ingin terbang ke arahmu.
Aku ingin kau ada dihatiku. Selamanya tetap seperti ini.

Bagaimana dalam banget kann ?

Itu dia logo favicon baru yang saya buat barusan hehe, ada maknanya lohhh ! Mau tau apa makna dari logo baru itu ?

1. Huruf B
           Melambangkan nama saya sebagai pembuat artikel hehe

2. Warna Orange
           Melambangkan kekuatan, kemauan, eksentrik, aktif, agresif, bersaing, warna ini memberikan pengaruh berkemauan keras dan penuh semangat. Dikutif dari http://www.toekangweb.or.id

3. Warna Ungu
           Menggambarkan sikap ‘gempuran’ keras yang dilambangkan dengan warna biru. Bersifat penuh harapan. Dikutif dari http://www.toekangweb.or.id

4. Kombinasi bahasa Pemrograman
           Bahasa pemrograman yang merupakan suatu himpunan dari aturan sintaks dan semantik yang dipakai untuk mendefinisikan dan membuat sebuah program. Kombinasinya menggambarkan sebagai satu kesatuan dalam pemrograman yang kita kenal sebagai bahasa pemrograman dan harus kita kuasai salah satu bahasa pemrograman yang menurut kita mudah untuk dikembangkan dan menunjang masa depan kita. Waah maaf berbelit belit gitu yaa, pokoknya gitu deh hehe

Semoga menginspirasi kita semua !
Akhir kata saya ucapkan Wassalam 'mualaikum Warahmatullahi Wabarakatuh

Pemrogramman - coding - Program konversi bilangan Desimal ke bilangan Biner

Kali ini saya akan berbagi mengenai algoritma dan pemrogramman bahasa pascal mengonversi bilangan decimal ke bilangan biner. Untuk dapat mengonversi bilangan decimal ke biner kita harus memahami konsep dasar penggunaan div dan mod yang ada juga di dalam artikel saya yang sebelumnya, selain itu kita harus tau logika dalam menyelesaikan permasalahannya. Persoalannya sebagai berikut :

program Konversi_Desimal_ke_Biner________by_BayuWPP;
{I.S. : user memasukkan sebuah bilangan desimal}
{F.S. : menampilkan hasil konversi bilangan desimal ke biner}
//bayubayyz.blogspot.com by bayuwpp
uses crt;
var{kamus}
   x : integer; {bilangan desimal}
   a,b,c,d,e,f,g,h : integer;
   sisa_a,sisa_b,sisa_c,sisa_d,sisa_e,sisa_f,sisa_g,sisa_h : integer;
begin
   gotoxy(1,1);write(' Masukkan bilangan desimal : ');readln(x);
   {proses mengkonversi desimal ke biner}
   //proses mencari digit ke 1 *******#
   a := x div 2;
   sisa_a := x mod 2;
   if (sisa_a = 1) then
   begin
      gotoxy(35,3);write('1');
   end
   else
   begin
      gotoxy(35,3);write('0');
   end;//endif
   //proses mencari digit ke 2 dari kanan ******#*
   b := a div 2;
   sisa_b := a mod 2;
   if (sisa_b = 1) then
   begin
      gotoxy(34,3);write('1');
   end
   else
   begin
      gotoxy(34,3);write('0');
   end;//endif
   //proses mencari digit ke 3 dari kanan *****#**
   c := b div 2;
   sisa_c := b mod 2;
   if (sisa_c = 1) then
   begin
      gotoxy(33,3);write('1');
   end
   else
   begin
      gotoxy(33,3);write('0');
   end;//endif
   //proses mencari digit ke 4 dari kanan ****#***
   d := c div 2;
   sisa_d := c mod 2;
   if (sisa_d = 1) then
   begin
      gotoxy(32,3);write('1');
   end
   else
   begin
      gotoxy(32,3);write('0');
   end;//endif
   //proses mencari digit ke 5 dari kanan ***#****
   e := d div 2;
   sisa_e := d mod 2;
   if (sisa_e = 1) then
   begin
      gotoxy(31,3);write('1');
   end
   else
   begin
      gotoxy(31,3);write('0');
   end;//endif
   //proses mencari digit ke 6 dari kanan **#*****
   f := e div 2;
   sisa_f := e mod 2;
   if (sisa_f = 1) then
   begin
      gotoxy(30,3);write('1');
   end
   else
   begin
      gotoxy(30,3);write('0');
   end;//endif
   //proses mencari digit ke 7 dari kanan *#******
   g := f div 2;
   sisa_g := f mod 2;
   if (sisa_g = 1) then
   begin
      gotoxy(29,3);write('1');
   end
   else
   begin
      gotoxy(29,3);write('0');
   end;//endif
   //proses mencari digit ke 8 dari kanan #*******
   h := g div 2;
   sisa_h := g mod 2;
   if (sisa_h = 1) then
   begin
      gotoxy(28,3);write('1');
   end
   else
   begin
      gotoxy(28,3);write('0');
   end;//endif

   gotoxy(1,3);write(' Hasil konversi ke biner : ');
   readln;
   //by bayuWPP unikom
end.

Sekian, artikel yang saya buat mengenai mengonversi bilangan desimal ke bilangan biner. Semoga bermanfaat bagi kita semua ! Keep spirit and practice to be the young success programmer !






Kami membutuhkan bantuan anda untuk mengisi survei singkat ini. Tolong bantu ya untuk mengisi, gampang ko hanya mengisi nama, email sama 5 pertanyaan saja kawan. Bantu isi ya surveinya disini !!!.
Terimakasih. Semoga bantuan temen temen mendapat balasan yang berlipat ganda dari Allah SWT, Amin