Friendship isn't how you forget
But how you forgive
Not how you listen
But how you Understand
Not how you see
But how you feel
Not how you let go
But how you hold on
Rabu, 24 Maret 2010
Selasa, 23 Maret 2010
Senin, 22 Maret 2010
Semangat dan Maju
Hari ini kubuka dengan hati yang jernih.
akal dan pikiranku pun telah kucuci.
Semangat ini semangat yang selalu kunanti.
tak pernah kupikirkan apa yang lebih berarti.
Seluruh inderaku pun mulai terasa bergejolak
kubangunkan badan ini dan segera beranjak
memulai sesuatu yang baru, and don't look back !
Meski banyak rintangan, berdiri tegak !
Ayo kawan semua, ayo kita beraksi.
Hadapi semua, dan tetap tersenyum.
Ketika yakin tak ada yang sempurna.
Maka bersatulah agar semua tercapai.
Kobarkan semangat yang ada di dalam hatimu.
Genggamlah harapan tanpa keraguan.
Meski akhir kan datang.
Tetap langkahkan kakimu
akal dan pikiranku pun telah kucuci.
Semangat ini semangat yang selalu kunanti.
tak pernah kupikirkan apa yang lebih berarti.
Seluruh inderaku pun mulai terasa bergejolak
kubangunkan badan ini dan segera beranjak
memulai sesuatu yang baru, and don't look back !
Meski banyak rintangan, berdiri tegak !
Ayo kawan semua, ayo kita beraksi.
Hadapi semua, dan tetap tersenyum.
Ketika yakin tak ada yang sempurna.
Maka bersatulah agar semua tercapai.
Kobarkan semangat yang ada di dalam hatimu.
Genggamlah harapan tanpa keraguan.
Meski akhir kan datang.
Tetap langkahkan kakimu
Minggu, 21 Maret 2010
Replika Nyamuk DBD Terbesar
Rekoris : Baygon
Dalam rangka pencanangan gerakan membasmi demam berdarah, Baygon menyelenggarakan beberapa aktivitas yaitu pembuatan replika nyamuk DBD terbesar, tinggi 3,40 meter dan lebar 1,40 meter. Kegiatan berlangsung pada 07 Maret 2010 di Jakarta.
Dalam rangka pencanangan gerakan membasmi demam berdarah, Baygon menyelenggarakan beberapa aktivitas yaitu pembuatan replika nyamuk DBD terbesar, tinggi 3,40 meter dan lebar 1,40 meter. Kegiatan berlangsung pada 07 Maret 2010 di Jakarta.
http://www.muri.org/
SOAL UJI KEMAMPUAN AWAL PASCAL
1. Deklarasi
yang tepat adalah
a.
var A:
String;
b.
const A:
Integer := 25;
c.
type A =
record;
d.
type
MagicNumber: Integer;
e.
Jawaban
(a) – (d) benar semua
2.
Pernyataan manakah yang boleh
dipakai untuk
mendeklarasikan variabel dalam Pascal?
a.
var A,
B;
b.
var A:
Real, B: Integer;
c.
var A;
B: Integer;
d.
var (A,
B): Integer;
e.
var A:
Pointer; B: Integer;
3.
Bagaimana cara
mendeklarasikan konstanta bertipe?
a.
var A:
Integer const = 100;
b.
const A:
Integer = 100;
c.
const A
= 100;
d.
var A:
Integer = 100;
e.
const
Integer A = 100;
4.
Carilah deklarasi yang tidak
diperbolehkan:
a.
const A
= 14;
B = A * 2.5;
b.
const E1
= 'Division by zero';
E2 =
'Overflow';
E3 =
'Invalid argument';
ErrMsg:
array[1..3] of String =
(E1,
E2, E3);
c.
const A
= 40;
B:
Integer = A * 15;
d.
const A
= 123;
B =
Chr(A);
e.
Semua
jawaban salah
5.
Deklarasi mana yang sahih
dalam bahasa Pascal?
a.
var A:
String[70];
b.
var A =
String;
c.
var A:
String[1024];
d.
var A:
String[1..75];
e.
Semua
jawaban salah
6.
Bagaimana cara
mendeklarasikan array dua dimensi?
a.
var A:
array[1..10, 1..10] of Char;
b.
var B:
array[1 to 10, 1 to 10] of Char;
c.
var C:
matrix[1..10, 1..10] of Char;
d.
var D:
array[10, 10] of Char;
e.
var E:
matrix[10, 10] of Char;
7.
Deklarasi manakah yang benar?
a.
type
Anggota = record
Nama: String[40];
NomorAnggota: Word;
End;
b.
type
Anggota: record
Nama = String;
NomorAnggota = Word;
End;
c.
type
Anggota := record
Nama := String[20];
NomorAnggota := Word;
End;
d.
type
Anggota = record
Nama: String[];
NomorAnggota: Word;
end;
e.
Semua
deklarasi di atas salah
8.
Deklarasi manakah yang dapat
diterima?
a . var F: File of Text;
b. var F: File of Integer;
c. var F: File[1..10] of Integer;
d. var F: Text of Char;
e. salah semua.
9.
Deklarasi manakah yang salah?
a.
type Rec
= record
X, Y: Real;
end;
var F: File of Rec;
b.
var F:
File;
c. type
A = array[1..10] of Byte;
var F: File of A;
d.
var F:
File of array;
e.
Tidak
ada deklarasi yang salah
10.
Deklarasi manakah yang salah?
a.
var E:
record X, Y: Integer end;
b.
var F:
File of set of Char;
c.
var G:
record
F:
File;
U:
Integer;
end;
d.
var H:
File of record X, Y: Integer end;
e.
Tidak
ada deklarasi yang salah
11.
Deklarasi manakah yang salah?
a.
var A:
set of Real;
b.
var B:
array[1..10,1..10] of record
Flag: set of Byte;
R: Real;
end;
c.
var C:
set of (Nasi, Roti, Bakmi, Bakpau);
d.
var D:
array[1..10] of File;
e.
Tidak ada
deklarasi yang salah
12.
Deklarasi manakah yang benar?
a.
var R:
array[True..False] of String;
b.
type P =
set of Byte;
var R: array[P] of String;
c.
var Q:
set of String;
d.
type S =
array[1, 5, 7..10] of Real;
e.
Salah
semua
13.
Manakah yang salah?
a.
function
Gamma(I: Real): Real;
b.
function
Gamma(var I: Real): Real;
c.
function
Gamma(var I): Real;
d.
function
Gamma(I: Real);
e.
semua
deklarasi di atas benar
14.
Penulisan program Pascal yang
dibenarkan adalah
a.
program Sederhana;
begin
var
C: Word;
C
:= 275 *
400 + 5;
Writeln(C);
end.
b. {
program Sederhana; }
var
W:
Word;
begin
W
:= 61224;
Writeln(W
-
50000);
end.
c.
program Sederhana;
var
A:
String;
begin
A
:= '
tahun lalu belum ada komputer';
A
:= 200 +
A;
Writeln(A);
end.
d.
program Matematika;
var
Jari-jari: Real;
begin
Write('Jari-jari
lingkaran
= ');
Readln(Jari-jari);
Writeln('Keliling=',2
*
Pi * Jari-jari);
end.
e.
Semua program di atas salah!
15.
Tipe data manakah yang dapat
memuat bilangan pecahan?
a.
Byte
b.
Integer
c.
Boolean
d.
Real
e.
LongInt
16.
Manakah yang salah:
a.
var X: Integer;
begin
for X := 1 to 25 do Writeln(X);
end.
b.
var X: Char;
begin
for X := '1' to '9' do Writeln(X);
end.
c.
var X: LongInt;
begin
for X := -50 downto -400 do Writeln(X);
end.
d.
var X: Real;
begin
for X := 0 to 5 do Writeln(X);
end.
e.
Jawab (a) – (d) benar semua
17.
Tipe data manakah yang
sanggup memuat nilai numeric sebesar
75000?
a.
Integer
b.
Byte
c.
Real
d.
Word
e.
String
18.
Berapakah jangkauan tipe data
Word?
a.
0…255
b.
0…65536
c.
0…65535
d.
-32768…32767
e.
Salah
semua
19.
Turbo Pascal menyediakan tipe
data enumerasi yang didefinisikan
dengan
menyebutkan nama-nama elemennya oleh pemakai. Bila tipe data
Nilai dapat
bernilai Jelek, Kurang, Cukup, dan Baik, bagaimanakah cara
menulisnya?
a.
type
Nilai = (Jelek, Kurang, Cukup, Baik);
b.
type
Nilai = Jelek, Kurang, Cukup, Baik;
c.
type
Nilai = 'Jelek, Kurang, Cukup, Baik';
d.
type
Nilai = [Jelek, Kurang, Cukup, Baik];
e.
Salah
semua.
20.
Lihat kembali definisi Nilai
di atas. Pernyataan manakah
yang tidak benar?
a.
var Ket:
array[Jelek..Baik] of Nilai;
b.
var Ket:
array[Jelek..Baik] of String;
c.
var Ket:
Jelek;
d.
var Ket:
set of Nilai;
e.
Salah
semua
21.
Misalkan N adalah variabel
bertipe Nilai (lihat soal di
atas), maka operasi
manakah yang tidak dibenarkan untuk N?
a.
Inc(N);
b. N
:= N +
Jelek;
c.
Writeln(Ord(N));
d.
if N
>= Cukup then Writeln('Lulus');
e.
Semua
salah
22.
Berikut ini adalah deklarasi
sebuah program:
type
IsiRoti
= (Coklat, Pisang, Nanas);
var
Isi:
IsiRoti;
Manakah yang sahih di antara
pernyataan-pernyataan berikut?
a.
if Isi in IsiRoti then
Writeln('Nah,
ini
baru enak.');
b.
if Isi in [Coklat, Nanas] then
Writeln('Saya
suka
itu!');
c.
if
'Coklat' in Isi then
Writeln('Suka
roti
coklat juga ya?');
d.
if
IsiRoti = [] then
Writeln('Harus
pilih
salah satu!');
e.
if
[Nanas] in Isi then
Writeln('Memilih
roti
nanas.');
23.
Dalam potongan program
berikut,
var
Z1, Z2,
Z3, Z4: set of Byte;
begin
Z1
:= [1,
2, 6, 8, 9];
Z2
:= [3,
6, 8, 12, 14];
Z3
:= Z1 +
Z2;
Z4
:= Z1 *
Z2;
end.
Berapakah nilai akhir Z3 dan Z4?
a.
Z3 = [6,
7, 8]
Z4 =
[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
b.
Z3 = [6,
8]
Z4 = [1, 2, 3, 6, 8, 9, 12,
14]
c.
Z3 = [1,
2, 3, 6, 6, 8, 8, 9, 12, 14]
Z4 =
[6, 6, 8, 8]
d.
Z3 = [1,
2, 3, 6, 8, 9, 12, 14]
Z4 = [6, 8]
e.
Salah
semua
24.
Manakah yang salah bila var
Size: array[1..150] of Real;
R: Real;
I: Integer;
a.
Size[I]
:= I;
b.
Size[R]
:= 15.5;
c.
Size[I]
:= R;
d.
Size[2]
:= I / R;
e.
Tidak
ada yang salah
Deklarasi variabel berikut
ini
digunakan untuk menjawab soal-soal berikut ini:
var A: Integer;
B: Boolean;
C: Integer;
D: Real;
E: Char;
F: Byte;
25.
Dengan deklarasi variabel di
atas, ekspresi manakah yang benar
dalam bahasa
Pascal?
a. B
:= A +
C > D;
b. C
:= A *
5 + D;
c.
if A
then C := C + A;
d. A
:= (B
+ C) * 7;
e.
semua
ekspresi salah
26.
Lihat kembali deklarasi di
atas. Ekspresi manakah yang
tidak sah dalam bahasa
Pascal?
a. C
:= A
and F;
b. D
:= A +
C / 10;
c. D
:= A +
C div 10;
d.
if E = F
then Writeln('Nilainya sama.');
e.
semua
ekspresi valid
27.
Lihat kembali deklarasi di
atas. Ekspresi mana yang dibenarkan
dalam bahasa
Pascal?
a. A
:= D
div 10;
b.
if B and
(F > 5) then Writeln('Ulangi!');
c. C
:= A /
10;
d. F
:=
Ord(E + E);
e.
Semua
ekspresi tidak benar
28.
Lihat kembali deklarasi di
atas. Ekspresi mana yang tidak
benar?
a.
Inc(E);
b.
Inc(D);
c. D
:= D +
1;
d. E
:=
Succ(E);
e.
semua
ekspresi salah
29.
Deklarasi mana yang salah
dalam bahasa Pascal?
a.
var A:
record
Nama, Alamat: String;
end;
b.
type
InfoRec = record
Nama, Alamat: String;
end;
var A: InfoRec;
c.
var A:
InfoRec = record
Nama, Alamat: String;
end;
d.
Semua
deklarasi di atas salah
e.
Semua
deklarasi di atas betul dan diperbolehkan
30.
Untuk variabel A di atas,
bagaimana cara mengakses variable
yang betul?
a.
A.'Nama'
:= 'Raden';
b.
A:Nama
:= 'Raden';
c.
A.Nama
:= 'Raden';
d.
Nama:A
:= 'Raden';
e.
Nama.A
:= 'Raden';
Yang
Tahu Jawabannya kasih tahu donk.... :)
Kamis, 04 Maret 2010
token dan ninja emblem gratis
Pertama kita harus buat akun " PAYPAL "
- Daftar di http://www.paypal.com/ . Jangan lupa diubah bahasanya menjadi bahasa indonesia agar mudah dipahami.
- Ada 3 pilihan : -pribadi, -Primer, -Bisnis. Cukup pilih yang PRIBADI dengan cara klik "memulai" di bawah kata "pribadi".
- Setelah itu isi formulirnya dengan benar.
- N.B : Hanya untuk 18 tahun ke atas. jadi, yang berumur 18 tahun kebawah... cukup isi tahun lahirnya dengan tahun "1990" .
- Bagi yang belum punya kartu kredit, hilangkan tanda cheklist dari kalimat : "Hubungkan kartu kredit saya, supaya saya dapat segera mulai berbelanja (dianjurkan)"
- setelah formulirnya di isi, klik SETUJU DAN BUAT REKENING
- setelah itu maka akan tampak gambar kartu kredit.
abaikan saja kalian klik aj langsung tulisan MASUK KE REKENING SAYA ( jika belum punya kartu kredit ) - . setelah nampak tabel n saldo paypal anda $0.00 USD kalian klik LOG OUT
- Periksa kotak masuk E-MAIL kamu apakah ada pesan untuk mengkonfirmaskan akun PAYPAL anda.
- setelah msk ke inbox email kamu
klik tulisan HUBUNGKAN KARTU ANDA. - setelah itu
nanti diminta pilih dua buah pertanyaan keamanan
pilih pertanyaannya lalu dijawab
caranya sama kayak bikin email. - lalu klik KIRIMKAN
- setelah keluar tampilan baru
kalian langsung klik MASUK KE REKENING SAYA
Sekarang masalah untuk dana PAYPAL :
- Klik gambar diatas atau klik disini.
- lalu klik CREATE A FREE ACCOUNT
dan isi formulirnya - setelah di isi formulirnya, klik CREATE FREE ACCOUNT
- lalu ikuti survey2 nya
dgn cara meng klik tulisan
WELCOME SURVEY $6.00
$4.00 - jd yg pertama kalian klik yg welcome survey $6.00 dl
lalu nnt akan keluar tampilan baru
lalu klik START SURVEY - ikuti petunjuknya
- lalu lakukan lg seperti hal yg sama seperti yang di atas
berikut nya kalian klik $4.00
dan seterusnya - utk mendapatkan $75
kalian harus refer friends
- caranya klik REFER FRIENDS
lalu d situ nanti ada tulisan
Your Direct Referring Link is below
d bawahnya ad tautan sperti punya saya : http://www.AWSurveys.com/HomeMain.cfm?RefID=gantolex - nanti kalian blok lalu kalian copy n paste kan d dinding2 grup atau dinding2 profil teman2 facebook kamu .
- setiap teman yang menerima undanganmu , kamu akan diberi $ 1.25
- jika dollar u udh mencapai $75
baru u bs redeem kan
caranya d bawah tabel jumlah dollar survey u
d situ ad tulisan REDEEM MONEY
d klik aj
lalu setelah muncul tampilan baru
d tulisan Redeem Amount ad pilihan
- $75
- $200
- $350
- $500
u pilih berapa jumlah dollar u skrg
lalu d tulisan Redeem Method ad pilihan uga
n u pilih yg PAYPAL
krn d ats td kan kita bikin PAYPAL
berarti uang nya nnt msk nya d REKENING PAYPAL kalian yg kalian bikin tadi
setelah itu klik REDEEM NOW
nnt kita d minta msk in alamat email yg kita pakai buat PAYPAL td
lalu masukin aj alamat email nya
lalu tekan ENTER
maka d situ kluar tulisan
supaya kita menunggu 5 hari
maka dollar2 tsb akan msk ke REKENING PAYPAL setelah 5 hari kemudian
setelah 5 hari kemudian
kalian cek saldo rekening kalian d PAYPAL
apakah bertambah
jika bertambah
maka langsung kalian buka NINJA SAGA
n langsung msk ke GET TO EMBLEM
d situ kita pilih
mau pake metode pembayaran apa
utk membeli emblemnya
tanpa ragu2
n penuh keyakinan
kalian pilih metode pembayaran PAYPAL
dan akhirnya kalian mendapatkan emblem
nah kan msh ad tu lbh dollarnya
$31
krn harga emblem cuma $19.00 ( dan pengiriman dipotong $25)
jd lebihnya kalian beli TOKEN!!!
Langganan:
Postingan (Atom)