• Pengulangan Tanpa Kondisi (unconditional looping). Dalam struktur ini instruksi-intruksi di dalam badan pengulangan diulangi sejumlah kali yang didefinisikan (Struktur FOR TO DO).
• Pengulangan Dengan Kondisi (conditional looping). Jumlah pengulangan tidak diketahui sebelum eksekusi, dan yang dapat ditentukan hanya kondisi berhenti pengulangan (Struktur WHILE DO dan Struktur REPEAT-UNTIL).

Macam-Macam Pengulangan :

1. Struktur FOR.

1. Struktur WHILE

          Aksi atau runtutan aksi akan dilaksanakan berulang kali selama kondisi bernilai true. Jika
          bernilai false berarti pengulangan selesai.
          WHILE kondisi DO
                        aksi

         Contoh Program Dalam PASCAL
         program WhileDo;
         uses crt;
         var
              a, b, c, i : integer;
         begin
                  a:=1;
                  b:=0;
                  i:=1;
                  while i <= 10 do
                  c:=a+b;
                  Writeln(c);
                  a:=b;
                  b:=c;
                  i:=1+1;
               readln;
          end.

1. Struktur REPEAT

          Mendasarkan pengulangan pada kondisi boolean. Aksi di dalam badan pengulangan diulang
          sampai boolean bernilai true, jika boolean masih false pengulangan masih terus dilakukan.
          REPEAT aksi
                       UNTIL kondisi

          Contoh Program Dalam PASCAL
    program statemenrepeat1;
         uses wincrt;
         var i:integer;
         begin
   {inisialisasi nilai indeks i dengan 1}
         i:=1;
   {melakukan pengulangan}
         repeat
         writeln('NANO SETYANA');
         i:=i+1;
         until (i < 5);
         end.

program rental;
uses crt;
const A='--------------------------------------------------------------------------------';
        kode='admin';

var
        np : string[9];
        NPM, Nama, teks, kata, kalimat, kata1, kata2 : string;
        total, hg : real;
        nk, i, j, lm, jm, jk, pil : integer;
        kode_masuk : string[5];
        ulang, cek : char;
        u, x, r : byte;
begin
        clrscr;
        writeln('********************************************************************************');
        GoToXY(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
        GoToXY(20,3); writeln('======ANONYM CYBER COMPUTER ( A C C )=======');
        writeln('********************************************************************************');
        writeln('--------------------------------------------------------------------------------');
        GoToXY(26,6); writeln('S1E TEKNIK INFORMATIKA UNINDRA');
        repeat
        write('User ID  : ');readln(kode_masuk);
        write('Password : ');readln(kode_masuk);
        write(A);
        if(kode_masuk = 'admin') then
                begin
                        cek := 'y';
                end
        else
                begin
                        writeln('User ID dan Password yang Anda Gunakan Salah');
                end;
                u := u + 1;
        until(u>=3) or (cek='y');
        if(u>=3) then
                begin
                        writeln('Anda Sudah 3 kali Melakukan Kesalahan, Program Akan Keluar');readln;
                       exit;
                end
        else
        begin
        ulang :='Y';
        while(ulang='y') or (ulang='Y') do begin
        clrscr;
        write(A);
        gotoxy(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
        gotoxy(20,3); writeln('=======S1E TEKNIK INFORMATIKA UNINDRA=======');
        write(A);
        teks := '###--- MENU UTAMA ---###';
        x := round((80-length(teks))/2);
        gotoxy(x,6); write(teks);
        gotoxy(x,7); write('|   1. Masuk Program   |');
        gotoxy(x,8); write('|   2. Tentang Program |');
        gotoxy(x,9); write('|   3. Keluar Program  |');
        gotoxy(x,10); write('========================');
        gotoxy(26,13); write('Silahkan Masukkan Pilihan Anda : ');readln(pil);
        case pil of
        1 : begin
            Clrscr;
            TextColor(12); write(A);
            gotoxy(20,2); writeln('=========PROGRAM RENTAL KOMPUTER==========');
            gotoxy(20,3); writeln('======S1E TEKNIK INFORMATIKA UNINDRA======');
            write(A);
            write('No. Komputer         : ');readln(nk);
            write('Nama User            : ');readln(np);
            write('Harga Per Jam        : ');readln(hg);
            write('Jam Masuk            : ');readln(jm);
            write('Jam Keluar           : ');readln(jk);
            clrscr;
            lm := (jk-jm);
            gotoxy(30,6); writeln('ANONYM CYBER COMPUTER');
            gotoxy(3,7); writeln('---------------------------------------------------------------------------');
            gotoxy(3,8); writeln('| No. Komputer |'); gotoxy(3,9); writeln('---------------------------------------------------------------------------');
            gotoxy(3,10); writeln('|     ',nk);
            gotoxy(23,8); writeln('Nama User    |'); gotoxy(15,10); writeln('   | ',np);
            gotoxy(37,8); writeln(' Harga Per Jam |'); gotoxy(35,10); writeln(' | Rp. ',hg:2:2,'   ','|');
            gotoxy(53,8); writeln(' Jam Masuk |'); gotoxy(53,10); writeln(' Pukul ',jm,'  ','|');
            gotoxy(65,8); writeln(' Jam Keluar |'); gotoxy(65,10); writeln(' Pukul ',jk,'   ','|');
            gotoxy(3,11); writeln('---------------------------------------------------------------------------');
            gotoxy(3,15); writeln('|-------------------------------|');
            gotoxy(3,16); writeln('| Lama Main   : ',lm,' jam','           ','|'); total:=lm*hg;
            gotoxy(3,17); writeln('|-------------------------------|');
            gotoxy(3,18); writeln('| TOTAL BAYAR : Rp. ',total:2:2,'     ','|');
            gotoxy(3,19); writeln('|===============================|');
            gotoxy(3,20); writeln('|******** TERIMA KASIH *********|');
            gotoxy(3,21); writeln('|===============================|');
            readln;
            end;
        2 : begin
            clrscr;
            j := i-1;
            write(A);
            gotoxy(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
            gotoxy(20,3); writeln('===============DATA KELOMPOK================');
            gotoxy(20,4); writeln('=======S1E TEKNIK INFORMATIKA UNINDRA=======');
            write(A);
            gotoxy(20,8); Textcolor(9); writeln('--------------------------------------------');
            gotoxy(20,9); writeln('|        NPM        |     NAMA MAHASISWA   |');
            gotoxy(20,10); writeln('--------------------------------------------');
            gotoxy(20,11); Textcolor(14); writeln('|   201343500534    |  NANO SETIANA        |');
            gotoxy(20,12); writeln('|   201343500493    |  DESRYAN IQBAL       |');
            gotoxy(20,13); writeln('|   201343500476    |  FAISAL ILHAM MALIK  |');
            gotoxy(20,14); writeln('|   201343500509    |  HERLINA WIDYASTY    |');
            gotoxy(20,15); writeln('|   201343500441    |  RIZKA APRILIA       |');
            gotoxy(20,16); writeln('--------------------------------------------');
            readln;
            end;
        3 : begin
        clrscr;
        TextColor(14);
        gotoxy(35,1); write(#1, #0, #1, #0, #2, #0, #2); TextColor(10);
        kalimat:='Terima Kasih Sudah Menggunakan Program Kami. Press ENTER for EXIT      ';
          repeat
                kata1 := copy(kalimat,2,length(kalimat));
                kata2 := copy(kalimat,1,1);
                kalimat := concat(kata1,kata2);

                gotoxy(1,10); write(kalimat); delay(150);
          until keypressed;
          readln;
        exit;
        end;
        end;
        gotoxy(x,29); write('Ulang Lagi (Y/T) ? ');readln(ulang);
        end;
        end;
        readln;
        end.

Kali ini saya akan sedikit berbagi trik facebook. Berhubung saya Urang SUNDA ASLI hhehe :D maka kesempatan kali ini kita akan mencoba merubah bahasa facebook yang tadinya bahasa Indonesia menjadi BASA SUNDA.
oke mari kita awali

1. kita harus menginstal terlebih dahulu GREASEMONKEY, lalu klik pada ""+ add to firefox""

3. Restart firefox, dan lihat hasilnya.

SCRIPT UNIK UNTUK FACEBOOK

Hallohaaa . . .
Welcome to the Club, enjoy !

selamat malam, selamat beristirahat sobat blogger dimana pun anda berada :D, kali ini saya akan sedikit share bagaimana cara mengganti thema facebook menjadi lebih keren :D

nih saya kasih screenshootnya :