Selasa, 30 Oktober 2012

NEW SONG FROM KAPITAL Band

lagu terbaru originil,
1. putus asa, cpt.Rindy(vocal)
DOWNLOAD
2. Habis Manis Sepah Dibuang (HMSD), cpt.Rindy(vocal)
3. cinta pandangan pertama, cpt. Rindy(vocal)





"SEMOGA KALIAN SUKA DENGAN KARYA KAMI"

Minggu, 28 Oktober 2012

latihan prosedu


program prosedur;
uses wincrt;

var
i:integer;

procedure garis;
begin
writeln('====================');
end;

procedure data;
var
nm:string;
npm:integer;
almt:string;
begin
write('Nama:');readln (nm);
write('NPM:');readln (npm);
write('Alamat:');readln(almt);
end;

begin
for i:=1 to 5 do
begin
writeln('Data-data Mahasiswa');
garis;
data;
end;
end.




















program latihan_prosedur;
uses wincrt;
var
i:integer;
k:byte;

procedure garis;
begin
writeln('=====================');
end;

procedure luas_persegi_panjang;
var
p:integer;
l:integer;
hasil:integer;
begin
write('Panjang:');readln(p);
write('Lebar');readln(l);
hasil:=p*l;
writeln ('luas persegi panjang:',hasil);
end;

    procedure luas_segitiga;
    var
    A:real;
    T:integer;
    luas:real;

    begin
    write('Alas:');readln(A);
    write('Tinggi:');readln(T);
    luas:=(A*T)/2;
    writeln('Hasil:',luas:0:2);
    end;

procedure keliling_lingkaran;
var
r,kel:real;

const
phi=3.14;


begin
write('R:');readln(r);
kel:=2 * r * phi;
writeln('Keliling_lingkaran:',kel:0:2);
end;


begin
for i:= 1 to 5 do
begin
writeln;
writeln ('pilih rumus yang dininginkan');
writeln ('1.luas_persegi_panjang');
writeln ('2.luas_segitiga');
writeln ('3.Keliling_lingkaran');
write ('masukkan no pilihan (1,2,3) pilih salah satu:');readln(k);

case k of
1:luas_persegi_panjang;
2:luas_segitiga;
3:keliling_lingkaran;

end;
end;
end.

Minggu, 21 Oktober 2012

CONTOH FOR,WHILE,REPEAT


Pengulangan menggunakan FOR TO DO:
program pengulangan_for;

uses wincrt;

var
nilai, i : integer;
nil_huruf :char;
ket : string;
jawab :char;




begin
for i:=1 to 5 do
begin
writeln ('Pengulangan For Ke ',i);
writeln;
writeln ('Nilai Kelulusan');
write('Nilai : ');readln(nilai);


case nilai of
0..40 : nil_huruf:= 'E';
41..50 : nil_huruf:= 'D';
51..60 : nil_huruf:= 'C';
61..79 : nil_huruf:= 'B';
80..99 : nil_huruf:= 'A';
end;












PENGULANGAN MENGGUNAKAN REPEAT UNTIL:
program pengulangan_repeat;

uses wincrt;
var
nilai, i, j : integer;
nil_huruf :char;
ket : string;
jawab :char;

begin
i:=1;
repeat
writeln ('Pengulangan Repeat Ke ',i);
writeln;
writeln ('Nilai Kelulusan');
           
write('Nilai : ');readln(nilai);
case nilai of
0..40 : nil_huruf:= 'E';
41..50 : nil_huruf:= 'D';
51..60 : nil_huruf:= 'C';
61..79 : nil_huruf:= 'B';
80..99 : nil_huruf:= 'A';
end;
begin
case nil_huruf of
'E' : ket:='Gagal';
'D' : ket:='Kurang';
'C' : ket:='Cukup';
'B' : ket:='Baik';
'A' : ket:='Sangat Baik';
end;
writeln('Nilai huruf : ',nil_huruf);
writeln('Keterangan : ',ket);
writeln;
writeln;
writeln;


end;
i:=i+1;
until i>5;
end.
PENGULANGAN MENGGUNAKAN WHILE :


program pengulangan_while;

uses wincrt;

var
nilai, i, j : integer;
nil_huruf :char;
ket : string;
jawab :char;

begin
i:=0;
while i <= 4 do begin

begin
i:=i+1;
writeln ('Pengulangan While Ke ',i);
writeln;
writeln ('| Nilai Kelulusan |');
write('Nilai : ');readln(nilai);


case nilai of
0..40 : nil_huruf:= 'E';
41..50 : nil_huruf:= 'D';
51..60 : nil_huruf:= 'C';
61..79 : nil_huruf:= 'B';
80..99 : nil_huruf:= 'A';
end;

begin

case nil_huruf of
'E' : ket:='Gagal';
'D' : ket:='Kurang';
'C' : ket:='Cukup';
'B' : ket:='Baik';
'A' : ket:='Sangat Baik';
end;

writeln('Nilai huruf : ',nil_huruf);
writeln('Keterangan : ',ket);
writeln;
writeln;                               
writeln;
end;
end;
end;
end.

Kamis, 18 Oktober 2012

KAPITAL Band --DIRIMU SATU

(*)
Cintaku hanya untukmu
Sayangku hanya bagimu
Kasihku jangan pernah tinggalkanku
(**)
Tiada lagi yang ku inginkan
Tiada lagi yang ku harapkan
Selain....
Selain dirimu sayang
(***)
Aku tak ingin kau pergi dariku
Hanya engkaulah dihatiku

REFF:
Dirimu satu
Hihatiku
Tak ada yang bisa menggantikanmu
Dirimu satu dihatiku
Hanya engkaulah yang s'lalu dihatiku



Rabu, 17 Oktober 2012

KOMPLEKSITAS ALGORITMA


Algoritma adalah sekumpulan berhingga dari instruksi-instruksi untuk melakukan perhitungan/ komputasi atau memecahkan suatu masalah. Sebuah algoritma tidak saja harus benar, tetapi juga harus efisien. Algoritma yang bagus adalah algoritma yang efektif dan efisien. Algoritma yang efektif diukur dari berapa jumlah waktu dan ruang (space) memori yang dibutuhkan untuk menjalankannya.  Algoritma yang efisien adalah algoritma yang meminimumkan kebutuhan waktu dan ruang. Kebutuhan waktu dan ruang suatu algoritma bergantung pada ukuran masukan (n), yang menyatakan jumlah data yang diproses. Keefektifan algoritma dapat digunakan untuk menilai algoritma yang bagus.
Kita dapat mengukur waktu yang diperlukan oleh sebuah algoritma dengan menghitung banyaknya operasi/instruksi yang dieksekusi. Jika kita mengetahui besaran waktu (dalam satuan detik) untuk melaksanakan sebuah operasi tertentu, maka kita dapat menghitung berapa waktu sesungguhnya untuk melaksanakan algoritma tersebut.

Contoh 1. Menghitung rerata
aaa3 … an
Larik bilangan bulat

procedure HitungRerata(input a1, a2, …, an : integer, output
r : real)
{ Menghitung nilai rata-rata dari sekumpulan elemen larik integer a1, a2,
…, an.
Nilai rata-rata akan disimpan di dalam peubah r.
Masukan: a1, a2, …, an
Keluaran: r (nilai rata-rata)
}
Deklarasi
k : integer
jumlah : real
Algoritma
jumlah 0
k 1
while k n do
jumlah jumlah + ak
k k+1
endwhile
{ k > n }
r jumlah/n { nilai rata-rata }
  1. Operasi pengisian nilai (jumlah 0, k 1, jumlah jumlah+ak, k k+1, dan r jumlah/n). Jumlah seluruh operasi pengisian nilai adalah: t1 = 1 + 1 + + 1 = 3 + 2n
  2. Operasi penjumlahan (jumlah+ak, dan k+1). Jumlah seluruh operasi penjumlahan adalah:  t2 = = 2n
  3. Operasi pembagian (jumlah/n). Jumlah seluruh operasi pembagian adalah t3 = 1


Total kebutuhan waktu algoritma HitungRerata:
t1 + t2 + t3 = (3 + 2n)a + 2nb detik
Model perhitungan kebutuhan waktu seperti di atas kurang berguna, karena dalam praktek kita tidak mempunyai informasi berapa waktu sesungguhnya untuk melaksanakan suatu operasi tertentu. Komputer dengan arsitektur yang berbeda akan berbeda pula lama waktu untuk setiap jenis operasinya.
Model abstrak pengukuran waktu/ruang harus independent dari pertimbangan mesin dancompiler apapun. Besaran yang dipakai untuk menerangkan model abstrak pengukuran waktu/ruang ini adalah kompleksitas algoritma. Ada dua macam kompleksitas algoritma, yaitu: kompleksitas waktu dan kompleksitas ruang.
Kompleksitas waktu, T(n), diukur dari jumlah tahapan komputasi yang dibutuhkan untuk menjalankan algoritma sebagai fungsi dari ukuran masukan n. Kompleksitas ruang, S(n), diukur dari memori yang digunakan oleh struktur data yang terdapat di dalam algoritma sebagai fungsi dari ukuran masukan n. Dengan menggunakan besaran kompleksitas waktu/ruang algoritma, kita dapat menentukan laju peningkatan waktu(ruang) yang diperlukan algoritma dengan meningkatnya ukuran masukan n.
Dalam praktek, kompleksitas waktu dihitung berdasarkan jumlah operasi abstrak yangmendasari suatu algoritma, dan memisahkan analisisnya dari implementasi. Tinjau algoritma menghitung rerata pada Contoh 1. Operasi yang mendasar pada algoritma tersebut adalah operasi penjumlahan elemen-elemen ak (yaitu jumlah jumlah+ak). Kompleksitas waktu HitungRerata adalah T(n) = n.
Contoh 2. Algoritma untuk mencari elemen terbesar di dalam sebuah larik (array) yang berukuran elemen.

procedure CariElemenTerbesar(input a1, a2, …, an : integeroutput maks : integer)
{ Mencari elemen terbesar dari sekumpulan elemen larik integer a1, a2, …, an.
Elemen terbesar akan disimpan di dalam maks.
Masukan: a1, a2, …, an
Keluaran: maks (nilai terbesar)
}
Deklarasi
k : integer
Algoritma
maks¬a1
k¬2
while k £ n do
if ak > maks then
maks¬ak
endif
i¬i+1
endwhile
{ k > n }
  1. Kompleksitas waktu algoritma pada Contoh 2 dihitung berdasarkan jumlah operasi perbandingan elemen larik (A[k] > maks).
  2. Kompleksitas waktu CariElemenTerbesar : T(n) = – 1.


Kompleksitas waktu dibedakan atas tiga macam :
  1. Tmax(n) : kompleksitas waktu untuk kasus terburuk (worst case), kebutuhan waktu maksimum.
  2. Tmin(n) : kompleksitas waktu untuk kasus terbaik (best case), kebutuhan waktu minimum.
  3. Tavg(n): kompleksitas waktu untuk kasus rata-rata (average case), kebutuhan waktu secara rata-rata.
Contoh 3. Algoritma sequential search.
procedure PencarianBeruntun(input a1, a2, …, an : integer, x : integer,
output idx : integer)
Deklarasi
k : integer
ketemu : boolean { bernilai true jika x ditemukan atau false jika x tidak ditemukan }
Algoritma:
k¬1
ketemu ¬ false
while (k £ n) and (not ketemu) do
if ak = x then
ketemu¬true
else
k ¬ k + 1
endif
endwhile
{ k > n or ketemu }
if ketemu then { x ditemukan }
idx¬k
else
idx¬ 0       { x tidak ditemukan }
endif
Jumlah operasi perbandingan elemen tabel:
  1. Kasus terbaik: ini terjadi bila a1 = x. Tmin(n) = 1
  2. Kasus terburuk: bila an atau tidak ditemukan. Tmax(n) = n
  3. Kasus rata-rata: Jika ditemukan pada posisi ke-j, maka operasi perbandingan (ak = x) akan dieksekusi sebanyak kali.


Tavg(n) = (n+1)/2

………………………..

download doc

Senin, 15 Oktober 2012

KAPITAL Band

Kapital Band terbentuk pada Tanggal 09 September 2009, Nama Kapital diambil dari bahasa indonesia yg berartikan Huruf Besar, kami mengambil filosofinya yaitu Besar mengapa kami ambil demikian ? karena kami memiliki mimpi dan cita-cita menjadi Band yang Besar, karena itu kami buat namanya KAPITAL Band.
KAPITAL Band di gawangi oleh Rindy,Imam,Singgih,Dedy danTeddy.
band ini terbentuk pad saat masa sekolah awal mula yang mempunyai ide untuk membuat band adalah bung imam yang menjadi Guitaris2 diKapital Band, lalu bung Imam mengajak bung Rndy sebagai Vocalis,bung Singgih sebagai Guitaris1 ,bung Dedy sebagai Bassis dan bung Tedy sebagain Drumer.

lalu kami menyatukan visi dan misi kami, impian dan cita-cita kami di KAPITAL Band ini.
seiring waktu berjalan kami pun ikut festival di daerah kami, bisa dibilang cukup sering namun sepertinya dewi fortune belum memihak kepada kami, jadi 1 kemenangan pun belum kami dapat kan,.
tapi kami tidak berhenti disitu kami tetap mencoba mewujudkan impian dan cita-cita kami,
akhirnya kami mencoba membuat satu single pada tahun 2011 dan satu lagi diTahun  2012,
yang berjudul SAMPAIKU MATI dan DIRIMU SATU,
jika teman-teman memiliki lagu kami bisa download disini :
http://www.lagu.in/view/wdP9BTDb/Kapital_-_Dirimu_Satu.html
http://www.general-files.com/download/gs59bbb8eah17i0/kapital%20-%20sampai%20ku%20mati_1.mp3.html

Demikian perkenalan singkat dari KAPITAL Band,.
Semoga teman-teman menyukai,