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.... :)
Langganan:
Postingan (Atom)