Ringkasan Perkembangan Komputer Masa Depan -

        Begitulah tampilan yang saya buat saat praktikum mata kuliah Algoritma dan Pemrogramman di Semester 1, sebenarnya sih saya gagal membuat tampilan ini ketika di lab saya kurang paham waktu itu hehe, dan akhirnya saya menyelesaikannya dirumah karena rasa keiingin tauan yang tinggi akhirnya saya paham juga hehe. Seharusnya saya postingkan ini sebelum artikel artikel pemrogramman yang sudah terposting, karena ini adalah program pertama yang saya buat.

        Yang harus diperhatikan dalam membuat tampilan ini adalah posisi peletakkan posisi awal untuk window (jendela) dan posisi akhir windownya. Misal untuk membuat jendela yang pertama window(2,2,38,24). Angka 2,2 di sana menunjukkan posisi awal window, yaitu pada titik koordinat x=2 dan y=2 (x horizontal dan y vertikal). Sedangkan angka 38,24 di sana menunjukkan posisi akhir window, yaitu pada titik koordinat x=38 dan y=24. Untuk lebih detailnya Anda dapat melihat codingannya.
        Berikut adalah coding untuk Membuat Tampilan Keren Di Program Console Pascal yaitu tampilan ekspresi muka :

program Hello_This_is_my_Ekspression;
uses crt;
begin
  { jendela 1 }
  window(2,2,38,24);
  textbackground(brown);
  clrscr;
  { Mata }
  window(3,3,15,7);
  textbackground(white);
  clrscr;
  window(5,5,13,6);
  textbackground(black);
  clrscr;
  window(25,3,37,7);
  textbackground(white);
  clrscr;
  window(27,5,35,6);
  textbackground(black);
  clrscr;
  { hidung }
  window(19,8,21,9);
  textbackground(5);
  clrscr;
  window(18,9,22,10);
  textbackground(5);
  clrscr;//bayubayyz.blogspot.com
  window(17,10,23,13);
  textbackground(5);
  clrscr;
  window(15,13,25,15);
  textbackground(5);
  clrscr;
  window(17,14,19,15);
  textbackground(0);
  clrscr;
  window(21,14,23,15);
  textbackground(0);
  clrscr;
  { bibir }
  window(5,17,6,18);
  textbackground(4);
  clrscr;
  window(6,18,8,19);
  textbackground(4);
  clrscr;
  window(7,19,33,20);
  textbackground(4);
  clrscr;
  window(9,20,31,21);
  textbackground(4);
  clrscr;
  window(12,21,29,23);
  textbackground(4);
  clrscr;
  window(32,18,34,19);
  textbackground(4);
  clrscr;
  window(34,17,35,18);
  textbackground(4);
  clrscr;
  { gigi }
  window(11,20,29,20);
  textbackground(7);
  { jendela 2 }
  clrscr;
  window(42,2,78,24);
  textbackground(brown);
  clrscr;
  { mata }
  window(43,3,55,7);
  textbackground(white);
  clrscr;//10113218
  window(45,5,53,6);
  textbackground(black);
  clrscr;
  window(65,3,77,7);
  textbackground(white);
  clrscr;
  window(67,5,75,6);
  textbackground(black);
  clrscr;
  { hidung }
  window(59,8,61,9);
  textbackground(black);
  clrscr;
  window(58,9,62,10);
  textbackground(black);
  clrscr;
  window(57,10,63,13);
  textbackground(black);
  clrscr; //by bayuwpp
  window(55,13,65,15);
  textbackground(black);
  clrscr;
  window(57,14,59,15);
  textbackground(white);
  clrscr;
  window(61,14,63,15);
  textbackground(white);
  clrscr;
  { bibir }
  window(53,17,67,19);
  textbackground(4);
  clrscr;
  window(51,19,69,20);
  textbackground(4);
  clrscr;
  window(49,20,71,21);
  textbackground(4);
  clrscr;
  window(48,21,50,22);
  textbackground(4);
  clrscr;
  window(47,22,48,23);
  textbackground(4);
  clrscr;
  window(70,21,72,22);
  textbackground(4);
  clrscr;
  window(72,22,73,23);
  textbackground(4);
  clrscr;
  readln;//alpro_praktikum1
end.

        Nah bagaimana sobat ? Cukup  mudahkan hehe, semoga bermanfaat !
Bila Anda belum mempunyai program pascalnya Anda dapat mendownloadnya secara free lengkap dengan penjelasan serta tipsnya disini !
Alhamdulillah Artikel mengenai Membuat Tampilan Keren di Program Pascal sudah selesai !







Belum updol bila temen-temen sering menjelajah di Internet tetapi Anda belum mengisi survei singkat online ini ! Klik disini untuk mengisi surveinya !
Tolong bantu ya untuk mengisi survei ini ! Semoga bantuan temen temen mendapat balasan yg berlipat ganda dari Allah SWT, Amin. Tolong yaa!

Contoh Program Pascal - Data Nilai Mahasiswa

Penggunaan array pada program dapat membuat data menjadi dapat di olah secara tersusun berurutan dari 1 sampai nilai yang kita tentukan atau sebuah nilai pada konstanta. Sedangkan record itu sendiri merupakan kumpulan variabel data yang disimpan dalam sebuah wadah menjadi satu. Record dapat kita misalkan sebuah lemari yang di dalamnya dapat menyimpan berbagai macam bagian untuk pakaian seperti bagian baju, bagian celana, bagian surat surat penting dsb yang di simpan dalam lemari tersebut.

Berikut adalah coding progam membuat daftar nilai mahasiswa dalam pascal dan telah menggunakan array of record :

program Data_Nilai_MAhasiswa;
{I.S : User memasukkan banyaknya data (N) dan record Mahasiswa}
{F.S : Menampilkan Daftar Nilai Mahasiswa (1:N)}
//bayubayyz.blogspot.com
uses crt;
{Nama Konstanta}
const
    Maks_Mhs = 50; {Jumlah Maksimum Mahasiswa}
{Nama Tipe}
type
    Data_Mhs = record {Data Mahasiswa}
               NIM,Nama : string;
               Nilai    : integer;
               Indeks   : char;
               end;
    Mahasiswa = array [1..Maks_Mhs] of Data_Mhs; {array of record data mahasiswa}
var
    Mhs : Mahasiswa;
    N,i,IndeksA,IndeksB,IndeksC,IndeksD,IndeksE,Tertinggi,Terendah,TotalNilai       : integer;
    rata_rata : real;

{unikom 2013}
begin

    {Memasukkan Banyak Data}
    textcolor(15);
    write('Banyaknya Data : ');readln(N);
    {Validasi Banyaknya Data}
    while (N < 1) or (N > Maks_Mhs) do
      begin
         textcolor(red);
         writeln('Banyak Data Hanya 1-50, Ulangi !');
         write('Tekan Enter untuk melanjutkan !');
         readln;
         gotoxy(1,2);clreol;
         gotoxy(1,3);clreol;
         gotoxy(18,1);clreol;textcolor(15);readln(N);
      end;
    {Membuat Judul Tabel dan Header}
    clrscr;
    gotoxy(28,1);textcolor(15);
    write('Daftar Nilai Mahasiswa');
    gotoxy(28,2);
    write('======================');
    gotoxy(4,3);
    write('======================================================================');
    gotoxy(4,4);
    write('! No !    NIM    !       Nama Mahasiswa       ! Nilai ! Indeks Nilai !');
    gotoxy(4,5);
    write('======================================================================');

    {Jumlah Mula - Mula Indeks A - Indeks E}
    IndeksA := 0;
    IndeksB := 0;
    IndeksC := 0;
    IndeksD := 0;
    IndeksE := 0;
    {Nilai Tertinggi dan Terendah Mula Mula}
    Tertinggi := -999;
    Terendah  := 999;
    {Mula - Mula Total Nilai}
    TotalNilai := 0;

    {Mengolah Data Mahasiswa}
    for i := 1 to N do
       begin
         {Menampilkan No}

           gotoxy(4,i+5);
           write('!    !           !                            !       !              !');
           gotoxy(6,i+5);
           write(i);

         {Memasukkan NIM, Nama Mahasiswa dan Nilai}
         gotoxy(11,i+5);
         readln(Mhs[i].NIM);
         gotoxy(23,i+5);
         readln(Mhs[i].Nama);
         gotoxy(53,i+5);
         readln(Mhs[i].Nilai);

         {Menentukan Indeks Nilai dan Menghitung Banyaknya IndeksA, IndeksB, IndeksC, IndeksD & IndeksE}
         case (Mhs[i].Nilai) of
            80..100 : begin
                      Mhs[i].Indeks := 'A';
                      IndeksA := IndeksA + 1;
                      end;
            70..79  : begin Mhs[i].Indeks := 'B';
                      IndeksB := IndeksB + 1; end;
            60..69  : begin Mhs[i].Indeks := 'C';
                      IndeksC := IndeksC + 1; end;
            50..59  : begin Mhs[i].Indeks := 'D';
                      IndeksD := IndeksD + 1; end;
            0..49   : begin Mhs[i].Indeks := 'E';
                      IndeksE := IndeksE + 1; end;
         end;{endcase}
         {Menentukan Nilai Rata-rata}
         TotalNilai := TotalNilai + Mhs[i].Nilai;
         rata_rata  := TotalNilai div N;
         {Menentukan Nilai Tertinggi}
         if (Mhs[i].Nilai > Tertinggi)
         then
             Tertinggi := Mhs[i].Nilai;
         {Menentukan Nilai Terendah}
         if (Mhs[i].Nilai < Terendah)
         then
             Terendah := Mhs[i].Nilai;
         {Menampilkan Indeks Nilai}
         gotoxy(66,i+5);
         write(Mhs[i].Indeks);

      end;{endfor}
    {Penutup Tabel}
    gotoxy(4,i+6);
    write('======================================================================');

    {Menampilkan Nilai Rata-rata, Nilai Tertinggi, Nilai Terendah}
    gotoxy(4,i+7);
    write('Nilai Rata rata : ',rata_rata:0:2);
    gotoxy(4,i+8);
    write('Nilai Tertinggi : ',Tertinggi);
    gotoxy(4,i+9);//by bayuwpp
    write('Nilai Terendah  : ',Terendah);

    {Menampilkan Jumlah IndeksA, IndeksB, IndeksC, IndeksD & IndeksE}
    gotoxy(4,i+10);
    write('Jumlah Indeks A : ',IndeksA,' Mahasiswa');
    gotoxy(4,i+11);
    write('Jumlah Indeks B : ',IndeksB,' Mahasiswa');
    gotoxy(4,i+12);
    write('Jumlah Indeks C : ',IndeksC,' Mahasiswa');
    gotoxy(4,i+13);
    write('Jumlah Indeks D : ',IndeksD,' Mahasiswa');
    gotoxy(4,i+14);
    write('Jumlah Indeks E : ',IndeksE,' Mahasiswa');

    gotoxy(23,i+16);textcolor(red);//by bayuwpp
    write('Tekan Enter Untuk Menutup Program !');
    readln;
end. 

Semoga bermanfaat sob



Saya 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

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