Contoh soal untuk Variabel Array Dimensi 2

Dari materi variabel array dimensi 2 yang kita pelajari sebelumnya mari kita coba untuk menyelesaikan empat (4) latihan soal di bawah ini agar bisa lebih mengerti tentang materi ini.

1.    1    0    0    0    0
        2    2    0    0    0
        3    3    3    0    0
        4    4    4    4    0
        5    5    5    5    5



2.    1    0    0    0    0
        0    1    0    0    0
        0    0    1    0    0
        0    0    0    1    0
        0    0    0    0    1

3.    0    0    0    0    1
        0    0    0    1    0
        0    0    1    0    0
        0    1    0    0    0
        1    0    0    0    0

4.    *    *    *    *    *
        *    *    *    *
        *    *    *
        *    *
        *

Berikut Jawaban dari soal di atas:
1.

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  mat:array[1..10,1..10]of integer;
  x,y:integer;
  i:integer;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  for x:=1 to 5 do
  begin
    for y:=1 to 5 do
    begin
      mat [x,y]:=0;
      if x>=y then mat [x,y]:=x;
      write (mat[x,y]:5);
    end;
    writeln;
  end;
  readln;
end.

 2.

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  mat:array[1..10,1..10]of integer;
  x,y:integer;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  for x:=1 to 5 do
  begin
    for y:=1 to 5 do
    begin
      mat [x,y]:=0;
      if x=y then mat [x,y]:=1;
      write (mat[x,y]:5);
    end;
    writeln;
  end;
  readln;
end.


3.

{$APPTYPE CONSOLE}
uses
  sysutils;
var
  mat:array[1..10,1..10]of integer;
  x,y:integer;
  i:integer;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  for x:=1 to 5 do
  begin
    for y:=1 to 5 do
    begin
      mat [x,y]:=0;
      if x+y=6 then mat [x,y]:=1;
      write (mat[x,y]:5);
    end;
    writeln;
  end;
    readln;
end.

4.

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  mat:array[1..10,1..10]of integer;
  x,y:integer;
  i:integer;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  for x:=1 to 5 do
  begin
    for y:=1 to 5 do
    begin
      if x+y<=6 then write ('*':5) else write (' ');
    end;
    writeln;
  end;
  readln;
end.


Yachh.... Mungkin soal diatas sudah cukup semoga bermanfaat.
amiinnn,,,,,,

Read More

Contoh Membuat Program Faktorial Menggunakan sistem Procedure

Di posting sebelumnya sudah saya jelaskan contoh dasar dari sistem procedure, kali ini saya akan memberikan contoh membuat program faktorial menggunakan sistem procedure.
Biasanya faktorial ini di tulis: N! (artinya => N faktorial)

Contoh : misal N =3
Maka 3! = 3*2*1 = 6

Tanpa panjang lebar mari kita langsung mencoba ke scripnya saja, Berikut scripnya:

{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure faktorial (var fak, hasil:integer);
  var
    i:integer;

begin
  hasil:=1;
  for i := 2 to fak do
  hasil:=hasil*i;
end;

var
  n,f:integer;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('Contoh Program Faktorial');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('berapa faktorial dari=');readln(n);
  faktorial(n,f);
  writeln (n,' faktorial (',n,'!) = ',f);readln;
end.

Biar lebih faham coba kita buat Program dengan  soal seperti ini:
Dengan menggunakan procedure buat program menghitung banyaknya kombinasi dengan rumus:
CRN = N! / (N-R)! * R!
Dimana:
N = banyaknya data yang di kombinasikan
R = banyaknya kombinasi
C = jumlah

Contoh:
N = hasilny nanti???
R = misal kita buat 2
N = misal kita buat 3
Maka
CRN = N! / (N-R)! * R!
C23 =  3! / (3-2)! * 2!
CRN = 6 / 1*2
CRN = 3
Dimana     : 3! = 3*2*1 = 6
                : 2! = 2*1 = 2
                : 1! = 1


Berikut ini scripnya:

{$APPTYPE CONSOLE}
uses
  SysUtils;

procedure faktorial (var fak, hasil:integer);
  var
    i:integer;

begin
  hasil:=1;
  for i := 2 to fak do
  hasil:=hasil*i;
end;

var
  n,f,r:integer;
  c:real;
  f1,f2,NminR,f3:integer;
begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Contoh Soal');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('input n = ');readln(n);
  write ('input r = ');readln(r);
  faktorial(n,f1);
  NminR:=n-r;
  faktorial(NminR,f2);
  faktorial (r,f3);
  c:=f1/(f2*f3);
  writeln ('c=',c:10:2);readln;
end.

Sekian dari saya semoga bermanfaat.

amiinnn!!!

Read More

Procedure dan Function

Seperti yang kita ketahui bahwa dalam bahasa pemrograman apapun pastilah memiliki istilah yang disebut dengan function dan procedure. Tidak peduli kamu menggunakan bahasa pemrograman apapun, seperti Delphi, Java, C++, Visual Basic, dan program lainnya.

okk, saya akan coba untuk membahas tentang itu:

Pengertian Procedure dan Function
=> Procedure yaitu sub program yang digunakan untuk melakukan proses tertentu dan tidak mengembalikan nilai, bisa disimpan dalam database sebagai object skema, sehingga suatu procedure bisa digunakan berulangkali tanpa harus melakukan parsing dan compile ulang. 
=> Function yaitu Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.

Perbedaan function dan procedure, yaitu :

Perbedaan Procedure dan function

Perbedaan antara function dan procedure adalah : kalau function dia akan mengembalikan suatu nilai pada pemanggilnya, sedangkan kalau procedure dia tidak akan mengembalikan nilai apapun pada fungsi pemanggilnya

Nahh,, Berikut contoh Sistem Procedur menggunakan program penjumlahan 2 bilangan:

Procedure sistem model

{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure coba;
var
  a,b,c:integer;
begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('input nilai A = ');readln(a);
  write ('input nilai B = ');readln(b);
  C:=a+b;
  write ('hasil = ',c);readln;
end;

begin
coba;
readln;
end.


Atau dengan cara
Procedure By Value

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  x,y:integer;

procedure coba (a,b:integer);
var
c:integer;

begin
c:=a+b;
writeln ('hasil = ',c);
end;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('input x=');readln(x);
  write ('input y= ');readln(y);
  coba (x,y);readln;
end.

Atau dengan cara
Procedure By Reference

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  x,y,z:integer;
procedure coba (var a,b,c:integer);

begin
c:=a+b;
end;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('input x= ');readln(x);
  write ('input y = ');READLN(Y);
  coba (x,y,z);
  write ('hasil = ',z);readln;
end.

Hasil dari ketiga cara di atas sama, yang membedakan dari ketiga cara diatas hanya penempatan input, proses, dan outputnya saja. Berikut hasilnya:

Berikut cara mudah dari sistem Procedure.
Baca juga cara membuat program menghitung faktorial menggunakan sistem procedure

Sekian terimakasih,.,,,, :)

Read More

Variabel Array Dimensi Dua

Array dua dimensi sering juga di sebut matrik. Array dua dimensi merupakan perluasan dari array dimensi satu, yang merupakan kumpulan elemen identic yang terdiri dari beberapa baris dan kolom dengan tipe data yang sama.

Contoh Matrik : A 3x4

  

Matrik di ata juga bisa di tulis:

[1.1] = 1

[1.2] = 4

[1.3] = 1

[1.4] = 1

[2.1] = 3

[2.2] = 5

[2.3] = 4

[2.4] = 3.

[3.1] = 6

[3.2] = 2

[3.3] = 1

[3.4] = 7

Penjumlahan Matrik
* syarat dari penjumlahan matrik adalah orde-nya harus sama Contohnya:

Dari contoh diatas A dan B berorde sama yaitu Orde 3x2

Dan sekarang dari contoh diatas Buatlah Programnya, adapun script-nya sebagai berikut:

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  A,B,C:ARRAY[1..10,1..10] OF INTEGER;
  X,Y,KOL,BAR:INTEGER;
begin
  WRITELN ('ARRAY DIMENSI DUA/MATRIK');
  WRITELN (' ');
  WRITELN ('Nama  : MUNAWIR');
  WRITELN ('NIK  : 114224030');
  WRITELN ('************************');
  WRITE('MASUKKAN JUMLAH KOLOM=');READLN(KOL);
  WRITE('MASUKKAN JUMLAH BARIS=');READLN(BAR);
  WRITELN;

  WRITELN('MASUKKAN DATA MATRIK A');
  FOR X := 1 TO BAR DO
  BEGIN
  FOR Y := 1 TO KOL DO
  BEGIN
  WRITE('MATRIK A [',X,':',Y,']=');
  READLN (A[X,Y]);
  END;
  END;
   WRITELN('MASUKKAN DATA MATRIK b');
  FOR X := 1 TO BAR DO
  BEGIN
  FOR Y := 1 TO KOL DO
  BEGIN
  WRITE('MATRIK b [',X,':',Y,']=');
  READLN (b[X,Y]);
  END;
  END;

   FOR X := 1 TO BAR DO
  BEGIN
  FOR Y := 1 TO KOL DO
  BEGIN
  c[X,Y]:=A[X,Y]+B[X,Y];
  END;
  END;

  FOR X := 1 TO BAR DO
  BEGIN
  FOR Y := 1 TO KOL DO
  BEGIN
  WRITELN(C[X,Y]:6);
  END;
  WRITELN;
  END;
  readln;
end.

Mungkin untuk variabel array dimensi dua sampai disini saja.

terimakasih.

Baca juga materi tentang Soal variabel array dimensi dua dan Procedure dan Faktorial.

Read More

Variabel Array / Larik

Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karna array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Array menggunakan indeks integer untuk menentukan urutan elemen-elemennya, dimana elemen pertamanya dimulai dari indeks 0,elemen kedua memiliki indeks 1, dan seterusnya.
Contoh :
1. Angka untuk menyimpan sederetan bilangan
2. Buku untuk menyimpan sekumpulan data buku
3. Mahasiswa untuk menyimpan beberapa data mahasiswa

Sebagai contoh jika A merupakan sebuah array dengan tipe integer, maka notasi dari array A adalah: A[n], dengan n merupakan angka index dari array tersebut misal:
A[0]=100
A[1]=200
A[2]=300
A[3]=400

Contoh Program menghitung rata-rata dengan metode while

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  tot,i,jum:integer;
  rata:real;
  nilai:array[1..10]of integer;
 begin
 writeln ('Hitung Rata2');
 writeln (' ');
 writeln ('Nama : Munawir');
 writeln ('114224030');
 writeln ('********************');
      i:=1;tot:=0;
      write('masukkan jumlah data= ');
      readln(jum);
      while i<=jum do
begin
     write('masukkan nilai ke ',i,'= ');
     readln(nilai[i]);
     tot:=tot+nilai[i];
     i:=i+1;
end;
     rata:=tot/jum;
     writeln('rata-rata nilai = ',rata:6:1);
     readln;
end.

yachh Begitulah contoh sederhana dari variabel arra, ingin lebih mendalam baca juga Variabel array dimensi Dua.

Terimakasih.

Read More

Cara Menampilkan Sisa dan Hasil Pembagian

Catatan:
div    : hasil pembagian
mod    : sisa pembagian

Contoh: buatlah program dari pembagian dari 23 \2, cetak hasil dan sisanya.

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,b,c,d:integer;
begin
  writeln ('Sisa(mod) dan Hasil (div) pembagian');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('***********************************');
  write ('masukkan a=');readln(a);
  write ('masukkan b=');readln(b);
  c:=a div b;
  d:=a mod b;
  writeln ('hasil=',c);
  writeln ('sisa=',d);
  readln;
end.

Baca Juga materi tentang  Variabel Array/Larik.
Terimakasih.

Read More

Penggunaan Akar (SQRT), Pangkat (SQR), SIN, COS dan TAN

Catatan:
SQR(i)    = perintah untuk pangkat
SQRT(i)    =untuk akar
Rumus matematika:
Sec = 1/cos
Tan = 1/ cos

1. Contoh : Menggunakan Rumus Pytagoras

Hitung nilai a jika:
b = 3
c = 4
a = ?

sekarang kita coba buat program dari soal di atas.

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,b:integer;
  c:real;
 begin
  writeln ('Rumus Phytagoras');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('masukkan a=');readln(a);
  write ('masukkan b=');readln(b);
  c:=sqrt(sqr(a)+sqr(b));
  writeln ('c=',c:10:2);
  readln;
end.

2. Penggunaan  SIN, COS, Dan TAN
Contoh buat program dengan rumus:  y:=sqr(1/cos(x))-sqr(sin(x)/cos(x));
kita cari nilai y dengan menginputkan nilai x

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  x:integer;
  y:real;
begin
  writeln ('Penggunaan SIN, COS, Dan TAN');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('masukkan x=');readln(x);
  y:=sqr(1/cos(x))-sqr(sin(x)/cos(x));
  writeln ('y=',y:10:2);
  readln;
end.

Sekian dari saya terimakasih.

baca juga materi tentang mod dan div (hasil dan sisa bagi).

Read More

Looping (Perulangan)

Perulangan data atau yang biasa disebut dengan “looping” adalah proses yang dilakukan secara berulang-ulang sampai batas yang ditentukan. Biasanya bila dalam perulangan tersebut tidak disertakan batasnya maka syntax akan error karena proses itu akan berulang terus hingga tak terhingga sementara variabel dalam komputer masih terbatas.

Jenis – jenis looping: 
1.   FOR TO DO
Syntax :  for (inisialisasi ; syarat ; penambahan) {
pernyataan}
inisialisasi        : keadaan awal dari variabel control
syarat               : ekspresi relasi yang merupakan kondisi
penambahan    : pengatur perubahan nilai variabel control
Contoh Script:

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i:integer;
begin
  for I := 1 to 10 do
  writeln(i,'. munawir2706.blogspot.com');
  readln;
end.

2.   WHILE DO
Syntax :  while (kondisi){
pernyataan}
Contoh :

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i:integer;
begin
  i:=1;
  while i<=10 do
  begin
    writeln(i,'. munawir270695.blogspot.com');
    i:=i+1;
  end;
readln;
end.

3. REPEAT UNTILL

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i:integer;
begin
  i:=1;
  repeat
    writeln(i,'. munawir2706.blogspot.com');
    i:=i+1;
    until i>10;
    readln;
end.

 sampai di sini untuk materi awalan Looping ini semoga bermanfaat. aminnn....
Baca juga artikel tentang Penggunaan Akar, Pangkat, Sin, Cos, dan Tan.
Terimakasih.

Read More

Fungsi Logika IF Dalam Bahasa Pemrograman

Perintah percabangan IF adalah suatu perintah yang berfungsi untuk mengambil keputusan dari beberapa kondisi. Bentuk percabangan ini biasanya digunakan untuk kondisi yang jumlahnya tidak terlalu banyak.

Agar lebih faham ayo kita langsung ke scripnya saja okkk

1. Fungsi IF untuk seleksi penerimaan pegawai baru yang di lihat dari tinggi badan-nya

Berikut contoh script-nya:

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
tinggi:integer;
begin
  writeln ('Progaram Seleksi Tingggi Badan');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('Masukkan Tinggi Badan=');readln(tinggi);
  if tinggi>168 then
  writeln ('Selamat Anda Diterima')
  else
  writeln ('Maaf Anda Gagal');
  readln;
end.

Berikut hasilnya kita coba untuk tinggi badan di bawa 168

Berikut hasil apabila kita input tinggi badannya di atas 168

2. Penggunaan Logika IF Untuk Pendidikan
Contoh penggunaan fungsi ini yaitu untuk melihat nilai mahasiswa,
Penggunaaan Fungsi Logika IF ini ada 2 cara yaitu:
a). menggunakan IF saja (tanpa else)

 {$APPTYPE CONSOLE}

uses
  SysUtils;
var
nilai:integer;
grade:string;
begin
  writeln ('Progaram Menghitung Luas Persegi');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('masukkan Nilai IP = ');readln(nilai);
  if nilai>=90 then grade:='A';
  if (nilai>=80) and (nilai<=89) then grade:='B';
  if (nilai>=70) and (nilai<=79) then grade:='C';
  if nilai<70 then grade:='D';
  writeln ('grade=',grade);
  readln;
end.

b). menggunakan IF dan Else

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
nilai:integer;
grade:string;
begin
  writeln ('Program Menghitung Nilai IP');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('Masukkan Nilai IP=');readln(nilai);
  if nilai>=90 then grade:='A' else
  if nilai>=80 then grade:='B' else
  if nilai>=70 then grade:='C' else
  if nilai<70 then grade:='D';
  writeln ('grade=',grade);
  readln;
end.

 Mungkin sampai disini untuk materi Penggunaan Fungsi Logika IF. Semoga Bermanfaat  amiiinnnn
Baca juga Materi Looping
Terima thank you *-*      :D

Read More

Penulisan Script Dasar Menghitung Volume Bangun

Pada postingan sebelumnya saya sudah Mengposting Program Menghitung luas selanjutnya saya akan mengposting Penulisan Script Dasar Menghitung Volume Bangun dan tetap kita akan menggunakan Program Borland delphi 7. Mari kita pelajari bersama-sama beberapa rumus volume berikut ini, Semoga bermanfaat... amiinnnn...........

1. Program Mencari Volume Kerucut
Berikut Scriptnya silahkan di coba sendiriii okkkkk...........

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  r,t:integer;
  vk:real;
begin
  writeln ('Progaram Menghitung Luas Persegi');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('Masukkan Jari-Jari= ');readln(r);
  write ('Masukkan Tinggi= ');readln(t);
  vk:=22/7*r*r*t;
  writeln ('Volume Kerucut= ',vk:10:2);
  readln;
end.

Contoh:
Misal; jari-jari = 8
tinggi = 13
Volume = 22/7*jr*r*t =2614,86

2. Program Mencari Volume Tabung
Berikut Scripnya:

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  r,t:integer;
  vt:real;
begin
  writeln ('Progaram Menghitung Luas Persegi');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('Masukkan Jari-Jari=');readln(r);
  write ('Masukkan Tinggi=');readln(t);
  vt:=22/7*1/2*r*r*t;
  writeln ('Volume Tabung=',vt:10:2);
  readln;
end.

Contoh:
Misal; jari-jari = 8
tinggi = 13
Volume = 22/7*r*r*t = 1307.43

Mungkin sampai disini untuk materi membuat Program Mecari Volume.
Semoga bermanfaat.
Baca juga Fungsi Logika IF
Terimakasih ..... *-*      :)

Read More

PENULISAN SCRIPT DASAR MEMBUAT PROGRAM MENGHITUNG LUAS

          Setelah sebelumnya saya menjelaskan tentang Delphi, kali ini saya akan menjelaskan tentang penulisan script dasar membuat program menghitung luas menggunakan aplikasi Borland Delphi 7. kita langsung saja yachh kita coba bersama-sama scrip berikut ini:

1. Luas Persegi

$APPTYPE CONSOLE}

uses
  SysUtils;
var
  p,l:integer;
  Luas:integer;
begin
  writeln ('Progaram Menghitung Luas Persegi');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('Masukkan Panjang=');readln(p);
  write ('Masukkan Lebar=');readln(l);
  Luas:=p*l;
  writeln ('Luas=',Luas);
  readln;
end.

Hasilnya akan seperti ini:
misal:
panjang : 4
lebar :3
luas = panjang*lebar = 4 * 3 = 12

2. Luas Segitiga

karena disini nanti hasilnya tidak bulat maka kita gunakan perintah REAL sesuai yang sudah saya jelaskan di podtingan sebelumnya. oke dari pada banyak bosa basi mari kita langsung ke script-nya:

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,t:integer;
  L:real;
begin
  writeln ('Progaram Menghitung Luas Segitiga');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('masukkan alas=');readln(a);
  write ('masukkan tinggi=');readln(t);
  L:=0.5*a*t;
  writeln ('Luas=',L:10:2);
  readln;
end.

Contoh:
misal:
alas = 4
tinggi = 6
luass = 1\2 * alas * tinggi = 12

kenapa di programnya tercatat 12.00 itu karena di awal tadi kita menggunakan perintah REAL dan di script baris 3 dari bawai tertulis ('Luas=',L:10:2) yaitu maksutnya L tersebut adalah Luas-nya dan 10:2 itu artinya di belakang koma (,) terdapat 2 angka, apabila seumpama 10:3 maka di belakang koma ada 3 angka.
 Dan apabila tidak di beri perintah 10:1,10:2:10:3, ........ dan seperusnya maka hasilnya tidak di ketahui seperti Gambar dibawah ini.

Yachh,,, sekian posting tentang program menghitung luas
Baca Juga : Program Menghitung Volume yang akan saya posting setelah kesan-kesan berikut ini.

Terimakasih.

Read More

DEFINISI & FUNGSI VARIABEL, OPERATOR DAN MACAM-MACAM TIPE DATA PADA BORLAND DELPHI 7

1). VARIABEL   
        Variabel pada dasarnya adalah nama untuk suatu lokasi pada memori. Variabel dalam program digunakan untuk menyimpan suatu nilai tertentu dimana nilai tersebut dapat berubah-ubah. Setiap variable mempunyai tipe dan hanya data yang bertipe sama dengan tipe variabel yang dapat di simpan di dalam variabel tersebut. Setiap variable mempunyai nama dan pemisah anantar variable dilakukan dengan memberikan tanda koma.

Contoh
Var
namabarang : string;

harga_per_unit,totalbiaya:Integer;

Sebelum suatu variable dapat digunakan, variable harus di deklarasikan terlebih dahulu dengan menyebutkan nama variable dan tipe datanya. Variabel dideklarasikan pada bagian yang diawali dengan var seperti contoh diatas. Keyword Var digunakan di beberapa tempat di dalam kode, seperti di awal unit untuk mendefinisikan variabel global maupun di awal fungsi atau prosedur untuk menentukan variabel lokal.

Aturan pemberian nama variabel pada Delphi :

1. Nama variable maksimum terdiri dari 63 karakter

2. Nama variable hanya boleh mengandung huruf, angka, garis bawah (_) dan tidak
boleh diawali dengan angka

3. Tidak boleh menggunakan keyword milik Delphi, missal variable dengan nama if,else,
for tidak diperbolehkan.

4. Variabel merupakan Simbol yang digunakan untuk mewakili suatu data. Setiap
varibel yang mewakili suatu data mempunyai jenis tipe data masing-masing.

2).  OPERATOR

Delphi mengenal banyak operator sama seperti bahasa pemrograman yang lain, operator menjadi satu hal penting yang harus ada untuk perancangan program.

      Operator Penugasan (Assignment Operator)

Symbol operator digunakan untuk melakukan suatu proses atas suatu nilai dengan memberikan nilai baru pada suatu variabel, lambang operator penugasan ” := “


Bentuk Umum Penulisan

var := perintah;


Contoh

A := "B";

Label1.Caption := "Paimen";

C := A + B;


Operator Aritmatika

Operator aritmatika berfungsi untuk melakukan suatu proses aritmatika yang meliputi perkalian, pembagian, penjumlahan, maupun pengurangan terhadap suatu nilai variabel yang tersimpan dalam suatu object dengan memberikan nilai baru.

            Symbol yang dikenaldelam Delphi

Symbol
   

Keterangan

+
   

Penjumlahan

-
   

Pengurangan

*
   

Perkalian

/
   

Pembagian

Div
   

Pembagian Integer

Mod
   

SisaPembagian


Contoh

A := 15 + 2    hasil A = 17

A := 15 - 2          A = 13

A := 15 * 2          A = 30

A := 15 / 2          A = 7,5

A := 15 div 2        A = 7

A := 15 mod 2        A = 1


Operator String

Digunakan untuk menggabungkan dua teks / string atau lebih. Symbol yang digunakan +


Bentuk Umum

A := teks1 + teks2;


Contoh
A := "Love";

B := "You";

C := A + B;

Makahasil C = LoveYou

3). TIPE DATA

Secara sederhana tipe data dapat didefinisikan dengan istilah tempat untuk menentukan pemberian nilai terhadap suatu variable sesuai atau tidak dengan nilai yang diberikan oleh user.Dalam versi lain tipe data juga diartikan sebagai batasan terhadap fungsi tanda pengenal terhadap semua nilai yang diterima. Logika yang dapat kita berikan adalah ketika kita menempatkan tanda pengenal harga hanya mengenal angka, maka ketika kita memberikan nilai berupa string maka secara otomatis data tersebut akan ditolak karena nilai tersebut tidak dikenali oleh tipe data yang diberikan.

Tipe Data Integer

Tipe data integer merupakan tipe data bilangan bulat yang hanya mengenal bilangan desimal. Dimana tipe data Integer tidak mengenal pecahan.


Bentuk Umum

var

nil1 : integer;

begin

nil1 := 10000;

end;

  

    Tipe Data Real

Tipe data real adalah tipe data dari suatu tanda pengenal selain mengenal bilangan bulat utuh tipe data ini juga mengenal nilai angka pecahan.


Bentuk Umum

var

               nil1 := real;

begin

nil1 := 3,3;

end;

  

    Tipe Data String

Tipe data string merupakan salah satu jenis tipe data selain mengenal angka, disini tipe data dapat juga mengenal data berupa huruf maupun tanda baca.


Bentuk Umum

var

Nama : string;

begin

nama := 'Paijo';

end;

Tipe Data Char

Secara fungsi, tipe data char sama dengan tipe data string tetapi dari segi kapasitas ruang diperoleh tipe data char jauh lebih sedikit karena hanya mengenal 1 karakter.

Bentuk Umum

var

baik : char;

begin

baik := 'B';

end;

Read More

Pengertian delphi

Apa itu Delphi???

Delphi adalah salah satu bahasa pemrograman berbasis visual yang digunakan untuk membuat program aplikasi pada komputer (seperti Visual basic). Bahasa pemrograman yang digunakan oleh Delphi sebenarnya merupakan turunan dari bahasa pemrograman pascal, yang dahulu pada Delphi dikenal sebagai objek pascal. Bagi Anda yang telah mengenal bahasa pemrograman pascal, maka mungkin Anda tidak akan terlalu kesulitan dalam mempelajari Delphi.

Ngomong2 soal IDE apa sih IDE itu, adakah hubungannya dengan otak? Nggak ada ya!, jadi IDE adalah sebuah singkatan dari Integrated Development Environment yaitu sebuah lingkungan pengembangan yang terintegrasi, istilah IDE popular untuk menyebut software2 bahasa pemrograman dimana proses pengembangan programmnya mulai dari koding, designing dan debugging dilakukan pada satu framework atau pada satu aplikasi yang terintegrasi. 

Saya asumsikan Anda telah menginstall Borland Delphi 7 pada sistem operasi Windows Anda. Untuk menjalankan IDE Delphi, melalui menu Start | All Programs | Borland Delphi 7 | Delphi 7, maka akan muncul tampilan IDE Delphi seperti pada Gambar dibawah ini. IDE Delphi tersebut terbagi menjadi tujuh bagian utama, yaitu : Menubar, Toolbar, Component Palette, Form Designer, Code Explorer, Object Treeview dan Object Inspector 

 

Menu-menu pada Borland Delphi 7

1. Menubar dan Toolbar

Menubar dan Toolbar merupakan dua bagian yang biasanya terdapat pada aplikasi-aplikasi windows lain. Fungsi dari Menubar dan Toolbar ini relatif hampir sama dengan aplikasi window lain, sehingga secara explisit tidak akan dibahas dalam buku ini, melainkan hanya menubar yang biasa digunakan dalam pembuatan program.

2.Component Palett

Component Palette berisi kumpulan VCL (Visual Component Library) yang berguna dalam desain aplikasi. VCL merupakan pustaka untuk komponen visual, dimana dalam component palette dilambangkan dengan ikon yang merepresentasikan komponen tersebut.
Komponen-komponen VCL pada component palette dikelompokkan ke dalam tab-tab, sesuai dengan fungsinya, dengan maksud untuk memudahkan programmer dalam memilih komponen yang diinginkannya.

3. Form Designer

Setiap aplikasi biasanya memiliki jendela atau background interface, yang dalam bahasa pemrograman Delphi atau bahkan dalam bahasa pemrograman lain yang berbasis visual, biasa disebut dengan Form. Form Designer berfungsi sebagai tempat untuk mendesain form untuk aplikasi yang akan kita buat, dan juga sebagai tempat untuk meletakkan komponen-komponen yang kita ambil dari component palette.

Form sendiri sebenarnya merupakan komponen di mana property-nya bisa diatur melalui object inspector layaknya komponen-komponen lain. Form bisa jadi merupakan bagian terpenting dari sebuah aplikasi, namun meskipun begitu, beberapa aplikasi ada yang tidak membutuhkan form sama sekali, seperti aplikasi untuk memonitor ketukan keyboard.

4. Code Explorer

  

Code Explorer merupakan area di mana kita menuliskan kode program, posisinya secara default terletak dibelakang form. Untuk menampilkan code explorer di depan form, Anda bisa menggunakan tombol F12 pada keyboard.

Pada code explorer tersebut, Anda akan melihat kode-kode dalam bahasa pemrograman delphi yang secara otomatis digenerate oleh Delphi, hal ini jelas akan memudahkan atau mempercepat kita dalam menulis program. Pada code explorer Delphi, ada sebuah fitur yang disebut dengan code completion. Sesuai dengan namanya, code completion berfungsi melengkapi kode yang kita tulis dalam bentuk pilihan/list dari code-code yang bisa kita gunakan, hal ini akan sangat membantu apabila kita lupa terhadap kode tertentu.

Code completion ini secara otomatis akan muncul ketika Anda menekan tombol titik pada keyboard, selain itu untuk menampilkan code completion ini, Anda juga bisa melakukannya dengan menekan kombinasi tombol Ctrl + Space secara bersamaan.

Disamping code completion, code explorer pada delphi juga dilengkapi dengan hint (layer berwarna kuning yang muncul ketika mouse didekatkan pada komponen tertentu). Hint ini, muncul ketika kita menggunakan procedure atau fungsi dan menekan tombol ( pada keyboard, pada hint tersebut akan muncul nama dan tipe data dari parameter yang digunakan atau informasi lain yang diperlukan. 

5. Object TreeView

Object TreeView adalah bagian yang berisi daftar komponen yang digunakan dalam designer. Dengan model tampilan bercabang, akan memudahkan kita dalam menunjuk komponen tertentu terutama jika aplikasi yang dibuat menggunakan banyak komponen.

6.Object Inspector

Object Inspector adalah bagian yang digunakan untuk memanipulasi sifat atau karakteristik dan event dari komponen yang kita gunakan dalam form designer. Jendela object inspector terbagi menjadi dua bagian tab, yaitu tab property dan tab event. Tab property digunakan untuk memanipulasi properti yang dimiliki oleh komponen tertentu, misalkan ukuran, warna dan caption dari komponen. Sedangkan Tab Event digunakan untuk menangani pemasukan kode pada kejadian tertentu dari suatu komponen, misalnya : kejadian ketika komponen button (tombol) diklik atau onClick.

Sebagaimana yang telah dijelaskan di atas, salah satu fungsi dari object inspector ini adalah untuk mengatur property dari komponen, pengaturan tersebut tidak akan disimpan pada file unit, melainkan akan disimpan pada file form.

Read More