Minggu, 16 Mei 2010



ROKOK adalah benda yang sangat berbahaya bagi kesehatan karena di dalam
rokok terdapat zat-zat yang sangat berbahaya bagi tubuh manusia. zat
yang terkandung seperti hydrogen cyanide(racun untuk hukuman mati),
acetone(penghapus cat), toluidine, ammonia(pembersih lantai),
urethane,methanol(bahan bakar roket), toluene(pelarut industri),
arsenic(racun semut putih), dibenzacridine, dimethyin itrosamine,
phenol, napthalene(kapur barus), butane(bahan bakar korek api),
cadmiun(untuk accu), polonium -210, carbon monoxide(gas knalpot),
benzopyrene, vinyl cloride(bahan bakar PVC). Tapi kenapa sebagian orang sangat kecanduan dengan barang tersebut??? Manfaatnya pun tidak ada, jadi apa yang menyebabkan sebagian orang kecanduan rokok????

Penyebabnya mungkin karena pergaulan?? Pada awalnya, ajakan teman, lalu karna sudah terbiasa anak itu pun menjadi kecaduan, seperti pristiwa ada seorang balita merokok pada saat bermain. Pada walnya anak itu mencoba-coba lama kelamaan menjadi terbiasa. Apakah rokok itu haram atau tidak itu masih menjadi pertimbangan, apabila perusahaan rokok ditutup maka petani tembakau akan menganggur. Lagi pula tembakau merupakan hasil bumi Indonesia yang penting bagi pemasukan Negara. Disisi lain rokok itu membuat timbulnya wabah penyakit, yang dapat merusak paru-paru. Dan menyebabkan kematian, barang yang membuat kerusakan itu diharamkan bagi ajaran islam, kaena islam tidak mengajarkan kerusakan pada diri sendiri. ya pada intinya masalah ini perlu di telaah lagi secara bijak…

CONTOH PROGRAM SEDERHANA ARRAY

Buka program turbo pascal,
Program A;
Uses crt;
Var
npm : array [1..10] of string[10];
nama: array [1..20] of string[25];
nilai : array [1..20] of real;
umur : array [1..20] 0f byte;
banyak, i : integer;
begin
clrscr;
Write (‘jumlah data:’);
readln(banyak);
for i := 1 to banyak do begin
write(‘npm=’);
readln (npm[i]);
write(‘nama=’);
readln (nama[i]);
write(‘nilai=’);
readln (nilai[i]);
write(‘umur=’);
readln (umur[i]);
end;
writeln(‘ npm nama nilai umur ‘);
for i:= 1 to banyak do begin
writeln(npm[i]:7,nama[i]:10,nilai[i]:8:2,’ ‘,umur[i]:3;
readln;
end;
end.

CONTOH PROGRAM PENJUMLAHAN SEDERHANA PASCAL

Contoh program penjumlahan sederhana : .

buka program turbo pascal 7
1. ketik uses crt;
2. ketik var a,b,c : integer; ( ini mengenalkan variable, dan datanya itu bertype integer).
3. lalu ketik,
begin ( bagian pernyataan).

clrscr; ( fungsinya untuk menghapus).

write(‘a:’); ( untuk menampilkan huruf a:).

readln(a); ( untuk menginput, lalu menampilkan data integer yang di masukan).

write(‘b:’); ( untuk menampilkan huruf b:).

readln(b); ( untuk menginput, lalu menampilkan data integer yang di masukan).

c: = a+b; ( c adalah hasil nilai penjumlahan dari a + b).

writeln (‘c:’,c); ( menampilkan c:).

readln; ( menampilkan hasil c:).

end. ( mengakhiri ).

ARRAY DAN RECORD

A r r a y
Array adalah tipe data kompleks yang elemen-elemennya mempunyai tipe data yang sama. Jumlah elemen array bersifat tetap dan tidak bisa ditambah atau dikurangi setelah pendeklarasiannya. Tiap elemen mempunyai nomer indeks sendiri dan pengaksesan terhadap elemen array dilakukan dengan menunjukkan nomer indeks dari elemen yang akan diakses.
Cara pendeklarasian suatu variabel bertipe array adalah sebagai berikut :

var
A : array[1..5] of integer;

contoh program di atas, maksudnya adalah variabel A berupa array dari integer dengan jumlah elemen sebanyak 5, nomer indeks terkecil adalah 1 dan nomer indeks terbesar adalah 5. Untuk mengakses elemen dari variabel A dapat dilakukan dengan menunjukkan nomer indeks elemen A seperti ini :

A[nomer_indeks] contoh : A[1] := 5;


R e c o r d
Record adalah tipe data kompleks yang elemen-elemennya boleh mempunyai tipe data yang berbeda. Record lebih kompleks daripada array karena record merupakan kumpulan beberapa variabel dengan tipe data yang berbeda. Berbeda dengan array yang tiap elemennya ditandai dengan nomer indeks maka record ditandai dengan nama variabel anggotanya. Cara mengakses elemen dari record dilakukan dengan menyebutkan nama variabel anggota setelah menyebutkan nama record yang akan diakses. Di antara nama record dan nama variabel anggota dipisahkan tanda titik (.).
Cara pendeklarasian record adalah sebagai berikut :

var
B : record
X : integer;
Y : real;
end;

Pada pendeklarasian di atas, maksudnya adalah sebagai berikut : variabel B berupa
record dengan dua elemen yaitu X bertipe integer dan Y bertipe real. Untuk
mengakses elemen dari variabel B seperti berikut : B.nama_variabel
contoh : B.X := 10;

looping, procedure, function, seleksi kondisi

Looping
Perulangan/ looping (iterasi) adalah proses yang berulang. Iterasi selalu ada dalam bahasa
pemrograman apapun. Dalam Pascal dikenal tiga macam perintah (statement) perulangan, yaitu statement for…do, repeat…until dan while…do. Perulangan for…do adalah
perulangan dengan penghitung (counter), perulangan repeat…until adalah
perulangan dengan syarat akhir sedang perulangan while…do adalah perulangan
dengan syarat awal.

Seleksi kondisi
Seleksi kondisi adalah proses penentuan langkah berikutnya berdasarkan proses yang terjadi sebelumnya. Seleksi kondisi ini sangat penting dalam pemrograman sebab dengan adanya seleksi kondisi, program dapat menentukan proses apa yang harus dilakukan selanjutnya berdasarkan keadaan sebelumnya. Dalam Pascal ada tiga macam perintah seleksi kondisi, yaitu statement if…then, if…then…else dan case…of. Seleksi kondisi dengan if…then
digunakan untuk mengambil satu keputusan diantara dua pilihan sedang seleksi kondisi dengan if…then…else dan case…of digunakan untuk mengambil satu keputusan diantara banyak pilihan.

P r o s e d u r
Prosedur adalah subprogram yang menerima masukan tetapi tidak mempunyai
keluaran secara langsung. Cara mendeklarasikan sebuah prosedur adalah sebagai
berikut :
procedure X; { nama prosedur adalah X }
begin
{ statement }
end;

F u n g s i
Fungsi adalah subprogram yang menerima masukan dan mempunyai keluaran secara langsung. Cara mendeklarasikan sebuah fungsi adalah sebagai berikut :

function B: integer; { nama fungsi adalah B dengan }
begin { tipe data keluaran adalah integer }
{ statement }
B := 3; { nilai yang dikeluarkan fungsi }
end;
INI MERUPAKAN CONTOH SEDERHANA PROGRAM DALAM PASCAL :
Contoh program sederhana pada pascal :
1. buka program turbo pascal 7
2. ketik uses crt;
3. ketik var a,b : string; ( ini mengenalkan variable, dan datanya itu bertype string).
4. lalu ketik,
begin ( bagian pernyataan).
clrscr; ( fungsinya untuk menghapus).
Write(‘nama:’); ( untuk menampilkan kalimat nama:).
Readln(a); ( untuk menginput, lalu menampilkan data string yang di masukan).
Write(‘npm:’); ( untuk menampilkan kalimat npm:).
Readln(b); ( untuk menginput, lalu menampilkan data string yang di masukan).
End. ( mengakhiri

Pemahaman sedikit tentang pascal


Bahasa pascal dikembangkan oleh Niclaus Writh pada tahun 70-an di Technical University, Zurich-Swiss. Nama PASCAL diambil dari nama ahli matematika bangsa prancis, yaitu Bleise Pascal yang berjasa menemukan alat hitung pada abad ke-17. Pascal adalah bahasa pemrograman tingkat tinggi yang sekarang cukup digandrungi, khususnya di Indonesia. Bahasa Pascal adalah bahasa pemrograman yang terstruktur dan lebih mendekati bahasa manusia (bahasa Inggris) sehingga sangat cocok diterapkan dalam dunia pendidikan dan lebih mudah untuk dipahami dari pada proram-program lainnya. Untuk mengetahui cara kerja di pscal kita harus tahu dulu konsep cara kerjanya, Konsep pemrograman adalah bentuk dasar dari suatu program yaitu algoritma program. Algoritma adalah urutan proses yang dilakukan oleh sebuah program ( statmen-statmen yang berurutan), pada umumnya algoritma ini berbentuk flowchart (diagram alir). Teknik pemrograman adalah cara mengubah suatu algoritma menjadi program yang sebenarnya dengan bahasa pemrograman tertentu. Konsep dan teknik pemrograman adalah dasar dari pemrograman komputer, dengan menguasai kedua hal tersebut maka mempelajari pemrograman menjadi lebih mudah. Pascal termasuk dalam program compiler karena perlu diterjemahkan terlebih dahulu lalu terjemaham tersebut baru bias di jalankan oleh compute, contoh lain : FORTRAN, C. sedangkan interpreter adalah menerjemahkan perintah baris demi baris dan langsung diproses oleh computer, contoh : BASIC.

Struktur-struktur program pada pascal:
1. Judul program, ( sifatnya optional , dan di tulis pada awal program serta bdi akhiri dengan titik koma).
2. Blok program yang terdiri dari :
a. Bagian deklarasi, meliputi :
- deklarasi label,
- deklarasi konstanta,
- deklarasi tipe,
- deklarasi variabel
- deklarasi prosedur dan/atau fungsi.
b. Bagian pernyataan, berisi perintah-perintah(statement-statement).