STRUKTUR PENGULANGAN (LOOP STATEMENT) DALAM BAHASA PASCAL

STRUKTUR PENGULANGAN (LOOP STATEMENT)

  • 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.
          Digunakan untuk mengulang Statemen atau satu blok Statemen berulang kali. Jumlah
          Pengulangan dapat ditentukan sebelum di eksekusi.
          a. Menaik (Ascending)
              FOR pencacah := nilai_awal TO nilai_akhir DO
                       aksi
          b. Menurun (Descending)
             FOR pencacah := nilai_akhir DOWNTO nilai_awal DO
                       aksi
          Contoh Program Dalam PASCAL 
           program ForToDo;
           uses crt;
           var
                   i : integer;
           begin
                    clrscr;
                    for i := 1 to 20 do
                    writeln('NANO SETYANA');
                    writeln('201343500534');
                 readln;
           end.
  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.

MINI PROJEK PROGRAM RENTAL KOMPUTER DALAM BAHASA PASCAL



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.

CARA MENGETAHUI SIAPA YANG SERING MELIHAT PROFIL FACEBOOK KITA

Selamat Malam....!!
Facebook mungkin sudah familiar dengan sobat bloger, banyak hal yang dapat kita perbuat di media sosial yang satu ini. Mungkin terkesan JADUL yee :D hari gini masih facebookan. Tetapi banyak yang kita dapat dari si Facebook. (udah mukodimahnya segitu aja)

Kali ini saya akan berbagi sedikit trik untuk mengetahui siapa saja yang sering melihat-lihat profil kita, tentu saja hal ini bisa membuat kita tersenyum. Kenapa ? karena orang yang tidak pernah kita bayangkan sebelumnya ternyata diam-diam sering melihat-lihat profil facebook kita. 
Oke, Let's go !
(di sini saya menggunakan browser Mozilla Firefox).

cara ini cukup simpel dan tidak membutuhkan Add-ons atau software apapun. Sobat tinggal Log In saja menggunakan Akun Facebook sobat. 
2. setelah Sobat Masuk dengan akun sobat sendiri,masuk ke profil/kronologi sobat.
3. klik kanan di sebarang tempat, kemudian klik View Page Source.
4. kemudian akan muncul jendela baru, cari InitialChatFriendsList untuk mempermudah gunakan ctrl+F
5.  maka akan ada banyak sekali deret angka, nah deret angka tersebut merupakan id facebook teman-teman sobat,(17022859xx","1000002429597xx" sesudah kata "list"kopikan saja id facebook tersebut pada  URL Facebook, misalnya : http://www.facebook.com/17022859xx.
6. Maka akan terlihat siapa saja yang melihat akun profil kita.

Waahh, lumayan kan coy, kita jadi tau siapa saja yang sering melihat profil kita. Selamat Mencoba, Semoga Bermanfaat !!!

CARA MERUBAH FACEBOOK MENJADI BAHASA SUNDA

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""


2. lalu instal SCRIPT facebook Sunda selanjutnya tinggal klik instal

3. Restart firefox, dan lihat hasilnya.

SCRIPT UNIK UNTUK FACEBOOK


CARA MENGGANTI THEMA FACEBOK MENJADI LEBIH KEREN

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 :

 

bagaimana, keren kan ? :D
oke ini dia triknya :
1. pertama pilih tema yg sobat mau DI SINI dan sobat pilih tema sesuai keinginan hati sobat
2. Lalu Setelah itu ikuti langkah-langkah berikut (lihat gambar)
3. maka setelah "install Stylish with Smartest Bar (or install just Stylish)" di klik maka muncul :
4. nah, sobat tinggal mengklik aja "Install with Stylish"
5. selesai deh :D

jangan kaget, kini tema facebook sobat sudah keren :D
terima kasih sudah berkunjung, Wassalam.


PENGERTIAN CACHE, COOKIES, SESSION

PENGERTIAN CACHE, COOKIES, SESSION


Arti istilah cache
Suatu tempat untuk menyimpan sesuatu secara sementara, mekanisme untuk mempercepat transfer data dengan cara menyimpan data yang telah di akses di suatu buffer, dengan harapan jika data yang sama akan diakses, akses akan menjadi lebih cepat. Dalam Internet sebuah proxy cache dapat mempercepat proses browsing dengan cara menyimpan data yang telah diakses di komputer yang berjarak dekat dengan komputer pengakses. Jika kemudian ada user yang mengakses data yang sama, proxy cache akan mengirim data tersebut dari cache-nya, bukan dari tempat yang lama diakses. Dengan mekanisme HTTP, data yang diberikan oleh proxy selalu data yang terbaru, karena proxy server akan selalu mencocokkan data yang ada di cache-nya dengan data yang ada di server luar.

Dalam terminologi hardware, istilah ini biasanya merujuk pada memory berkecepatan tinggi yang menjembatani aliran data antara processor dengan memory utama (RAM) yang biasanya memiliki kecepatan jauh lebih rendah. Penggunaan cache ditujukan untuk meminimalisir terjadinya bottleneck dalam aliran data antara processor dan RAM. Sedangkan dalam terminologi software, istilah ini merujuk pada tempat penyimpanan sementara untuk beberapa file yang sering diakses (biasanya diterapkan dalam network)
Berasal dari kata cash, dipergunakan untuk meningkatkan kecepatan transfer data baik secara sementara maupun permanent.

Pengertian Cookies
Cookies merupakan data file yang ditulis ke dalam hard disk komputer oleh web server yang digunakan untuk mengidentifikasikan diri user pada situs tersebut sehingga sewaktu user kembali mengunjugi situs tersebut, situs itu akan dapat mengenalinya.
Fugsi cookies :
1. Membantu web site untuk “mengingat” siapa kita dan mengatur preferences yang sesuai sehingga apabila user kembali mengunjungi web site tersebut akan langsung dikenali.
2. Menghilangkan kebutuhan untuk me-register ulang di web site tersebut saat mengakses lagi tersebut (site tertentu saja), cookies membantu proses login user ke dalam web server tersebut.
3. Memungkinkan web site untuk menelusuri pola web surfing user dan mengetahui situs favorit yang sering dikunjunginya.
Jenis Cookies
1. Non persistent (session) cookies. Suatu cookie yang akan hilang sewaktu user menutup browser dan biasanya digunakan pada ‘shopping carts’ di toko belanja online untuk menelusuri item-item yang dibeli,
2. Persistent cookies. Diatur oleh situs-situs portal, banner / media iklan situs dan lainnya yang ingin tahu ketika user kembali mengunjungi site mereka. (misal dengan cara memberikan opsi ”Remember Me” saat login). File file ini tersimpan di hardisk user.
Kedua tipe cookies ini menyimpan informasi mengenai URL atau domain name dari situs yang dikunjungi user dan beberapa kode yang mengindikasikan halaman apa saja yang sudah dikunjungi. Cookies dapat berisi informasi pribadi user, seperti nama dan alamat email, Akan tetapi dapat juga user memberikan informasi ke website tersebut melalui proses registrasi. Dengan kata lain, cookies tidak akan dapat “mencuri” nama dan alamat email kecuali diberikan oleh user. Namun demikian, ada kode tertentu (malicious code) yang dibuat misalnya dengan ActiveX control, yang dapat mengambil informasi dari PC tanpa sepengetahuan user.
Cookies umumnya kurang dari 100 bytes sehingga tidak akan mempengaruhi kecepatan browsing. tetapi karena umumnya browser diatur secara default untuk menerima cookies maka user tidak akan tahu bahwa cookies sudah ada di komputer. Cookies dapat berguna terutama pada situs yang memerlukan registrasi, sehingga setiap kali mengunjungi situs tersebut, cookies akan me-login-kan user tanpa harus memasukkan user name dan password lagi

Session
Adalah perintah untuk pendeklarasian variabel global yang akan memanggil nilai dari variabel tsb.
Untuk mengakhiri atau menghapus semua variabel session, kita menggunakan fungsi session_destroy ( )
Fungsi session destroy tidak memerlukan argumen dalam penggunaanya. Contoh perintah mengakhiri session yang dibuat pada file session yang dibuat sebelumnya.

Cara Cek Speed Kecepatan Download Upload Internet


Kali ini saya akan berapi tips dan trik  Upload Internet. Pasti jika brhubungan dgn internet sobat akan berfikir kecepatan atau  sobat sedang berbicara soal Download Upload Internet atau pasti sobat atau temen sobat bertanya Berapa Kecepatan Download Upload Internet ? nah pertanyaan itu adalah pertanyaan wajar dan pasti sobat bertanya bagai mana cara mengetahui Kecepatan internet? jangan khwatir karena disini saya akan berbagi ilmu tntang Cara Cek Download Upload Internet Kecepatan Internet, Untuk lebih jelas silahkan baca di bawah dengan teliti.

Cek Speed Kecepatan Download Upload Internet


Cara Cek Kecepatan Download Upload Internet


Bagaimana cara mengetahui kecepatan internet? yang jelas sangat mudah sekali. Silahkan ikuti panduan yang singkat dibawah ini.

1.Kunjungi http://www.speedtest.net/
2.Jika sobat sedang melakukan Download Upload Internet, sebaiknya hentikan dulu. Karena akan mengangu proses pengecekkan Download Upload Internet
4.Selanjutnya klik Begin Test
5.Selain IP address dan kecepatan Download Upload Internet, disana juga kitadapat mengetahui Ping dan jarak, semakin kecil nilainya semakin cepat respon dari Download Upload Internet kita. seperti pada gambar di atas.

Demikianlah info mengenai  Cara Cek atau Mengetahui Kecepatan Download Upload Internet.

Copyright © 2012 nanonymous-cyberTemplate by :Urangkurai.Powered by Blogger.Please upgrade to a Modern Browser.