Bilangan < 1000 yang habis dibagi 3 dan 5

Sedikit berbagi cerita yaa Bloggers ^^

Koding program yang satu ini adalah ujian Pascal ketika saya sedang mengikuti tahap seleksi Asisten LePKom 2011 (http://lepkom.gunadarma.ac.id/). Pada tahap ini, saya mendapatkan soal untuk menyelesaikan program bilangan < 1000 yang habis dibagi 3 dan 5 menggunakan pemrograman Pascal.

Berikut adalah koding programnya :

uses crt;

var

i : integer;

begin

 clrscr;

 gotoxy (10,09); 

 write ('=============================================================');

 gotoxy (10,10); 

 write ('| DERET BILANGAN KURANG DARI 1000 YANG HABIS DIBAGI 3 DAN 5 |');

 gotoxy (10,11);

 write ('=============================================================');

 begin

   writeln;

   for i := 1 to 1000 do

      begin

         if (i mod 3 = 0) and (i mod 5 = 0) then write (i,' ')

         else

      end;

 end;

readkey;

end.

Naah, kalo temen-temen sudah menuliskan kodingannya, inilah tampilan hasil outputnya :

DERET BILANGAN FIBONACCI

Dalam matematika, Bilangan Fibonacci adalah barisan yang didefinisikan secara rekursif sebagai berikut :

 
Penjelasan :
Barisan ini berawal dari 0 dan 1, kemudian angka berikutnya didapat dengan cara menambahkan kedua bilangan yang berurutan sebelumnya. Dengan aturan ini, maka barisan bilangan Fibonacci yang pertama adalah :

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946...

 

Naah, bagaimana jika bilangan Fibonacci ini diterapkan pada pemrograman Pascal?
Berikut adalah koding dari bahasa pemrograman Pascal :
 

uses crt;

var

n,i : integer;

a : array [0..100] of integer;

begin

clrscr;

gotoxy (25,05); write ('____________________________');

gotoxy (25,06); write ('                            ');

gotoxy (25,07); write ('  DERET BILANGAN FIBONACCI  ');

gotoxy (25,08); write ('____________________________');

gotoxy (25,12); write ('Masukkan angka pembatas :  '); readln (n);

gotoxy (25,15);
for i := 0 to n-1 do
   begin  
      if (i=0) or (i=1) then
         begin
            a [i] := 1;
            write (a [i],' ');
         end
      else
         begin
            a [i] := a [i-1] + a [i-2];
            write (a [i],' ');
         end;
    end;
readkey;
end.



Jika kita Masukkan angka pembatasnya adalah 12,  output yang dihasilkan sebagai berikut.


 

Mengunyah Permen Karet Bikin Nilai Ujian Lebih Bagus ???

REPUBLIKA.CO.ID,    
NEW YORK

Ingin nilai ujian sekolah Anda lebih tinggi? 

        

  Mengunyah permen karet mungkin bisa dijadikan salah satu cara untuk meningkatkan nilai ujian Anda. 

     Penelitian terbaru yang diterbitkan dalam jurnal Appetite, menemukan bahwa siswa yang mengunyah permen karet selama lima menit sebelum ujian, memiliki nilai yang lebih tinggi dibandingkan temannya yang tidak.

       Menurut asisten profesor psikologi di Universitas St Lawrence University Canton, New York, Serge Onyper, permen karet dapat meningkatkan kinerja otak. Dilaporkan dalam laman berita HelathDay News, mengunyah dapat meningkatkan 'gairah' agar otak bisa bekerja lebih baik selama 20 menit.

      Penelitian sebelumnya telah menunjukkan bahwa semua jenis aktivitas fisik meningkatkan kinerja otak. Studi ini semakin memantapkan bahwa aktivitas ringan seperti mengunyah juga bisa meningkatkan kinerja otak.

    Namun, jangan mencoba untuk selalu mengunyah permen karet sepanjang tes. Penelitian ini hanya merekomendasikan mengunyah permen karet selama lima menit sebelum ujian dimualai saja. Mengunyah dan berfikir merupakan dua aktivitas yang cukup berlawanan, sehingga melakukan aktivitas ini bersama tidak disarankan dalam penelitian ini.