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 :