Sekilas Saya

Foto saya
batam, riau, Indonesia
Sinar matamu tajam namun ragu Kokoh sayapmu semua tahu Tegap tubuhmu takkan tergoyahkan Kuat jarimu kalau mencengkeram Bermacam suku yang berbeda Bersatu dalam cengkeramanmu Angin genit mengelus merah putihku Yang berkibar sedikit malu-malu Merah membara tertanam wibawa Putihmu suci penuh kharisma Pulau pulau yang berpencar Bersatu dalam kibarmu Terbanglah garudaku Singkirkan kutu-kutu di sayapmu Berkibarlah benderaku Singkirkan benalu di tiangmu Jangan ragu dan jangan malu Tunjukkan pada dunia Bahwa sebenarnya kita mampu

Kamis, 15 Maret 2012

蔡健雅- Beautiful love

video
mantap ..
di tonton yah

download film GOAL (1,2,3)



Masih ingat film Goal.
Yang jelas ini film tentang sepak bola. 
yang peran utama ny selalu Santiago munez.
Tadi kebetulan ada teman lama yang minta dicarikan link download Film Goal. 
Langsung aku kasih linknya kebetulan aku jg download ny dari sini:


Download Goal I: The Dreams Begin (2005)
               -http://www.indowebster.com/Goal_CD1.html


               -http://www.indowebster.com/Goal_CD2.html


Download Goal II: Living the Dream (2007)
               -http://www.indowebster.com/Goal_2_CD1.html


               -http://www.indowebster.com/Goal_2_CD2.html


Download Goal! III (2009)
               -http://www.indowebster.com/Goal_3.html

Kamis, 08 Maret 2012

pascal tentang pembayaran LISTRIK



USES wincrt;
VAR
   Np ,Kd,Jp,tanggal :string ;
   Hb, p , Hkwh, Td ,admin : Real ;
 


BEGIN
   Gotoxy(15,3);Write ('BANK BNI SYARIAH   ') ;Gotoxy(50, 3);Write ('TANGGAL.');readln(tanggal);
   Gotoxy(15,4);Write ('BANK BNI SYARIAH SP.PLAZA BOGOR II/0000000SBJRKALOI  ') ;
   Gotoxy(25,5);Write ('          STRUKTUR PEMBAYARAN TAGIHAN LISTRIK  ') ;
   Gotoxy(25,6); Write ('...................................................... ') ;
   Gotoxy(5,7); Write ('Nama Pelanggan : '); Readln (np) ;
   Gotoxy(5,8); Write ('Kode Rekening : '); Readln (Kd) ;
   Gotoxy(5,13); Write ('_______________________________________________') ;


   IF Kd = 'R01' then
   BEGIN
        Jp := 'Pabrik/Perusahaan' ;
        Hb := 40000 ;
        HKwh := 1250 ;
        admin :=1600 ;
        END
        ELSE IF Kd='S02' then
   BEGIN
        Jp := 'Swalayan & toko';
        Hb := 35000 ;
        Hkwh:= 1000 ;
        admin :=1600 ;
        END
        ELSE IF Kd = 'T03' then
   BEGIN
        Jp := 'Rumah' ;
        Hb := 10000 ;
        Hkwh:= 250 ;
        admin :=1600 ;
       END ;
 
   Gotoxy(50,8) ; Write('Jenis Pelanggan : ', jp);
   Gotoxy(20,9) ; Write('Harga Beban     : ', Hb:10:1);
   Gotoxy(20,10); Write('Harga KWH       : ', Hkwh:10:1);
   Gotoxy(20,11); Write('Tarif/Daya      : '); Readln(Td) ;
   Td := Hb + Hkwh * P + admin ;
 
   gotoxy(5,15);write('PLN menyatakan struktur ini sebagai bukti pembayaran yang sah,mohon disimpan');
   gotoxy(5,16);write('ADMIN BANK       Rp :',admin:10:1);
   gotoxy(5,17);write('Total Pembayaran  Rp :', Td:8:2 );
 
   gotoxy(20,19);write('Rincian Tagihan Dapat Diakses di www.pln.co.id');
   gotoxy(20,20);write('              Atau Di PLN Terdekat            ');
   gotoxy(5,21);write('SBJRKAL01/OFR/CA09112011081450/00030/OL');
   gotoxy(5,23);write('TERIMA KASIH.');








END.




Bagus Amertha
Management of Informatika 5

data nilai - pascal



uses wincrt;
var nim,ntugas,nmid,nuas,nangka:real;
    nama :string ;


begin
write('nim         :');readln(nim);
write('nama        :');readln(nama);
write('nilai tugas :');readln(ntugas);
write('nilai mid   :');readln(nmid);
write('nilai uas   :');readln(nuas);


nangka:=(0.2 * ntugas)+(0.3 * nmid)+(0.5 * nuas);
writeln('nangka    :',nangka:2:0);
if (nangka>=76)and(nangka<=100)then
write('nilai huruf A')
else if(nangka>=56)and(nangka<=75)then
write('nilai huruf B')
else if(nangka>=0)and(nangka<=55)then
write('nilai huruf GAGAL')
else
write('nilai yang anda input salah');


end.

Jumat, 02 Maret 2012

uas-pascal



bintang kotak
uses wincrt;
var i,j,n : integer;
begin
write('masukan nilai n = '); readln(n);
writeln('betuk gambarnya');                                      
i:=(2-(n mod 2));
repeat
for j :=1 to (abs(n-i)div 2) do write (' ');
for j :=1 to (n-(2*(abs(n-i)div 2))) do write ('*');
writeln ;
I:= i+4;
until(i>(n*2))
end.


data
uses wincrt;
var nitu,nimid,niuas,nia :integer;


    nim,nama :string ;
begin


write('nim:');readln(nim);
write('nama:');readln(nama);
write('nilai tugas:');readln(nitu);


write('nilai MID:');readln(nimid);
write('nilai UAS:');readln(niuas);
write('nilai angka:');readln(nia);










if (nia>=76)and(nia<=100)then
write('nilai Anda A')
else if(nia>=56)and(nia<=75)then
write('nia Anda B')
else if(nia>=0)and(nia<=55)then
write('nia Anda GAGAL')
else
write('nia yang anda input salah');
end.




http://www.facebook.com/profile.php?id=100000493407110

sekilas tentang real madrid



Real Madrid




Berdiri: 1902
Alamat: C/ Concha Espina, 1 Spain
Telepon: (+34) 91 398 43 00 -
Surat Elektronik: mensajes@realmadrid.com
Laman Resmi: http://www.realmadrid.com
Ketua: Florentino Pérez
Direktur: Miguel Pardeza
Stadion: Santiago Bernabéu, Madrid
Sejarah Singkat 

Klub Spanyol paling sukses ini boleh berbangga dengan berbagai gelar yang pernah diraihnya. Terbanyak menjuarai Primera Liga Spanyol, koleksi sembilan gelar Real Madrid di Liga Champions juga belum tertandingi klub manapun. Jika Madrid di era modern identik dengan Los Galacticos, klub ibukota Spanyol ini ternyata berdiri setelah terinspirasi kaum cendekiawan. Beberapa profesor dan mahasiswa asal Inggris memperkenalkan sepakbola dan Football Club Sky pun berdiri sebagai cikal bakal klub pada 1897. Tiga tahun berselang, klub terpecah menjadi Foot-Ball de Madrid dan Club Español de Madrid. Pada 1902, klub terakhir pecah lagi dan berdirilah Madrid Football Club, yang meraih gelar Copa del Rey 1905 dan turut mendirikan federasi sepakbola Spanyol pada 1909. Barulah pada 1920, klub menggunakan nama Real Madrid yang disematkan Raja Alfonso XIII.

Pada 1929, Madrid ikut memulai liga sepakbola Spanyol bersama sembilan klub lain. Hingga saat ini, bersama Barcelona dan Athletic Bilbao, Los Blancos menjadi klub yang tak pernah terdegradasi dari Primera Liga. Madrid memenangi gelar liga untuk kali pertama pada musim 1931/32. Pada periode ini, Madrid dipimpin presiden Santiago Bernabeu Yeste, yang membangun kembali stadion klub dan Ciudad Deportiva setelah rusak akibat Perang Saudara Spanyol. Awal 1953, Bernabeu mencetuskan ide menggunakan pemain berkelas dunia dari luar negeri. Penyerang kenamaan Argentina, Alfredo di Stefano, didatangkan. Sejarah pun mencatat kejayaan Madrid di Piala Champions sejak kali pertama digulirkan 1956. Madrid menjadi yang terbaik di Eropa selama lima edisi berturut-turut. Gelar keenam sukses diraih pada 1966.

Kejayaan juga terjadi di kancah domestik. Madrid tak tertahankan dengan menjuarai liga delapan kali pada periode 1960-an. Madrid mampu menjaga tradisi menjuarai liga pada setiap dasawarsa hingga terakhir kali melakukannya musim 2007/08. Pada 1980-an, bersama kuintet La Quinta del Buitre; yakni Emilio Butragueno, Manuel Sanchis, Martin Vazquez, Michel, dan Miguel Pardeza; Madrid lima kali berturut-turut menjuarai liga antara 1986 hingga 1990. Namun, mereka harus menunggu lama untuk melanjutkan kejayaan di Eropa. Baru pada 1997/98, 32 tahun setelah gelar terakhir, Madrid sukses menambah koleksi Liga Champions.

Pada dasawarsa 2000-an, kebijakan mengumpulkan pemain bintang, seperti yang pernah dilakukan Bernabeu, dilanjutkan presiden Florentino Perez. Pro dan kontra lahir, tapi Los Merengues tetap akan dikenal sebagai klub para pemain bintang.





Real MadridCatatan Prestasi EL-REAL 

9 kali juara Piala Eropa / Liga Champions
(1955/56, 1956/57, 1957/58, 1958/59, 1959/60, 1965/66, 1997/98, 1999/2000, 2001/02)

3 kali juara Intercontinental / Piala Dunia Antarklub
(1960, 1998, 2002)

2 kali juara Piala UEFA
(1984/85, 1985/86)

1 kali juara Piala Super Eropa
(2002)

31 kali juara Primera Liga
 (1931/32, 1932/33, 1953/54, 1954/55, 1956/57, 1957/58, 1960/61, 1961/62, 1962/63, 1963/64, 1964/65, 1966/67, 1967/68, 1968/69, 1971/72, 1974/75, 1975/76, 1977/78, 1978/79, 1979/80, 1985/86, 1986/87, 1987/88, 1988/89, 1989/90, 1994/95, 1996/97, 2000/01, 2002/03, 2006/07, 2007/08)

18 kali juara Copa del Rey
(1904/05, 1905/06, 1906/07, 1907/08, 1916/17, 1933/34, 1935/36, 1945/46, 1946/47, 1961/62, 1969/70, 1973/74, 1974/75, 1979/80, 1981/82, 1988/89, 1992/93, 2010/11)

1 kali juara Copa de la Liga
(1984/85)

9 kali juara Piala Super Spanyol termasuk Copa Eva Duarte
(1947, 1988, 1989, 1990, 1993, 1997, 2001, 2003, 2008)

Real Madrid

pascal-array



ARRAY
Array merupakan struktur data yang statis, yaitu jumlah elemen yang ada harus ditentukan terlebih dahulu dan tak bisa di ubah saat program berjalan. Untuk menyatakan array dalam PASCAL kita harus terlebih dahulu:
· Mendefinisikan jumlah elemen array,
· Mendefinisikan tipe data dari elemen array

Contoh :
const
N=10;
type
A= array [1..N] of integer;

Array (Larik) adalah tipe tersruktur yang terdiri dari sejumlah komponen yang mempunyai tipe yang sama. Array ada 2 jenis:

1) Array berdimensi satu.
2) Array berdimensi 2 /dimensi banyak.

Array Berdimensi Satu (One Dimensional Array)

Bentuk Umum :
Contoh Penulisan :

X : array[1..100] of integer;

Sebagian dari elemen-elemen dari X tersebut adalah :
Contoh :

Program Array_1_dimensi;
uses wincrt;
Var
NilaiPrak : array[1..20] of real;
I, JumlahData : Byte;
Begin
Write ('Masukkan banyakya data : ');
Readln(JumlahData);
For I := 1 to JumlahData do
Begin
Write ('Nilai ke ',I,':');
Readln(NilaiPrak[I])
End;
Readln;
End.
Ada juga Pendefinisian array secara umum adalah sebagai berikut : jika kita ingin membuat beberapa array dengan tipe/jenis yang sama, kita lebih baik jika mendeklarasikan dengan type selanjutnya dengan deklarasi var.

type
nama_array = ARRAY[bawah..atas] of tipe_data;
var
variabel_array : nama_array;

atau dengan menggunakan statement var :
var
variabel_array : ARRAY[bawah..atas] of tipe_data;

Penjelasan:

Bawah dan Atas menyatakan batas untuk array. tipe_data adalah merupakan tipe variabel yang dipunyai array (mis. Integer, char, real, dsb)

Contoh :

uses winCrt;
var
a: array[1..10] of byte; {maksimum jumlah elemen=10}
begin
a[1]:=10;
a[2]:=15;
a[3]:=a[1]+a[2];
Writeln(a[1]);
Writeln(a[2]);
Writeln(a[3]);
end.

Contoh array dengan konstanta

uses wincrt;
const
N=10;
type
int_array= ARRAY [1..N] of integer;
var
bil : int_array;
indeks : integer;
begin
writeln('masukkan sepuluh bilangan integer.');
for indeks := 1 to 10 do
begin
readln(bil[indeks]);
end;
writeln('Isi dari array ini adalah');
for indeks := 1 to 10 do
begin
writeln('bil[', indeks:2,'] adalah ',bil[indeks] );
end
end.

Contoh Array untuk menghitung Huruf

Program Hitung_Huruf;
Uses WinCrt;
Var
Teks : string;
banyak : array['A'..'Z'] of byte;
i : byte;
begin
Write('Masukkan Suatu Kalimat :');
Readln(Teks);
for i:=1 to length(teks) do
banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
for i:=1 to 26 do
if (banyak[upcase(chr(64+i))]<>0) then
writeln(upcase(chr(64+i)),' banyaknya =',banyak[upcase(chr(64+i))]);
end.


Array Berdimensi Dua (Two/multi Dimensional Array)

Dalam array multidimensi terdiri atas baris (row) dan kolom (column). Index pertama adalah baris dan yang kedua adalah kolom .

Type nama_array =ARRAY[bawah..atas, bawah..atas] of tipe_data;
var variabel_array : nama_array;

atau dengan menggunakan statement var :
var variabel_array : ARRAY[bawah..atas, bawah..atas] of tipe_data;


Bentuk umum :

Nama_array : ARRAY[tipe-indeks1,type-indeks2] of tipe data

Contoh penulisan :

tabel : array [1..3,1..2] of byte

Contoh :

Program Array_2_dimensi;
Uses wincrt;
Var
Matrik : array[1..3,1..2] of shortint;
I, J : Byte;
Begin
Matrik[1,1] := -11;
Matrik[2,1] := -76;
Matrik[3,1] := 8;
Matrik[1,2] := -1;
Matrik[2,2] := 11;
Matrik[3,2] := 18;
For I := 1 to 3 do
Begin
For J := 1 to 2 do
    Write (Matrik[I,J]:5);
Writeln;
End;
Readln;
End.

Kasus :
1.       Buat Program dengan array untuk mencari banyak huruf seperti hasil program di bawah ini :


2.       Buat Program untuk menentukan bilangan terbesar dari data yang diinputkan seperti hasil dibawah ini :

3.       Buat Program untuk menentukan bilangan genap, ganjil, serta rata-ratanya dan berapa jumlah bilangan genap dan ganjil seperti hasil berikut :
4.       Buat Program untuk menggabungkan dua buah array dan hasilnya menurun
Array yang digabungkan diberikan nilai konstanta contoh
const
a:array[1..6] of integer =(2,5,8,11,14,17);
b:array[1..8] of integer =(4,5,7,9,11,12,30,45);
maka akan mendapatkan hasil :


5.       Buat Program untuk menentukan pangkat dari bilngan yang dimasukkan dan akan dipangkatkan berapa seperti hasil berikut ini :

looping-pascal



LOOPING

(PERINTAH PERULANGAN)

Iterasi / perulangan (Loop) dalam bahasa Pascal terdiri dari 3 macam,
yaitu : For Do,
While Do
dan Repeat Until.

For Do

Digunakan untuk mengulang statemen atau satu blok statemen berulang kali sejumlah yang ditentukan.
Perulangan For dapat berbentuk perulangan positif, perulangan Negatif dan perulangan tersarang.

a) Perulangan Positif

Adalah perulangan dengan penghitung (counter) dari kecil ke besar atau pertambahannya positif.

B.u :    For Variabel_Kontrol := Nilai_Awal To Nilai_Akhir Do
Statement ;

Ket : - Variabel_Kontrol, Nilai_Awal dan Nilai_Akhir harus bertipe sama, yaitu
Integer.

􀂃 Jika Statement hanya 1, maka boleh ditulis dalam blok (Diawali Begin dan diakhiri End;) boleh tidak. Sedangkan jika blok statement lebih dari 1, maka statement2 tersebut harus diletakkan dalam blok.

Contoh 1 :

uses wincrt;
Var I : Integer ;
Begin
FOR I := 1 To 5 Do Writeln ('Pascal');
End.


Contoh 2 :

uses wincrt;
Var I : Integer ;
Begin
FOR I := 1 To 5 Do
Begin
Writeln (‘Pascal’);
End ;
End.
Contoh 3 :
uses wincrt;
Var I : Integer ;
Begin
FOR I := 1 To 5 Do
Begin
Writeln (I );
Writeln (‘Pascal’);
End ;
End.

b) Perulangan Negatif

Adalah perulangan dengan penghitung (counter) dari besar ke kecil atau pertambahannya negatif.

B.u :    For Variabel_Kontrol := Nilai_Awal DownTo Nilai_Akhir Do
Statement ;

uses wincrt;
Var I : Integer ;
Begin
FOR I := 1 To 5 Do Writeln (‘Pascal’);
End.


uses wincrt;
Var I : Integer ;
Begin
FOR I := 5 DownTo 1 Do Writeln ('Pascal',I);
End.

c) Perulangan Tersarang (Nested Loop)

Adalah perulangan yang berada dalam perulangan lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang luar baru bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari awal, dan seterusnya.

Uses wincrt;
Var I, J : Integer ;
Begin
For I := 1 To 3 Do
Begin
For J := 1 To 3 DO
Write (I:8, J :3) ;
Writeln ;
End ;
End.






Contoh Program Untuk FOR

uses wincrt;
var
I, Panjang: Integer;
Kata, Balik: string;
begin
Writeln('Balik Kalimat');
Writeln('=============');
Write('Masukkan kalimat : ');
Readln(Kata);
Panjang := Length(Kata);
Balik := '';
for I := Panjang downto 1 do
Balik := Balik + Kata[I];
Writeln('Hasil pembalikannya : ', Balik);
Readln;
end.

Analisa : program ini untuk membalik sebuah untai karakter yang dimasukkan pemakai dan menampilkan hasilnya. Algoritma yang digunakan adalah dengan memasukkan satu demi satu karakter ke dalam suatu peubah hasil dengan urutan dari depan ke belakang, yang diambil dari peubah masukan dengan urutan yang berlawanan. Peubah hasil adalah yang akan ditampilkan.




While Do

Digunakan untuk melakukan proses perulangan suatu statemen atau blok statemen terus menerus selama kondisi ungkapan logika pada While masih bernilai logika benar.

B.u :    While ungkapan_logika Do
Statemen ;

Uses wincrt;
Var I : Integer ;
Begin
I := 0 ;
While I < 5 Do
Begin
Writeln (I) ;
I := I + 1 ;
End ;
End.







Perulangan While-Do Tersarang

Adalah suatu perulangan While-Do yang ada didalam perulangan While_Do yang lain.

Uses wincrt;
Var I, J : Integer ;
Begin
I := 1 ;
While I < 3 Do
Begin
J := 1 ;
While J < 2 Do
Begin
Writeln ( I : 5 , J : 5 );
J := J + 1 ;
End ;
I := I + 1 ;
End ;
End.

Repeat Until

Digunakan untuk mengulang (Repeat) statemen satau blok statemen sampai (Until) kondisi yang diseleksi di Until tidak terpenuhi.

B.u : Repeat
Statemen;
Until Ungkapan_logika;

Uses wincrt;
Var I : Integer ;
Begin
I := 0 ;
Repeat
I := I + 1 ;
Writeln (I) ;
Until I = 5;
End.

Repeat-Until Tersarang

Adalah suatu perulangan Repeat – Until yang berada didalam perulangan Repeat-Until yang lain.

Uses wincrt;
Var I, J : Integer ;
Begin
I := 0 ;
Repeat
I := I + 1 ;
J := 0 ;
Repeat
J := J + 1 ;
Writeln (I : 5, J : 5) ;
Until J = 3 ;
Until j = 3 ;
End.

Berikut contoh program untuk menampilkan bilangan genap dari 2 sampai dengan 100. Salin program berikut :

Uses wincrt;
var
i: Integer;
begin
Writeln('Bilangan genap');
i := 1;
repeat
Inc(i);
if i mod 2 = 0 then Write(i:4);
until (i=100);
Readln;
end.

Sama halnya dengan struktur kendali yang telah dibahas sebelumnya, pada struktur perulangan dapat terjadi kasus dimana di dalam struktur perulangan tertentu terdapat struktur perulangan yang lain dan seterusnya. Program berikut akan menerapkan struktur perulangan dengan menggunakan while.

Uses wincrt;
var
i, j: Integer;
M: Char;
Begin
Write('Masukkan sembarang karakter : ');
Readln(M);
i := 1;
while i <= 10 do
begin
j := 1;
while j <= i do
begin
Write(M);
Inc(j);
end;
Writeln;
Inc(i);
end;
Readln;
end.

uses wincrt;
var
Hasil: Real;
I, pilih, A, X, N: Integer;
Status: Boolean;
begin
Repeat
Clrscr;
Writeln('1. Pemangkatan 2. Faktorial 3. Keluar');
Write('Masukkan Pilihan Anda : ');
Readln(pilih);
case pilih of
1 : begin
Write('Masukkan Sembarang angka : ');
Readln(X);
Write('Akan dipangkatkan berapa : ');
Readln(A);
Hasil := 1;
for I := 1 to A do Hasil := X * Hasil;
Writeln('Jadi ', X,' dipangkatkan ', A,' : ',
Hasil:5);
Status := False;
end;
2 : begin
Write('Masukkan Sembarang angka : ');
Readln(N);
if N <= 1 then Hasil := 1
else
begin
Hasil := 1;
for I := 2 to N do Hasil := Hasil * I;
end;
Writeln('Jadi factorial ', N,' (', N,'!) : ',
Hasil:5);
Status := False;
end;
3 : Status := True;
else
begin
Writeln('Pilihan Anda salah !');
Status := True;
end;
end;
Readln;
until Status;
end.