Kombinasi adalah
menggabungkan beberapa objek dari suatu kumpulan tanpa memperhatikan urutannya.
Oleh karena itu, kombinasi berbeda dengan permutasi, dimana letak perbedaannya
adalah susunan yang tidak diurutkan. Pada kombinasi, susunan XY sama saja
dengan YX.
Lambang kombinasi adalah C. Dengan begitu, n kombinasi r berarti
Rumus penghitungan kombinasi adalah sebagai berikut.
" ! " = Faktorial,,
berikut adalah contoh
penghitungan Kombinasi faktorial dengan Procedure di Delphi 7
pertama kita buka
dulu Borland Delphi 7 dulu,,
kalau nggak tau
caranya klik disini
berikut ini penulisan perintah Procedure by reference dan
hasilnya:
jagan lupa klik
'play' atau tekan F9 pada keyboard,,
masukkan data yang dikombinasikan seperti gambar berikut
ini,,
lalu masukkan angka banyaknya kombinasi,,,,
berikut hasil penghitungannya,,
itulah hasil percobaan Kombinasi Faktorial dengan
Procedure di Delphi 7,,
Perintah intinya :
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
C:real; N,R,F,
NminR:integer;
f1, f2, f3:integer;
begin
write ('banyaknya
data yang dikombinasikan?');readln (N);
write('banyaknya
kombinasi=');readln(R);
faktorial(N, F1);
NminR:=N-R;
faktorial (NminR,
F2);
faktorial(R,F3);
C:=F1/(F2*F3);
writeln('Hasil
kombinasi = ',C:10:2);
Readln;
end.
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
Faktorial dari bilangan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! dan disebut n faktorial, tanda (!) disebut dengan notasi faktorial.
berikut adalah contoh penghitungan faktorial pada Delphi 7 dengan menggunakan procedure
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
jangan lupa klik 'play' atau tekan F9 pada keyboard,,
itulah hasil percobaan penghitungan faktorial di Delphi 7 dengan menggunakan Procedure,,
perintah intinya:
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
write ('berapa faktorial?');readln (n);
faktorial(n,f);
writeln(n, '!=', f);
readln;
end.
keterangan perintah-perintah delphi 7 klik disini
berikut adalah contoh penghitungan faktorial pada Delphi 7 dengan menggunakan procedure
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah Procedure
Faktorial dan hasilnya:
jangan lupa klik 'play' atau tekan F9 pada keyboard,,
masukkan angka seperti berikut ini,,
hasilnya akan keluar seperti gambar berikut ini,,
itulah hasil percobaan penghitungan faktorial di Delphi 7 dengan menggunakan Procedure,,
perintah intinya:
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
write ('berapa faktorial?');readln (n);
faktorial(n,f);
writeln(n, '!=', f);
readln;
end.
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
Procedure By Reference
adalah
Nilai di dalam suatu modul program Pascal / Delphi sifatnya adalah lokal,
artinya hanya dapat digunakan pada modul atau unit program yang bersangkutan
saja, tidak dapat digunakan pada modul atau unit program yang lainnya.
pertama
kita buka dulu Borland Delphi 7 dulu,,
kalau
nggak tau caranya klik disini
berikut ini penulisan perintah Procedure by
reference dan hasilnya:
jangan
lupa klik 'play' atau tekan F9 pada keyboard,,
masukkan angka seperti berikut,,
hasilnya akan seperti berikut ini,,
itu adalah hasil percobaan
procedure by reference dengan perintah perkalian,,
Perintah
intinya,,
var
x,y,z:integer;
Procedure kali (var
A,B,C:integer);
begin
C:=A*B;
end;
begin
write('Masukkan Nilai
X = ');readln(x);
write('Masukkan Nilai
Y = ');readln(y);
kali(x,y,z);
writeln('X x Y =
',z);
readln;
end.
variabel A dab B bersifat
global untuk prosedur kedua dan utama, tetapi tidak bersifat global untuk
prosedur kesatu, sehingga prosedur kesatu tidak dapat menggunakan
variabel-variabel tersebut.
keterangan
perintah-perintah delphi 7 klik disini
***selamat
mencoba***
Procedure dan Function (fungsi) adalah suatu rutin yang biasanya dipakai
sebagai alat untuk melakukan tugas tertentu dan/atau mendapatkan nilai tertentu
Pada dasarnya procedure dan function itu adalah sama,
bedanya adalah procedure tidak mempunyai nilai kembalian (return value).
sedangkan function mempunyai nilai kembalian (return value)
Pada penulisannya procedure akan ditulis sebagai satu pernyataan yang berdiri sendiri,
sedangkan function biasanya ditulis di sebelah kanan pernyataan lain atau ditulis
sebagai suatu nilai yang dimasukkan kedalam variabel .
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah Procedure by value dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,,
masukkan angkanya,, seperti ini,,
hasilnya akan muncul seperti gambar dibawah ini,,
penulisan procedure terletak diantara var dan var,,
Perintah Inti,,
uses
SysUtils;
var
x,y:integer;
Procedure bagi (A,B:integer);
var
c:integer;
begin
c:=a/b;
writeln('Hasil pembagian',c:4:2);
end;
begin
write('Masukkan Nilai X = ');readln(x);
write('Masukkan Nilai Y = ');readln(y);
bagi(x,y);
readln;
end.
keterangan perintah-perintah delphi 7 klik disini
sebagai alat untuk melakukan tugas tertentu dan/atau mendapatkan nilai tertentu
Pada dasarnya procedure dan function itu adalah sama,
bedanya adalah procedure tidak mempunyai nilai kembalian (return value).
sedangkan function mempunyai nilai kembalian (return value)
Pada penulisannya procedure akan ditulis sebagai satu pernyataan yang berdiri sendiri,
sedangkan function biasanya ditulis di sebelah kanan pernyataan lain atau ditulis
sebagai suatu nilai yang dimasukkan kedalam variabel .
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah Procedure by value dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,,
masukkan angkanya,, seperti ini,,
hasilnya akan muncul seperti gambar dibawah ini,,
penulisan procedure terletak diantara var dan var,,
Perintah Inti,,
uses
SysUtils;
var
x,y:integer;
Procedure bagi (A,B:integer);
var
c:integer;
begin
c:=a/b;
writeln('Hasil pembagian',c:4:2);
end;
begin
write('Masukkan Nilai X = ');readln(x);
write('Masukkan Nilai Y = ');readln(y);
bagi(x,y);
readln;
end.
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
buatlah matrik dengan pola seperti gambar dibawah ini dengan
variable array 2 dimensi,,
soal pola 1
soal pola 2
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah soal pola 1 dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,,
-----------------------------------------------------------------------gambar diatas adalah jawaban soal pola 1,,
berikut ini penulisan perintah soal pola 2 dan hasilnya:
jangan lupa klik 'play' atau tekan F9 pada keyboard,,
----------------------------------------------------------------------gambar diatas adalah jawaban soal pola 2,,,
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
Pemrograman dengan sistem modul
User procedure adalah
procedure yang dibuat (didefinisikan) sendiri oleh pembuat program.
Pernyataan-pernyataan didalam user procedure sama halnya dengan event
procedure. Perbedaannya adalah user procedure akan dijalankan bila dipanggil
dengan namanya, sedangkan event procedure akan dijalankan bila terjadi suatu
event terhadap komponen. Biasanya user procedure dipanggil dari event
procedure, tetapi dapat juga dipanggil dari user procedure yang lain.
pertama kita buka
dulu Borland Delphi 7 dulu,,
kalau nggak tau
caranya klik disini
saya akan
menggunakan procedure untuk perkalian,,
berikut ini penulisan perintah dan hasilnya:
jangan lupa klik
'play' atau tekan F9 pada keyboard,,
masukkan angka seperti berikut,,
dan akan keluar hasil seperti berikut,,
itulah hasil pembuatan procedure
perkalian,,
keterangan
perintah-perintah delphi 7 klik disini
***selamat
mencoba**
Matrik Pola 1
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,,
___________________________________________________________________________________
Matrik Pola 2
berikut ini penulisan perintah dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,,
nah itulah Matrik pola 2 dengan menggunakan array 2 dimensi pada Delphi 7
___________________________________________________________________________________
Matrik Pola 3
berikut ini penulisan perintah dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,,
nah itulah Matrik pola 3 dengan menggunakan array 2 dimensi pada Delphi 7
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
Array 2 Dimensi adalah dimana array ini mempunyai dua buah index / subscript.
Sama seperti array dimensi satu, array dua dimensi juga merupakan kumpulan elemen-elemen yang bertipe data sama dengan satu nama variabel, tetapi terdiri dari dua index.
contoh penulisan array 2 Dimensi,, mat:Array[1..10,1..10] of integer;
saya akan mencoba penghitungan dengan menggunakan variable Array 2 Dimensi,,
berikut caranya,,,
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,,
nah itulah Matrik model 1 dengan menggunakan array 2 dimensi pada Delphi 7
keterangan perintah-perintah delphi 7 klik disini
Sama seperti array dimensi satu, array dua dimensi juga merupakan kumpulan elemen-elemen yang bertipe data sama dengan satu nama variabel, tetapi terdiri dari dua index.
contoh penulisan array 2 Dimensi,, mat:Array[1..10,1..10] of integer;
saya akan mencoba penghitungan dengan menggunakan variable Array 2 Dimensi,,
berikut caranya,,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,,
nah itulah Matrik model 1 dengan menggunakan array 2 dimensi pada Delphi 7
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
Array 2 Dimensi adalah dimana array ini mempunyai dua buah index / subscript.
Sama seperti array dimensi satu, array dua dimensi juga merupakan kumpulan elemen-elemen yang bertipe data sama dengan satu nama variabel, tetapi terdiri dari dua index.
Sama seperti array dimensi satu, array dua dimensi juga merupakan kumpulan elemen-elemen yang bertipe data sama dengan satu nama variabel, tetapi terdiri dari dua index.
contoh penulisan array 2 Dimensi,, A,B,C:Array[1..10,1..10] of integer;
nah,, saya akan mencoba penghitungan dengan menggunakan variable Array 2 Dimensi,,
berikut caranya,,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,,
jumlah kolom berisi 3,,
jumlah baris berisi 3,,
dan isi matrik A terlebih dahulu,, seperti gambar dibawah ini,,
dan isi matrik B,, seperti dibawah ini,,
nah itulah Matrik 3baris dan 3kolom atau matrik 3x3 dengan menggunakan array 2 dimensi pada Delphi 7
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
Saya akan mencoba membuat array 1 Dimensi
dengan Opsi Y/T
Berikut contohnya,,,
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah Procedure Faktorial dan hasilnya:
jangan lupa klik 'play' atau tekan F9 pada keyboard,,
keterangan perintah-perintah delphi 7
klik disini
Berikut contohnya,,,
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah Procedure Faktorial dan hasilnya:
jangan lupa klik 'play' atau tekan F9 pada keyboard,,
Gambar diatas adalah
contoh opsi Y 5kali dan diakhiri opsi T
untuk opsi T
Gambar diatas adalah contoh opsi Y 2kali dan diakhiri opsi T
Perintah intinya :
i:=1;
tot:=1;
var
tot,i:integer;
lagi:string;
rata:real;
nilai:Array[1..10]
of integer;
begin
i:=1; tot:=1;
Repeat
write('Masukkan nilai ke',i,'=');
readln(nilai[i]);
tot:=tot+nilai[i];
i:=i+1;
write ('Lagi? Y/T');readln(lagi)
until(lagi='T')or (lagi='t') ;
rata:=tot/(i-1);
writeln('Rata-rata Nilai =',rata:6:1);
readln;
end.
***selamat
mencoba***
Array adalah suatu variabel tunggal yang digunakan untuk menyimpan
sekumpulan data yang sejenis. Anda dapat memanipulasi, menyalin array hanya
dengan sebuah nama. Dalam tipe data array menggunakan nomor elemen di kanan
nama array.
contoh penulisan array,, nilai:Array[1..10] of integer;
nah,, saya akan mencoba penghitungan dengan menggunakan variable Array,,
berikut caranya,,,
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,
jumlah data yang dimasukkan adalah 3,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,
jadi harus masukkan 3 macam nilai,, seperti gambar dibawah ini,,
dan rata-ratanya akan muncul seperti gambar diatas,,
itulah hasil percobaan penghitungan rata-rata dengan variable array pada delphi 7
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
Div adalah Pembagian yang bernilai angka integer
Mod adalah Sisa hasil bagi yang bernilai integer
nah,, saya akan mencoba penghitungan dengan menggunakan Div dan Mod,,
berikut caranya,,,
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah dan hasilnya:
jagan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,
masukkan angkanya,, seperti gambar dibawah ini,,
itulah hasil percobaan penghitungan Div Mod dengan menggunakan delphi 7
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
