Jaringan Ad-Hoc

Ad Hoc secara bahasa berarti “untuk suatu keperluan atau tujuan tertentu saja“. Dalam pengertian lain, jaringan ad hoc adalah jaringan bersifat sementara tanpa bergantung pada infrastruktur yang ada dan bersifat independen.

Ad Hoc Network adalah jaringan wireless yang terdiri dari kumpulan mobile node (mobile station) yang bersifat dinamik dan spontan, dapat diaplikasikan di mana pun tanpa menggunakan jaringan infrastruktur (seluler ataupun PSTN) yang telah ada. Contoh mobile node adalah notebook, PDA dan ponsel. Jaringan ad hoc disebut juga dengan spontaneous network atau disebut MANET (Mobile Ad hoc NETwork).

Contoh Penggunaan/Aplikasi di lapangan :

1. Operasi militer, seperti yang telah diujicobakan kawasan pertempuran di Sudan. Dengan jaringan ad hoc, mempermudah untuk akses informasi antar personil militer.
2. Komersial, jaringan ad hoc dapat digunakan pada situasi emergency atau upaya penyelamatan (rescue operation), seperti banjir atau gempa bumi dan entertainment seperti acara live music.
3. jaringan yang cepat tersedia dengan menggunakan notebook untuk menyebarkan dan berbagi informasi di antara user seperti dalam konferensi atau ruang kuliah.
4. Personal Area Network, untuk jarak pendek (short distance) lebih kurang 10 m, Ad hoc Network secara mudah berkomunikasi antar bermacam peralatan (seperti PDA, laptop dan telepon seluler) dengan laju data yang rendah.
   

Keuntungan :

1. Tidak memerlukan dukungan backbone infrastruktur sehingga mudah diimplementasikan dan sangat berguna ketika infrastruktur tidak ada ataupun tidak berfungsi lagi.
2. Mobile node yang selalu bergerak (mobility) dapat mengakses informasi secara real time ketika berhubungan dengan mobile node lain, sehingga pertukaran data dan pengambilan keputusan dapat segera dilaksanakan.
3. fleksibel terhadap suatu keperluan tertentu karena jaringan ini memang bersifat sementara.
4. Dapat direkonfigurasi dalam beragam topologi baik untuk jumlah user kecil hingga banyak sesuai dengan aplikasi dan instalasi (scalability).
   

Kerugian ( Permasalahan) :

1. packet loss (rugi-rugi paket) akan terjadi bila transmisi mengalami kesalahan (error).
2. seringkali terjadi disconnection, karena tidak selalu berada dalam area cakupan.
3. bandwidth komunikasi yang terbatas
4. lifetime baterai yang singkat.
5. kapasitas kemampuan jangkauan mobile node yang terbatas dan bervariasi.
   

Konfigurasi sederhana :

1. Dibutuhkan “wireless network card” pada masing-masing komputer.
2. Masuk ke “wireless network card properties” dan set “SSID” dengan nama tertentu (unique).
3. Set IP LAN static pada komputer. Patikan kita mengkonfigurasi IP komputer tersebut dalam satu subnet dan range yang sama.
4. Set “network card” pada mode “ad-hoc”, bukan “infrastructure”.
5. Satu sebagai host (access point) yang lain sebagai client. Atau semua bisa berperan sebagai host (multihost)
   

Mencari frekuensi pada R Programming

ini dari temen gue..
anak ka08 [kelas satu lho..]

oke langsung aja ya gue kasih tau cara cari frekuensi pada R Programming
ini dia rumusnya..

jren jreng..
hahahha
jayus ah..

ini dia yang sebenarnya...

frekuensi=function(x,y,z)
{
a=0
for(i in 1 : length (x))
{
if (x[i])>=y&&x[i]<=z) { a=a+1 print (a) } } } frekuensi

frekuensi=function(x,y,z) maksudnya untuk memanggil fungsi pada R Programming..
selanjutnya akan tampil "{"
lalu tulis saja seperti contoh diatas..
jangan sampai salah ya menulisnya..
nanti salah..

oke segini aja dulu..
nanti kita lanjut lagi oce..

Mitos Masturbasi

Mitos:
Biasanya lebih dapat diterima anak laki-laki untuk masturbasi daripada anak perempuan.

Faktanya:
Ini alami untuk laki-laki dan perempuan untuk masturbasi - baik melakukannya.

Mitos:
Seorang anak yang melakukan masturbasi telah terkena informasi seksual yang tidak sesuai untuk nya / usianya.

Faktanya:
Sejak lahir, anak-anak menjelajahi tubuh mereka dengan menyentuh. Mereka belajar ini terasa baik. Menampilkan pengetahuan tentang tindakan seksual selain masturbasi bisa berarti mereka telah terkena informasi seksual yang tidak pantas.

Mitos:
Masturbasi menyebabkan jerawat atau kehilangan penglihatan.

Faktanya:
Bahwa remaja biasanya mulai masturbasi sekitar pubertas saat yang sama, yang juga waktu jerawat dan ketika banyak remaja mendapatkan kacamata.

Mitos:
Masturbasi menyebabkan penyakit menular seksual.

Faktanya:
Agar penyakit yang perlu 'dikirim', Anda memerlukan dua orang. Masturbasi sebenarnya diajarkan di beberapa program pendidikan seks sebagai cara untuk menghindari penyakit menular seksual.

Mitos:
Masturbasi menyebabkan rambut tumbuh di telapak tangan Anda.

Faktanya:
Sekitar 98% orang dewasa telah melaporkan bahwa mereka telah melakukan masturbasi pada suatu waktu dalam hidup mereka. Aku tidak tahu siapa saja dengan rambut di telapak tangan mereka. Bagaimana Anda?

Mitos:
Remaja tidak harus masturbasi sering, karena mereka akan kehilangan kemampuan untuk memiliki anak.

Faktanya:
Remaja akan cenderung melakukan masturbasi lebih sering daripada orang dewasa sebagai tingkat hormon mereka berada pada tertinggi mereka akan dalam hidup mereka. Ingatlah untuk mengetuk pintu mereka saat ditutup - dan jangan khawatir - mereka masih akan dapat memberikan cucu.

Tips Olahraga Perut

Memiliki perut keren, dan kencang merupakan dambaan bagi hampir setiap orang, namun untuk menjadikan perut memiliki bentuk yang ideal di perlukan sedikit usaha, tidak cukup hanya dengan sit-up ratusan kali sehari. Selain sit-up olahraga seperti jogging, renang, Aerobik, Jalan Santai juga bisa membantu mengecilkan perut Anda. Tapi, latihan sekeras mungkin juga nggak bakalan bikin perut kamu oke kalau nggak diimbangi sama diet untuk mengurangi timbunan lemak di daerah perut. Oke silahkan ikuti tips berikut ini untuk mendapatkan perut seperti yang Anda idamkan. 

Pertama pastinya, sit-up, cara pengecilan perut yang paling populer. Tapi sit-up ini lebih oke lagi kalau divariasikan dengan gerakan menyilang. Nggak hanya sekedar lurus ke atas dan ke bawah. Ketika bangun, siku kanan diarahkan ke kaki kiri, begitu juga sebaliknya secara bergantian. 

Sebelum banyak berlatih ada beberapa hal yang perlu kamu ingat untuk menghindari “kecelakaan”. 

1. Ketika sit-up jangan pernah menarik atau menekan bagian leper dan kepala. 

2. Usahakan kakimu jangan bergerak. Biarkan perut yang bekerja. 

3. Tekan ke dalam bagian perut selama latihan. 

Berikut beberapa contoh latihan ringan untuk perut. 

1. Sit-up dasar: Berbaring lah dengan lutut terlipat dan kaki rata menyentuh lantai. Letakan tangan di belakang kepala. Dengan menggunakan otot perut, angkat bahumu. Kembali ke posisi semula dan ulangi 10-12 kali. 

2. Berlatih dengan handuk. Berdiri tegak pegang sebuah handuk kecil di atas kepala. Kencangkan perut dan bentuk gerakan melingkar besar dengan handukmu, ulangi 8-10 kali dan putar ke arah sebaliknya. 

3. latihan dengan bola, Duduk diatas bola dan, gerakan kaki sehingga bola menggelinding perlahan ke punggung. Jika badanmu sudah paralel dengan lantai letakkan tangan ke belakang kepala. Kemudian dengan menggunakan otot perut angkat bahu kanan menjuju arah pinggul kiri. Kembali ke posisi paralel dan ulangi sisi sebaliknya. 

Cegah Kanker Payudara dengan Kedelai

Pola makan yang tinggi kandungan kedelai, yakni isoflavon, diduga mengurangi risiko kekambuhan kanker payudara terutama pada para penyintas (survivor) kanker payudara. 

Para ahli menemukan para survivor kanker payudara yang sudah memasuki menopause dan rutin mengonsumsi isoflavon dari kedelai, sekitar 42,3 miligram per hari, memiliki risiko kekambuhan kanker lebih rendah dibanding mereka yang mengonsumsi kedelai dalam porsi lebih kecil, yakni 15,2 mg per hari.

Kaitan antara komponen kedelai dan kanker payudara memang belum jelas, namun para peneliti meyakini isoflavon memengaruhi kadar estrogen dalam tubuh. Namun penelitian lain menunjukkan efek yang bertolak belakang, isoflavon justru meningkatkan risiko kanker payudara.

Menurut data National Cancer Institute, Amerika, lebih dari 12 persen wanita yang lahir saat ini akan didiagnosa kanker payudara dalam hidupnya. Para ahli menduga hal itu salah satunya dipengaruhi oleh pola makan.

Orang Amerika jarang mengonsumsi kedelai. Baru 37 persen saja yang mengonsumsi makanan atau minuman kedelai beberapa kali dalam sebulan. Sementara itu di Asia, protein yang berasal dari kedelai menjadi menu makanan sehari-hari.

Selama beberapa tahun para ahli terus mengeksplorasi manfaat kedelai bagi kesehatan, khususnya penyakit kanker. Penelitian sebelumnya menunjukan isoflavon dari kedelai, yakni genistein, mampu menghambat efek tamoxifen (obat terapi sulih hormon pada wanita menopause) dan meningkatkan pertumbuhan resepstor positif estrogen.

Ramadhan

In the name of Allah, the most Merciful, the most Kind

A blessed month is casting its shadow upon us
A night of this month is better than a thousand months
Bear with patience for the sake of Ar-Rahman
It's a continuous training to strengthen our Imaan.

Glory be to Allah who sent Ramadan as a mercy to mankind
Its a purification of our soul, our heart, and our mind
With the most sincere devotion and love we fast
To be cleansed and free from sins of the past

Glorified is He, who choseth this holy month,
To test our sabr and fill our hearts with warmth
Of his Divine Light, His blessings shall glow,
The Seer of the unseen, all He does know

Ya Allah! For thee, let my breath be more pleasant than musk
Ya Allah! For thee, let me be thankful when day turns to dusk
My thoughts and heart are purified, my eyes truly see'
This blessed month, the month of spiritual rhapsody!

Ya Allah! For thee, my life I shall live!
Ya Allah! For thee, my soul I shall give!
In the name of Allah, the most Merciful, the most Kind,

Laporan Akhir Pointer pada Pascal

Tampilan Koding Window pascal :

Tampilan Output Pointer :

KODING SELENGKAPNYA:

uses crt; type pointer = ^cell; cell = record      value : integer;      next: pointer; end; var last, belakang, q, p: pointer;     angka,nomor : integer;     jawab : char;     found : boolean; procedure printlist; begin      last:=belakang;      while last <> nil do      begin           writeln (last^.value);           last:=last^.next;      end; end; procedure look; begin writeln ('Masukkan Angka yang Akan Dicari: ');      readln (angka);      last:=belakang;      found:=false;      while (last<>nil) and (found<>true) do      begin           if last^.value=angka then           begin                found:=true;                writeln ('Angka Ditemukan ');                writeln (last^.value);                found:=true;           end           else           last:=last^.next;      end; end; procedure delete; begin      writeln ('Angka Lain Dihapus? ');      readln (angka);      last:=belakang;      found:=false;      while (last<>nil) and (found<>true) do      begin           last:=last^.next;           if q^.value=angka then           begin                dispose (q);                found:=true;           end           else           if last^.value=angka then           begin                writeln (last^.value,' ','Ditemukan dan Dihapus');                q^.next:=last^.next;                dispose (last);                found:=true;           end;      end; end; begin clrscr;      belakang:=nil;      nomor:=1;      writeln('Nomor: ',nomor);      jawab:='y';      while (jawab<>'t') do      begin           writeln ('Masukkan Angka: ');           readln (angka);           new (last);           last^.value:=angka;           last^.next:=belakang;           belakang:=last;           nomor:=nomor+1;           writeln ('Nomor: ',nomor);           writeln ('Terus? Y/T');           readln (jawab);      end;      printlist;      look;      delete;      printlist;      readln; end.

Cara kerja Program:

Uses CRT;

Digunakan untuk menentukan jenis monitor yang akan kita gunakan dan juga untuk mengaktifkan fungsi CLRSCR;

Pointer : ^Cell

Digunakan untuk menentukan variable pointer yang akan kita pakai.

Cell : record

Untuk menjadikan pointer Cell sebagai record.

Value : integer;

Untuk mengidentifikasi jenis variable dari value disini digunakan Integer.

Next : pointer;

Untuk mendefinisikan variable Next sebagai pointer.

var last, belakang, q, p: pointer;     angka,nomor : integer;     jawab : char;     found : Boolean;

untuk menentukan variable last, belakang, q, dan p sebagai pointer.

Angka, nomor sebagai integer.

Jawab sebagai character

Found sebagai Boolean.

procedure printlist; begin      last:=belakang;      while last <> nil do      begin           writeln (last^.value);           last:=last^.next;      end; end;

membuat prosedur printlist.

Dimana last sebagai belakang,

Lalu jika last tidak sama dengan nol program akan melakukan penulisan last^.value artinya akan menuliskan pointer last dengan value sebagai datanya.

procedure look; begin writeln ('Masukkan Angka yang Akan Dicari: ');      readln (angka);      last:=belakang;      found:=false;      while (last<>nil) and (found<>true) do      begin           if last^.value=angka then           begin                found:=true;                writeln ('Angka Ditemukan ');                writeln (last^.value);                found:=true;           end           else           last:=last^.next;      end; end;

memasuki prosedur look.

Program akan menuliskan pada layar “masukkan angka yang akan dicari”

Lalu jika kita memasukkan angka lalu program akan mengingat angka yang telah kita masukkan.

Jika angka ada, maka aka nada tullisan “angka ditemukan”

procedure delete; begin      writeln ('Angka Lain Dihapus? ');      readln (angka);      last:=belakang;      found:=false;      while (last<>nil) and (found<>true) do      begin           last:=last^.next;           if q^.value=angka then           begin                dispose (q);                found:=true;           end           else           if last^.value=angka then           begin                writeln (last^.value,' ','Ditemukan dan Dihapus');                q^.next:=last^.next;                dispose (last);                found:=true;           end;      end; end;

memasuki prosedur delete.

Program akan menulis “angka lain dihapus?”

Maksudnya angka yang akan dihapus berapa?

Jika kita masukkan angka yang akan dihapus dari program, maka program akan menuliskan angka – angka yang telah kita input sebelumnya dengan tidak memunculkan angka yang telah dihapus..

begin clrscr;      belakang:=nil;      nomor:=1;      writeln('Nomor: ',nomor);      jawab:='y';      while (jawab<>'t') do      begin           writeln ('Masukkan Angka: ');           readln (angka);           new (last);           last^.value:=angka;           last^.next:=belakang;           belakang:=last;           nomor:=nomor+1;           writeln ('Nomor: ',nomor);           writeln ('Terus? Y/T');           readln (jawab);      end;      printlist;      look;      delete;      printlist;      readln; end.

Memasuki koding program sebenarnya.

Program akan menghapus layar dengan perintah clrscr.

Lalu program akan menulis nomor-nomor yang kita masukkan.

Jika jawab tidak sama dengan t maka program akan melakukan penulisan “masukkan angka”, lalu akan menginput angka yang telah kita masukkan, lalu kita akan di minta untuk memasukkan input pilihan dimana inputnya Y untuk terus, dan T untuk  tidak melanjutkan penginputan.

Lalu program akan memanggil prosedur prinlist, look, delete, printlist secara berurutan.

Assign pada Pascal II

Sebelumnya Assign dapat digunakan untuk menulis file, sekarang perintah assign dapat digunakan untuk membaca file.

Tampilan coding window

Bila program dijalankan dapat membuka file berbasis ASCII, maka tampilannya:

KODING KESELURUHAN

USES CRT; VAR BERKAS :TEXT; KAR : CHAR; NFILE :STRING; BEGIN CLRSCR; WRITE ('MASUKAN NAMA FILE YANG INGIN DI LOAD : '); READLN (NFILE); ASSIGN (BERKAS,NFILE); RESET (BERKAS); WRITELN; WHILE NOT EOF (BERKAS) DO BEGIN READ (BERKAS,KAR); WRITE (KAR); DELAY (5000); END; READLN; END.

Cara Kerja Program :

USES CRT;

Di gunakan untuk mendklarasikan jenis monitor yang kita gunakan, dalam hal ini kita menggunakan CRT (monitor tabung), Uses CRT juga digunakan untuk mengaktifkan fungsi CLRSCR (Clear Screen).

VAR BERKAS :TEXT; KAR : CHAR; NFILE :STRING;

Di gunakan untuk mendeklarasikan Variabel yang di gunakan dalam program kali ini, kali ini kita menggunakan variable Berkas dengan Tipe Text, Variabel Kar dengan Tipe Character, Variabel NFILE dengan tipe String,

BEGIN

Digunakan untuk memulai suatu proses kerja pada program pascal.

CLRSCR;

Dapat digunakan setelah kita menggunakan USES CRT; pada awal deklarasi program, yang berfungsi untuk menghapus hasil pekerjaan kita sebelumnya pada layar monitor,

WRITE ('MASUKAN NAMA FILE YANG INGIN DI LOAD : '); READLN (NFILE);

Writeln akan menulis “Masukkan nama file yang ingin di load : “ lalu program akan membaca inputan dari keyboard sebagai NFILE,

ASSIGN (BERKAS,NFILE);

Menggabungkan Berkas dengan tipe Text dengan file yang baru di load..

Jadi apapun bentuk file yang di input akan di definisikan sebagai text, meskipun sebenarnya itu adalah file gambar.

RESET (BERKAS);

Menset ulang variable berkas sebagai hasil load dari NFILE..

WRITELN; WHILE NOT EOF (BERKAS) DO

Maksudnya akan menulis data yang ada pada file berkas ..

BEGIN READ (BERKAS,KAR);

Program akan membaca file berkas sebagai Variabel Kar (Character),

WRITE (KAR);

Program akan menulis variable KAR dimana variable kar adalah variable berkas dan variable berkas sudah di definisikan sebagai Character,

DELAY (5000);

Untuk mengatur dalay (waktu tiap karakter akan di tampilkan)

END.

Selesai.

Assign pada Pascal

Assign pada pascal dapat digunakan untuk menulis sebuah file text.

langsung aja nih, tampilan coding window nya:

Lalu, bila dijalankan maka akan tampak seperti dibawah ini:

KODING LENGKAP

USES CRT; VAR BERKAS :TEXT; KALIMAT :STRING; NFILE :STRING; BEGIN CLRSCR; WRITE ('MASUKAN NAMA FILE UNTUK DI BUAT : '); READLN (NFILE); ASSIGN (BERKAS,NFILE); REWRITE (BERKAS); WRITELN; WRITELN ('KETIKAN * UNTUK BERHENTI'); KALIMAT:=''; WHILE KALIMAT [1]<>'*'DO BEGIN READLN (KALIMAT); IF KALIMAT [1]<>'*'THEN WRITE (BERKAS,KALIMAT); END; CLOSE (BERKAS); END.

Cara Kerja Program:

USES CRT;

Di gunakan untuk mendklarasikan jenis monitor yang kita gunakan, dalam hal ini kita menggunakan CRT (monitor tabung), Uses CRT juga digunakan untuk mengaktifkan fungsi CLRSCR (Clear Screen).

VAR BERKAS :TEXT; KAR : CHAR; NFILE :STRING;

Di gunakan untuk mendeklarasikan Variabel yang di gunakan dalam program kali ini, kali ini kita menggunakan variable Berkas dengan Tipe Text, Variabel Kar dengan Tipe Character, Variabel NFILE dengan tipe String,

BEGIN

Digunakan untuk memulai suatu proses kerja pada program pascal.

CLRSCR;

Dapat digunakan setelah kita menggunakan USES CRT; pada awal deklarasi program, yang berfungsi untuk menghapus hasil pekerjaan kita sebelumnya pada layar monitor,

WRITE ('MASUKAN NAMA FILE UNTUK DI BUAT : '); READLN (NFILE);

Writeln akan menulis “Masukkan nama file untuk di buat : “ lalu program akan membaca inputan dari keyboard sebagai NFILE,

ASSIGN (BERKAS,NFILE);

Menggabungkan Berkas dengan tipe Text dengan file yang baru di buat..

REWRITE (BERKAS);

Menulis ulang file berkas dimana berkas adalah file yang telah kita masukkan sebelumnya..

WRITELN; WRITELN ('KETIKAN * UNTUK BERHENTI');

Writeln yg diatas berguna untuk membuat spasi, sedangkan yang dibawahnya berguna untuk menuliskan “Ketikkan * untuk berhenti”

KALIMAT:='';

Mendefinisikan Kalimat dengan character kosong ( ‘’ );

WHILE KALIMAT [1]<>'*'DO BEGIN READLN (KALIMAT); IF KALIMAT [1]<>'*'THEN WRITE (BERKAS,KALIMAT); END; CLOSE (BERKAS); END.

Maksudnya ketika kalimat tidak sama dengan * maka akan membaca kalimat, dan bila kalimat tidak sama dengan * lalu akan menulis Berkas dan Kalimat.

Jika kalimat = * maka program akan menulis kalimat sebagai file yang bernama seperti yang telah kita input sebelumnya..

Lalu program akan berhenti.

Function pada Pascal

Contoh program menentukan program besar dan kecilnya suatu input.
Window Coding:

Tampilan Output Program:

Cara Kerja Program:

USES CRT;

Untuk Mendeklarasikan Bahwa saya menggunakan Monitor CRT sebagai Monitor Utama (Background Hitam dengan Tulisan Putih),

FUNCTION BESAR (A,B:INTEGER):INTEGER;

Program akan membuat sebuah function dengan A,B sebagai Integer.

BEGIN

Program akan memulai proses

IF A>B THEN BESAR:=A ELSE BESAR:=B; END;

Maksudnya jika A > B maka Variabel Besar = A, tetapi bila bukan itu atau dengan kata lain sebaliknya, maka program akan mendefinisikan variable B sebagai Besar.

Lalu program akan keluar dari fungsi

VAR NIL1,NIL2:INTEGER;

Mendefinisikan NIL1, dan NIL2 sebagai Integer,

BEGIN

Proses dimulai,

CLRSCR;

Program akan menghapus semua sisa pengolahan data sebelumnya,

WRITE ('BILANGAN PERTAMA: '); READLN (NIL1);

Program akan menulis “BILANGAN PERTAMA: “ lalu akan membaca input dari user sebagai NIL1

WRITE ('BILANGAN KEDUA : '); READLN (NIL2);

Program akan menulis “BILANGAN KEDUA: “ lalu akan membaca input dari user sebagai NIL2

WRITELN ('BILANGAN TERBESAR ADALAH ',BESAR(NIL1,NIL2):2);

Program akan menulis “BILANGAN TERBESAR ADALAH” dan akan memilih bilangan mana yang terbesar dari kedua bilangan yang telah kita input sebelumnya.

READLN;

Program akan berhenti untuk sementara sebelum berhenti sebelum user menekan Enter.

END.

Program akan berhenti

Faktorial pada Pascal

Coding window pada pascal:

Tampilan bila program dijalankan:

Code Program Faktorial pada Pascal :

USES CRT; PROCEDURE FAKTORIAL;  VAR A,B,C,TOT:INTEGER;  BEGIN  WRITELN ('MASUKKAN ANGKA');  READLN (A);  B := A;  TOT := 1;   BEGIN   WHILE B >= 1 DO    BEGIN    TOT := TOT * B;    B := B - 1;    END;   WRITELN (TOT);   READLN;   END; END; BEGIN CLRSCR; FAKTORIAL; END.

 

CARA KERJA

Pada Program kali ini saya menggunakan kode:

USES CRT;

Untuk Mendeklarasikan Bahwa saya menggunakan Monitor CRT sebagai Monitor Utama (Background Hitam dengan Tulisan Putih),

Lalu memasuki kode prosedur :

PROCEDURE FAKTORIAL;

Disini saya mendeklarasikan sebuah Procedure bernama FAKTORIAL,

VAR A,B,C,TOT:INTEGER;

Pada saat ini program akan mendeklarasikan Variabel A,B,C,dan Tot sebagai Integer (bilangan Bulat):

BEGIN  WRITELN ('MASUKKAN ANGKA');  READLN (A);  B := A;  TOT := 1;

Pada saat ini program akan memulai sebuah operasi di dalam procedure, program akan menulis “MASUKKAN ANGKA”,

lalu program akan mengidentifikasi angka yang anda masukkan sebagai sebuah bilangan bulat (Integer),

lalu program akan mengubah nilai B menjadi sama dengan nilai yang anda masukkan (dalam hal ini nilai A),

lalu program juga akan mengubah nilai TOT menjadi 1,

BEGIN   WHILE B >= 1 DO    BEGIN    TOT := TOT * B;    B := B - 1;    END;   WRITELN (TOT);   READLN; END;

Masuk lebih dalam dengan proses (masih dalam prosedur yang sama), kali ini program akan melooping, jika B >= 1 akan melakukan :

          Mendefinisikan nilai TOT dengan TOT * B,

          Mengurangi Nilai B dengan 1.

Menulis Nilai Dari TOT,

Sampai disini jika program berjalan, maka program akan menuggu User untuk menginput (Enter), sebelum masuk ke proses berikutnya,

END;

Maksudnya program akan keluar dari Prosedur FAKTORIAL (mengakhiri sebuah prosedur),

BEGIN

Program akan memulai sebuah proses,

FAKTORIAL;

Program akan memanggil Prosedur FAKTORIAL,

END.

Program Selesai.

Program Record pada Pascal

Tampilan jendela coding :

Tampilan Output Program:

Code Program Record pada Pascal:

USES CRT; TYPE RECPEGAWAI=RECORD KODE, ALAMAT, NAMA, GAJI: STRING; END; VAR PEGAWAI: RECPEGAWAI; BEGIN WITH PEGAWAI DO BEGIN CLRSCR; KODE:='XXX/MVI/209'; NAMA:='STANFORD GATES BARLEY'; ALAMAT:='STANBURG VALLEY, CALIFORNIA, US'; GAJI:='10000000'; WRITELN ('KODE PEGAWAI  = ',PEGAWAI.KODE); WRITELN ('NAMA PEGAWAI  = ',PEGAWAI.NAMA); WRITELN ('ALAMAT PEGAWAI= ',PEGAWAI.ALAMAT); WRITELN ('GAJI PEGAWAI  = ',PEGAWAI.GAJI); READLN; END; END.

CARA KERJA PROGRAM

USES CRT

Digunakan untuk mendefinisikan jenis monitor yang kita gunakan.

TYPE RECPEGAWAI = RECORD KODE, ALAMAT, NAMA, GAJI: STRING; END;

Digunakan untuk mendeklarasikan tipe record, disini saya mendeklarasikan type record RECPEGAWAI sebagai RECORD, di dalam RECPEGAWAI terdapat KODE, ALAMAT, NAMA, GAJI sebagai bagian dari recordnya.

VAR PEGAWAI: RECPEGAWAI;

Digunakan untuk mendefinisikan PEGAWAI sebagai RECPEGAWAI, dimana RECPEGAWAI adalah RECORD, maka PEGAWAI adalah RECORD juga.

BEGIN WITH PEGAWAI DO

Digunakan untuk mempersingkat penulisan RECORD.

BEGIN

Digunakan untuk memulai suatu proses

CLRSCR;

Digunakan untuk membersihkan layar

KODE:='XXX/MVI/209';

Memberi nilai pada PEGAWAI.KODE dengan “XXX/MVI/209”

NAMA:='STANFORD GATES BARLEY';

Memberi nilai pada PEGAWAI.NAMA dengan “STANFORD GATES BARLEY”

ALAMAT:='STANBURG VALLEY, CALIFORNIA, US';

Memberi nilai pada PEGAWAI.ALAMAT dengan “STANGURG VALLEY, CALIFORNIA, US”

GAJI:='10000000';

Memberi nilai pada PEGAWAI.GAJI dengan “10000000”

READLN;

Membaca input yang kita masukkan, maksudnya digunakan untuk mempause program kita.

END; dan END.

Digunakan untuk menyudahi kode atau deklarasi, atau proses dan sebagainya…

Bilangan Prima dengan Pascal

Code Program Bilangan Prima pada Pascal:

Tampilan jika program dijalankan:

Logika Program:

Program akan mendeklarasikan PRIMA sebagai sebuah fungsi Array, dimana PRIMA memiliki range antara 1 sampai 100, dan anggota PRIM adalah Integer, lalu mendefinisikan I dan J sebagai integer, lalu memulai program, lalu membersihkan layar, mengidentifikasi I untuk I = 2 sampai 100,
PRIMA = I, lalu membagi bilangan I dibagi J, lalu mencari apakah nilai bagi tersebut adalah 0 atau bukan, bila basilnya 0 maka PRIMA[I] := 0, lalu bila hasil bagi bukan nol, maka akan mencetak angka yang menjadi pembaginya,proses akan berulang sampai 100 kali.