di tonton yah
Sekilas Saya
- amertha sheing
- 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
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
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
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.
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
3 kali juara Intercontinental / Piala Dunia Antarklub
(1960, 1998, 2002)
2 kali juara Piala UEFA
2 kali juara Piala UEFA
(1984/85, 1985/86)
1 kali juara Piala Super Eropa
1 kali juara Piala Super Eropa
(2002)
31 kali juara Primera Liga
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
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
1 kali juara Copa de la Liga
(1984/85)
9 kali juara Piala Super Spanyol termasuk Copa Eva Duarte
9 kali juara Piala Super Spanyol termasuk Copa Eva Duarte
(1947, 1988, 1989,
1990, 1993, 1997, 2001, 2003, 2008)
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.
Langganan:
Postingan (Atom)