Array is Larik

Array atau larik adalah suatu bentuk struktur data yang menampung satu atau lebih dari satu data yang berjenis atau bertipe data sama, yang diwakili oleh satu nama variabel.

Cara Mendefinisikan larik atau array berbeda dengan cara mendefiniskan dengan program secara umumnya. Ada beberapa cara untuk mendefinisikannya antara lain :
a. nama_array:array [1..n] of tipe_data; Misalnya A:array [1..10] of integer ;
b. tipe_data nama_array [n]; Misalnya integer A[10];
c. type larik:array [1..n]of tipe_data; nama_array:larik; Misalnya type larik :array[1..10] of integer; A:larik;

Larik dapat berdimensi satu, dua, tiga atau lebih. Larik dimensi satu (one-dimensional array) mewakili bentuk suatu vektor. Larik dimensi dua (two-dimensional array) mewakili bentuk dari suatu matrik atau tabel. Larik dimensi tiga (three-dimensional array) mewakili bentuk suatu ruang.

Contoh Program Procedure dan Function

Telat-Telat.. telat posting lagi karena minggu minggu ini banyak mata kuliah yang mid. ditambah jaringan yang koneksinya kurang mendukung akhir akhir ini. Well, ini adalah jawaban untuk praktikum yang ketiga selasa kemarin.

1. Tampilannya seperti ini

program diatas harus dibuat menggunakan procedure. Dimana untuk Luas segiempat menggunakan procedure by value dan Keliling Segiempat menggunakan procedure by reference. Untuk programnya bisa di unduh disini

2. Tampilannya Seperti ini

program diatas dibuat menggunakan function, dan source codenya dapat di download disini

Mohon untul dipelajari lagi.

Procedure dan Function dalam Pascal

Waduh telat memposting. Tapi lebih baik telat daripada tidak sama sekali.

Procedure
• Prosedur merupakan suatu rutin yang melakukan proses tertentu tanpa adanya pengembalian nilai

• Prosedur menyediakan suatu metode pengisolasian bagian program secara terpisah yang dapat dipanggil atau diaktivasi dari bagian manapun didalam program

• Dalam bahasa pascal prosedur didefinisikan dengan kata kunci procedure.

Procedure terbagi menjadi dua yakni procedure by value dan procedure by reference. Procedure by Value mempunyai karakteristik sebagai berikut :
1. Data yang dikirim dari parameter aktual di blok program utama ke parameter formal di prosedur adalah nilai dari datanya bukan alamat memori letak dari datanya.
2. Prosedur/Fungsi yang menerima nilai ini akan menyimpan data tersebut di alamat memori yang berbeda dari nilai aslinya yang digunakan oleh bagian program yang memanggil fungsi/prosedur tersebut di blok program utama.
3. Karena terdapat alamat memori yang berbeda, maka perubahan nilai di fungsi tidak akan merubah nilai asli di bagian program yang memanggil prosedur/fungsi tersebut.

Contoh programnya bisa download disini

Sedangkan procedure by reference (acuan) mempunyai karakteristik sebagai berikut :
1. Pada saat pengiriman nilai, yang dikirim dari parameter aktual di blok program utama ke parameter formal di prosedur adalah alamat letak bukan dari nilai datanya .
2. Prosedur/Fungsi yang menerima nilai ini akan menggunakan alamat memori yang sama dengan nilai aslinya yang digunakan oleh bagian program yang memanggil fungsi/prosedur tersebut di blok program utama.
3. Karena menggunakan alamat memori yang sama, maka perubahan nilai di prosedur/fungsi akan merubah nilai asli di bagian program yang memanggil prosedur/fungsi tersebut.
Contoh programnya dapat di unduh disini dan disini

Function
• Pada fungsi terdapat pengembalian nilai, sehingga pada saat pemanggilan, fungsi dapat langsung digunakan untuk mengisikan sebuah ekspresi.

• Fungsi didefinisikan dengan kata kunci function.

contoh program menggunakan function dapat di download disini

Semoga bermanfaat

Contoh Program Pemilihan Case-Of Bahasa Pascal

Berikut ini contoh contoh program yang menggunakan instruksi pemilihan menggunakan instruksi Case-Of menggunakan bahasa pascal dan compiler lazarus

1. Case Of Menentukan Hari

var
hari:integer;
begin
write(‘Hari ke..= ‘);
readln(hari);
case hari of
1:writeln(‘Senin’);
2:writeln(‘Selasa’);
3:writeln(‘Rabu’);
4:writeln(‘Kamis’);
5:writeln(‘Jumat’);
6:writeln(‘Sabtu’);
7:writeln(‘Minggu’);
end;
readln;
end.

2. Case Of Pemilihan Lulus / Tidak

var

Nama,Ket:String;

Nilai:Integer;

begin

writeln(‘Instruksi Pemilihan Menggunakan case-of’);

writeln(‘=========================================’);

write(‘Nama : ‘);readln(Nama);

write(‘Nilai : ‘);readln(Nilai);

case Nilai of

41..100 : Ket := ‘Lulus’;

0..40 : Ket :=’Tidak Lulus’;

end;

write(‘Keterangan : ‘,Ket);

readln;

end.

Tambahan Tutorial mengenai instruksi pemilihan dan perulangan bisa klik
disini

Contoh Program Perulangan dan Pemilihan Part 2

Lanjutan dari postingan sebelumnya tentang contoh contoh programm pascal yang menggunak instruksi pemilihan dan perulangan. Check it out

1. Menghitung Luas Bangun Menggunakan case of

var

nomor,panjang,lebar:integer;

luas,luas2,keliling,alas,tinggi:real;

begin

writeln(‘Menghitung Luas dan Keliling’);

writeln(‘****************************’);

writeln(’1. Persegi panjang’);

writeln(’2. Segitiga’);

writeln(‘****************************’);

write(‘Masukan nomor =’);

readln(nomor);

case(nomor)of

1:writeln(‘Menghitung luas dan keliling persegi panjang’);

2:writeln(‘Menghitung luas segitiga’);

else

write(‘tidak ada program di nomor=’,nomor);

end;

if (nomor=1) then begin

write(‘Masukan Panjang = ‘);readln(panjang);

write(‘Masukan Lebar = ‘);readln(lebar);

luas:=panjang*lebar;

keliling:=2*(panjang+lebar);

writeln(‘Luas = ‘,luas:3:2);

writeln(‘Keliling = ‘,keliling:3:2);

end else if (nomor=2) then begin

write(‘Masukan Alas = ‘);readln(alas);

write(‘Masukan Tinggi = ‘);readln(tinggi);

luas2:=0.5*alas*tinggi;

writeln(‘Luas = ‘,luas2:0:2);

end;

readln;

end.

2. Menghitung Mundur Menggunakan For

var n:integer;

begin

for n:=100 downto 1 do

begin

writeln(n);

end;

write(‘GO!’);

readln;

end.

3. Menampilkan Klasifikasi Umur menggunakan If

var input:integer;
begin
writeln(‘Nama : RIZAL ADI SAPUTRA’);
writeln(‘NIM : E1E108050′);
writeln(‘==================’);
writeln(‘ ‘);
write(‘Masukkan Umur anda = ‘);readln(input);
if input <2 then
writeln('klasifikasi Anda = Bayi')
else If input <12 then
writeln('klasifikasi Anda = Anak-anak')
else If input <18 then
writeln('klasifikasi Anda = Remaja')
else If input <24 then
writeln('klasifikasi Anda = Dewasa muda')
else If input <40 then
writeln('klasifikasi Anda = Dewasa tua')
else If input <55 then
writeln('klasifikasi Anda = Orang Tua')
else
writeln('klasifikasi Anda = Lansia');
readln;
end.

4. Menampilkan angka secara berurut menggunakan repeat-until

var
x : integer ;
begin
x:= 0 ;
repeat
x:= x + 1 ;
writeln (x) ;
until x = 5;
readln;
end.

well hari ini saya rasa cukup dulu. Besok akan diberikan contoh contoh yang lain lagi. Untuk lebih jelas mengenai perulangan tutorialnya bisa di download disini . Semoga bermanfaat

Contoh Contoh Program Pemilihan dan Perulangan Menggunakan Pascal

Sekedar berbagi. Moga moga bermanfaat. langsung aja yah agan agan

1. Program Increment menggunakan while-do

var x,a,b,c:integer;

begin

x:=0;

write(‘Masukkan batas awal ‘);

read(a);

write(‘Masukkan batas akhir ‘);

read(b);

write(‘Masukkan increment ‘);

read(c);

while (a<=b) do

begin

x:=x+a;

writeln(‘Nilai a ‘,a);

a:=a+c;

end;

writeln(‘Jumlahnya ‘,x);

readln;

readln;

end.

2. Program Segitiga Piramid Menaik Menggunakan while – do

var x,i,j:integer;
begin
write(‘Masukkan Nilai 1-10: ‘);
readln(x);
i:=1;
j:=1;
while (i<=x) and (x<=10) do
begin
j:=1;
while(j<=i) do
begin
while (j<=i)do
begin
write(i);
j:=j+1;
end;
end;
i:=i+1;
writeln;

end;
readln;
end.

3. Menetukan Bilangan Ganjil & Genap Menggunakan If Then Else

var x:integer;
begin
write(‘Masukkan angka ‘);
readln(x);
if(x mod 2=0) then
begin
write(‘Bilangan Genap’);
readln;
end
else
write(‘Bilangan Ganjil’);
readln;
end.

Hari ini cukup ini dulu. Insya Allah besok di tambahkan untuk contoh contoh lainnya. Tolong dipelajari.