Ini sebenarnya bukan judul blog. Tapi lebih ke isi hati gue sekarang.
Gue bener-bener ga mengerti sama perasaan gue sendiri. Padahal, gue udah berprinsip untuk ga boleh suka sama cowok, apalagi sama cowok yang bener-bener baik.
Sekarang gue beneran suka sama dia. Ini beda. Jauh berbeda sama apa yang gue rasain sebelumnya.
Gue bahkan ga bisa ngomong apa-apa kalo dia lewat atau kalo gue ketemu dia.
Gue hanya bisa diam dan diam.
Perasaan ini awalnya biasa aja. Tapi sejak dia sering chatting sama gue, gue ga bisa nahan lagi.
Mungkin dia mikir gue ganjen atau apalah..
Tapi jujur gue suka sama dia..
Atau mungkin gue sayang sama dia..
Gue bingung. Gue harus milih prinsip atau perasaan???
*Saya Suka Kakak* bukan cuma ungkapan atau sekedar kata-kata..
Itu bahkan bukan hanya sekedar judul sebuah post di blog..
Wednesday, April 29, 2009
Friday, April 24, 2009
5 Pertanyaan Saat Mengalami Depresi
1. Kenapa Saya Harus Dilahirkan Ke Dunia?
Saat seseorang mengalami keterpurukan, ia akan menyesali mengapa dia dilahirkan ke dunia ini. Tidak ada yang tahu jawaban dari pertanyaan ini. Karena saya dan anda tidak bisa memilih kapan akan dilahirkan atau tidak.
2. Mengapa Semua Ini Harus Terjadi?
It's called: DESTINY. Tidak ada seorang pun yang bisa mengubah takdir. Jalan hidup seseorang sudah ditentukan bahkan sebelum ia dilahirkan. Jangan menyangka dengan melakukan sesuatu yang spektakuler, lantas anda merasa bahwa anda sudah mampu mengatur jalan hidup anda. Anda salah besar.
3. Bisakah Saya Memutar Waktu Kembali Ke...?
"Tidak Bisa" merupakan jawaban pasti atas pertanyaan di atas. Pepatah mengatakan 'Waktu adalah Uang'. Pepatah ini tercipta karena orang tersebut sadar bahwa waktu tidak bisa diundur begitu saja saat kita menyadari telah berbuat kesalahan.
4. Mengapa Penyesalan Selalu Datang Terlambat?
Pertanyaan nomor 4 sangat berhubungan dengan pertanyaan sebelumnya. Penyesalan tidak bisa disebut -penyesalan- apabila datang lebih awal. Penyesalan itu tidak akan membuat anda selamanya terpuruk. Cobalah belajar dari penyesalan anda.
5. Mengapa Tuhan Membiarkan Hidupku Seperti Ini?
Ini dia hal terakhir yang bisa kita lakukan adalah menyalahkan Tuhan. Teriakan-teriakan seperti 'Tuhan Tidak Adil!' atau 'Tuhan Tidak Sayang Padaku!!' atau bahkan 'Tuhan Tidak Pernah Ada!' akan keluar dari mulut kita. Mungkin beberapa orang hanya akan memikirkannya saja.
Tuhan selalu tahu yang terbaik dalam hidup ini. Jangan pernah menyalahkan Tuhan atas apapun yang anda alami. Coba lakukan pendekatan dengan-Nya, dan memahami apa rencana-Nya.
God Bless Indonesia!
Saat seseorang mengalami keterpurukan, ia akan menyesali mengapa dia dilahirkan ke dunia ini. Tidak ada yang tahu jawaban dari pertanyaan ini. Karena saya dan anda tidak bisa memilih kapan akan dilahirkan atau tidak.
2. Mengapa Semua Ini Harus Terjadi?
It's called: DESTINY. Tidak ada seorang pun yang bisa mengubah takdir. Jalan hidup seseorang sudah ditentukan bahkan sebelum ia dilahirkan. Jangan menyangka dengan melakukan sesuatu yang spektakuler, lantas anda merasa bahwa anda sudah mampu mengatur jalan hidup anda. Anda salah besar.
3. Bisakah Saya Memutar Waktu Kembali Ke...?
"Tidak Bisa" merupakan jawaban pasti atas pertanyaan di atas. Pepatah mengatakan 'Waktu adalah Uang'. Pepatah ini tercipta karena orang tersebut sadar bahwa waktu tidak bisa diundur begitu saja saat kita menyadari telah berbuat kesalahan.
4. Mengapa Penyesalan Selalu Datang Terlambat?
Pertanyaan nomor 4 sangat berhubungan dengan pertanyaan sebelumnya. Penyesalan tidak bisa disebut -penyesalan- apabila datang lebih awal. Penyesalan itu tidak akan membuat anda selamanya terpuruk. Cobalah belajar dari penyesalan anda.
5. Mengapa Tuhan Membiarkan Hidupku Seperti Ini?
Ini dia hal terakhir yang bisa kita lakukan adalah menyalahkan Tuhan. Teriakan-teriakan seperti 'Tuhan Tidak Adil!' atau 'Tuhan Tidak Sayang Padaku!!' atau bahkan 'Tuhan Tidak Pernah Ada!' akan keluar dari mulut kita. Mungkin beberapa orang hanya akan memikirkannya saja.
Tuhan selalu tahu yang terbaik dalam hidup ini. Jangan pernah menyalahkan Tuhan atas apapun yang anda alami. Coba lakukan pendekatan dengan-Nya, dan memahami apa rencana-Nya.
God Bless Indonesia!
Wednesday, April 22, 2009
Role of Young Generation in Supporting Revitalization of Agriculture
Thank you for the opportunity that given to me. First of all, I want to introduce my self. My name is Erlinel Manuel and now, I want to tell you about my speech named : Role of Young Generation in supporting Revitalization of Agriculture.
Countries are in equator geographically have tropical zone and have so many resources. One of them is Indonesia. Indonesia is a country with a very large abundant potential land and sea. Agriculture is one of potential that can not be used optimally by Indonesian's people.
The condition of agriculture in Indonesia since 1945 tends to run in place. Although it can not be denied that once upon a time it can be used as a pride. For axample, success of the rice self-sufficient in 1984 becomes a beautiful record.
Role that can be taken by students must be tailored to the government program in this case the Ministry of Agriculture to create a constructive sinergitas. Department of Agriculture program that a blue print in the Revitalization of Agriculture is to increase food security, agriculture and agro-based prosperousity farmers. From there students can provide a significant role in order to help speed of carrying out that programs.
The overall role that can be taken by the students, represent the contribution of the opportunities that exist, that can be done by the students. Contribution of students can not be detached from the role of schools and universities to the development of agriculture in Indonesia.
Indonesia is a country that is fortunate given the wealth of nature form the abundant agricultural potential. And almost most of the population in Indonesia is located in rural areas that have as main as farmers, farm laborers, fishermen and others. The welfare of farmers is still low, this is indicated by the small farmer's exchange rate as an indicator of welfare of farmers. Development in the agricultural sector is an effort that must be made by the nation because of development in the agricultural sector can be problems such as poverty, improve standard of living and provide food for all the people in Indonesia.
Young generation as actors as the young intellectual who has access to a large enough down (the community) and the top (government) should be able to play a role in the process of agricultural development. young people is claimed to be able to solve the problem with the science of agriculture that has, to help with the acceleration of agricultural development assistance to farmers, building image of agriculture and agricultural advocacy-advocacy that can help to supply farmers. With the roles that agriculture will rise from the hands of the younger generation reformer supporting agriculture indonesia.
It is they who will get the results they dreamed of when their heart is not rattle anymore. Ideals to the younger generation to support fundamental changes in the field of agriculture may not be fast because the problems faced by agriculture, a proper young generation should be able to complete the problems that faced with a broad knowledge and intellectual.
Keep fighting for agriculture Indonesia!
Countries are in equator geographically have tropical zone and have so many resources. One of them is Indonesia. Indonesia is a country with a very large abundant potential land and sea. Agriculture is one of potential that can not be used optimally by Indonesian's people.
The condition of agriculture in Indonesia since 1945 tends to run in place. Although it can not be denied that once upon a time it can be used as a pride. For axample, success of the rice self-sufficient in 1984 becomes a beautiful record.
Role that can be taken by students must be tailored to the government program in this case the Ministry of Agriculture to create a constructive sinergitas. Department of Agriculture program that a blue print in the Revitalization of Agriculture is to increase food security, agriculture and agro-based prosperousity farmers. From there students can provide a significant role in order to help speed of carrying out that programs.
The overall role that can be taken by the students, represent the contribution of the opportunities that exist, that can be done by the students. Contribution of students can not be detached from the role of schools and universities to the development of agriculture in Indonesia.
Indonesia is a country that is fortunate given the wealth of nature form the abundant agricultural potential. And almost most of the population in Indonesia is located in rural areas that have as main as farmers, farm laborers, fishermen and others. The welfare of farmers is still low, this is indicated by the small farmer's exchange rate as an indicator of welfare of farmers. Development in the agricultural sector is an effort that must be made by the nation because of development in the agricultural sector can be problems such as poverty, improve standard of living and provide food for all the people in Indonesia.
Young generation as actors as the young intellectual who has access to a large enough down (the community) and the top (government) should be able to play a role in the process of agricultural development. young people is claimed to be able to solve the problem with the science of agriculture that has, to help with the acceleration of agricultural development assistance to farmers, building image of agriculture and agricultural advocacy-advocacy that can help to supply farmers. With the roles that agriculture will rise from the hands of the younger generation reformer supporting agriculture indonesia.
It is they who will get the results they dreamed of when their heart is not rattle anymore. Ideals to the younger generation to support fundamental changes in the field of agriculture may not be fast because the problems faced by agriculture, a proper young generation should be able to complete the problems that faced with a broad knowledge and intellectual.
Keep fighting for agriculture Indonesia!
Monday, April 20, 2009
Soal-Soal Latihan Matematika
Ini soal-soal berurutan materinya. Jadi, kalo mau ngerjain, materinya tetep berurutan ya...
1. integral dari sin 3x cos 5x dx = (1/4).cos 2x - (1/16). cos 8x + c
2. integral dari [dx/(1-sin x)] = tg x + sec x + c
3. integral dari (x^4-x^2)/(x^2 + 1) = (1/3).x^3 - 2x + 2 arc tg x + c
4. integral dari arc tg x dx = 1/2 ln |1+x^2| + c
5. integral dari arc sin 2x dx = x.arc sin x - (1/2).akar dari 1-4x^2 + c
6. integral dari x^4.e^2x dx = ...?
7. integral dari dx/(x^2.akar dari 4+x^2) = ...?
8. (x+1)/(x^2-4x-12) = ...?
9. x/((x-3)^2) = ...?
10. (x^3+x^2+x+3)/((x^2+1)(x^2+3)) = (1/2).ln |x^2+3| + c
11. integral dari 0 sampai phi/4 dari (cos 2x - 1)/(cos 2x + 1) = ...?
12. integral dari 0 sampai 1 dari x.(1-akar x)^2 dx = ...?
ini dia 12 soal yang sebenarnya udah pernah dikasih. buat latihan doang. met belajar yahh!
Ringkasan Catatan Matematika Semester II
Ini adalah catatan matematika yang ngga sempat kalian semua catet. Berhubung kekuatan mata dan kekebalan jari yang terbatas, maka yang gue tulis cuma yang paling penting. Setelah itu, post berikutnya adalah contoh soal beserta jawaban, tapi tanpa langkah-langkah biar kalian bisa belajar.
(20.02.09)
1. sin x cos y = 1/2[sin(x-y)+sin(x+y)]
2. sin x sin y = 1/2[cos(x-y)-cos(x+y)]
3. cos x cos y = 1/2[cos(x-y)+cos(x+y)]
4. [dx/(a^2+x^2)] = [((1/a).arc tg (x/a))+c]
(27.02.09)
Pandang u dan v adalah fungsi diferensiable dari x. maka:
d(uv) = u dv+v du
u dv = d(uv) - v du
integral dari (u dv) = integral dari (d(uv) - v du)
integral (u dv) = uv - integral (v du)
integral dengan bentuk ini disebut integral bagian (parsial).
ln x (logaritma), (e^x).sin x, (x^2).cos x, x^2.e^x, arc sin x (signometri).
(13.03.09)
integral | substitusi
akar(a^2)-(b^2).(x^2) | x = (a/b).sin z
akar(a^2)+(b^2).(x^2) | x = (a/b).tg x
akar(b^2).(x^2)-(a^2) | x = (a/b).sec z
(20.03.09)
Integral Fungsi Rasional
f(x) = f(x)/g(x) di mana f(x) dan g(x) polinom (suku banyak) disebut suatu pecahan rasional. Jika derajat f(x) lebih kecil dari g(x), f(x) disebut sebenarnya. dalam hal lain disebut fungsi pecahan rasional tidak sebenarnya.
Kasus I : Faktor-faktor linier yang berbeda-beda.
g(x) = (a1x+b1)(a2x+b2)...(anx+bn)
f(x) = [a1/(a1x+b1)] + [a2/(a2x+b2)] + ... + [an/(anx+bn)]
Kasus II : Faktor-faktor linier berulang.
Pada g(x), terdapat (ax+b) berulang-ulang. misalnya:
g(x) = (ax+b)^m, maka:
f(x) = [a1/(a1x+b)] + [a2/((a2x+b)^2)] + ... + [an/((anx+b)^m)]
Kasus III : Faktor kuadrat berbeda
g(x) = (a1.x^2+b1x+c1)(a2.x^2+b2x+c2)...(an.x^2+bnx+cn)
maka:
f(x) = [(a1x+b1)/(a1.x^2+b1x+c1)] + [(a2x+b2)/(a2.x^2+b2x+c2)] + ... + [(anx+bn)/(an.x^2+bnx+cn)]
(03.04.09)
Integral Tertentu
integral (f(x)dx) dari a sampai b (cara nulis: lambang integral, a di bawahnya dan b di atasnya) disebut integral tertentu dari f(x) terhadap x dari x=a sampai x=b. f(x) disebut integrand, a disebut batas bawah, dan b disebut batas atas. bila f(x) kontinu pada a<=x<=b dan F(x) suatu integral tertentu dari f(x). maka:
integral (f(x)dx) dari a sampai b = F(x) ](a sampai b) = F(b) - F(a)
Friday, April 17, 2009
Laporan Pendahuluan (Pointer)
teman-temanku yang sudah mulai rewel soal LP..
mav yahh atas keterlambatannya..
hhe.
ini dia jawaban LP pascal.
1. Apa yang kamu ketahui tentang tipe data pointer?
>>Tipe data pointer adalah tipe data khusus yang bersifat dinamis.
2. Sebutkan bentuk umum dari pointer!
>> type identifier : ^tipedata
3. Buatlah contoh program dengan menggunakan pointer!
>>*jawabannya lumayan panjang lhooo.. selamat mengetikk...*
uses crt;
type ptr =^data;
data = record
isi : string;
pre,
next : ptr;
end;
var baru,posisi,awal,akhir : ptr;
procedure tambah_belakang (elemen : string);
begin
new (baru);
baru^.isi :=elemen;
baru^.pre :=nil;
baru^.next :=nil;
if awal = nil then awal :=baru
else
begin
akhir^.next :=baru;
baru^.pre := akhir;
end;
akhir := baru;
akhir^.next :=nil;
end;
procedure baca_depan;
begin
posisi :=awal;
repeat
write (posisi^.isi);
posisi := posisi^.next;
until posisi = nil;
end;
procedure baca_belakang;
begin
posisi :=akhir;
repeat
write (posisi^.isi);
posisi :=posisi^.pre;
until posisi = nil;
end;
begin
clrscr;
tambah_belakang ('a');
tambah_belakang ('b');
tambah_belakang ('c');
tambah_belakang ('d');
writeln ('JIKA DIBACA DARI DEPAN ADALAH');
baca_depan;
readln;
writeln ('JIKA DIBACA DARI BELAKANG ADALAH');
baca_belakang;
readln;
end.
oia, soal nomor dua gue ga yakin bener apa ga soalnya, kalo emang soalnya salah, berarti jawabannya salah. Kalo soalnya begitu, jawabannya udah bener..
Thank You..
mav yahh atas keterlambatannya..
hhe.
ini dia jawaban LP pascal.
1. Apa yang kamu ketahui tentang tipe data pointer?
>>Tipe data pointer adalah tipe data khusus yang bersifat dinamis.
2. Sebutkan bentuk umum dari pointer!
>> type identifier : ^tipedata
3. Buatlah contoh program dengan menggunakan pointer!
>>*jawabannya lumayan panjang lhooo.. selamat mengetikk...*
uses crt;
type ptr =^data;
data = record
isi : string;
pre,
next : ptr;
end;
var baru,posisi,awal,akhir : ptr;
procedure tambah_belakang (elemen : string);
begin
new (baru);
baru^.isi :=elemen;
baru^.pre :=nil;
baru^.next :=nil;
if awal = nil then awal :=baru
else
begin
akhir^.next :=baru;
baru^.pre := akhir;
end;
akhir := baru;
akhir^.next :=nil;
end;
procedure baca_depan;
begin
posisi :=awal;
repeat
write (posisi^.isi);
posisi := posisi^.next;
until posisi = nil;
end;
procedure baca_belakang;
begin
posisi :=akhir;
repeat
write (posisi^.isi);
posisi :=posisi^.pre;
until posisi = nil;
end;
begin
clrscr;
tambah_belakang ('a');
tambah_belakang ('b');
tambah_belakang ('c');
tambah_belakang ('d');
writeln ('JIKA DIBACA DARI DEPAN ADALAH');
baca_depan;
readln;
writeln ('JIKA DIBACA DARI BELAKANG ADALAH');
baca_belakang;
readln;
end.
oia, soal nomor dua gue ga yakin bener apa ga soalnya, kalo emang soalnya salah, berarti jawabannya salah. Kalo soalnya begitu, jawabannya udah bener..
Thank You..
Thursday, April 9, 2009
LAPORAN PENDAHULUAN LATEX
1. Apa arti fungsi dari documentclass:
a. 10 pt : untuk memilih ukuran font yang akan digunakan pada seluruh dokumen.
b. a4paper : untuk memilih kertas yang digunakan dalam hal ini yaitu A4.
c. twocolumn : untuk membuat seluruh dokumen menjadi dalam bentuk dua kolom.
2. Apa kegunaan dari:
a. \\ : digunakan pada saat kita ingin membuat jarak dengan panjang tertentu antara dua baris (diletakkan di akhir baris).
b. % : untuk menuliskan komentar.
3. Buatlah struktur dokumen untuk membuat tabel!
\begin {tabular} {|c|l|r|}
\hline
Satu & 1 & I\\
\hline
Dua & 2 & II\\
\hline
end {tabular}
a. 10 pt : untuk memilih ukuran font yang akan digunakan pada seluruh dokumen.
b. a4paper : untuk memilih kertas yang digunakan dalam hal ini yaitu A4.
c. twocolumn : untuk membuat seluruh dokumen menjadi dalam bentuk dua kolom.
2. Apa kegunaan dari:
a. \\ : digunakan pada saat kita ingin membuat jarak dengan panjang tertentu antara dua baris (diletakkan di akhir baris).
b. % : untuk menuliskan komentar.
3. Buatlah struktur dokumen untuk membuat tabel!
\begin {tabular} {|c|l|r|}
\hline
Satu & 1 & I\\
\hline
Dua & 2 & II\\
\hline
end {tabular}
Wednesday, April 8, 2009
LAPORAN PENDAHULUAN (FILE)
1. Sebutkan macam-macam pendekarasian file pada Pascal!
a. File Bertipe
b. File Teks
c. File Tak Bertipe
2. Apa yang dimaksud dengan Binary File?
Binary fila adalah sebuah file dalam komputer yang berisi semua jenis data. Binary file yang hanya berisi data tekstual disebut teks file. Secara struktur, Binary file biasanya diartikan sebagai urutan byte, yang berarti angka biner (bit) yang juga dikelompokkan seperdelapan kertas.
3. Contoh program File pada pascal!
uses crt;
var
nama_file : string [14];
variabel_file : text;
baris : string [80];
begin
clrscr;
writeln ('Membaca File Text');
write ('Nama File: ');
readln (nama_file);
assign (variabel_file,nama_file);
reset (variabel_file);
while not eof (variabel_file) do
begin
readln (variabel_file,baris);
writeln (baris);
end;
close (variabel_file);
readln;
end.
a. File Bertipe
b. File Teks
c. File Tak Bertipe
2. Apa yang dimaksud dengan Binary File?
Binary fila adalah sebuah file dalam komputer yang berisi semua jenis data. Binary file yang hanya berisi data tekstual disebut teks file. Secara struktur, Binary file biasanya diartikan sebagai urutan byte, yang berarti angka biner (bit) yang juga dikelompokkan seperdelapan kertas.
3. Contoh program File pada pascal!
uses crt;
var
nama_file : string [14];
variabel_file : text;
baris : string [80];
begin
clrscr;
writeln ('Membaca File Text');
write ('Nama File: ');
readln (nama_file);
assign (variabel_file,nama_file);
reset (variabel_file);
while not eof (variabel_file) do
begin
readln (variabel_file,baris);
writeln (baris);
end;
close (variabel_file);
readln;
end.
LAPORAN AKHIR PASCAL (FUNCTION & PROCEDURE)
1. Membuat program faktorial!
uses crt;
function fak (var a: integer):integer;
begin
fak := a-1;
end;
var tot,x : integer;
begin
clrscr;
writeln ('Masukkan Angka');
readln (x);
tot :=x;
while x>1 do
begin
tot:=tot*fak(x);
x:=x-1;
end;
writeln (tot);
readln;
end.
2. Buat pemrograman untuk mencari bilangan terbesar!
uses crt;
function besar (a,b:integer):integer;
begin
if a>b then
besar:=a
else
besar:=b;
end;
var nil1,nil2:integer;
begin
write ('Bilangan Pertama: '); readln (nil1);
write ('Bilangan Kedua : '); readln (nil2);
writeln ('Bilangan Terbesar Adalah ',besar(nil1,nil2):2);
readln;
end.
uses crt;
function fak (var a: integer):integer;
begin
fak := a-1;
end;
var tot,x : integer;
begin
clrscr;
writeln ('Masukkan Angka');
readln (x);
tot :=x;
while x>1 do
begin
tot:=tot*fak(x);
x:=x-1;
end;
writeln (tot);
readln;
end.
2. Buat pemrograman untuk mencari bilangan terbesar!
uses crt;
function besar (a,b:integer):integer;
begin
if a>b then
besar:=a
else
besar:=b;
end;
var nil1,nil2:integer;
begin
write ('Bilangan Pertama: '); readln (nil1);
write ('Bilangan Kedua : '); readln (nil2);
writeln ('Bilangan Terbesar Adalah ',besar(nil1,nil2):2);
readln;
end.
Tuesday, April 7, 2009
Jauh Sebelum Hari Ini
Jauh sebelum hari ini, aku tak pernah menyesali hidupku.
Aku tak pernah menyesal telah dilahirkan
Dan aku tak pernah menyesal bisa menjalani setiap detik dari hembusan nafasku.
Jauh sebelum hari ini, aku tak pernah merasakan kesedihan dan kesepian.
Selalu ada yang mendatangiku untuk sekedar bercengkrama atau bersenda gurau.
Jauh sebelum hari ini, aku tidak berharap bisa menjadi orang lain yang lebih kaya atau terkenal.
Ataupun lebih cantik dan lebih pintar.
Jauh sebelum hari ini, aku mensyukuri semuanya. Segala kekuranganku, segala kelebihanku.
Segala yang aku punya maupun yang tidak akan pernah bisa untuk aku miliki.
Aku berterimaksih atas setiap hembusan nafas dari-Mu, aku mengucap syukur saat Kau memberiku hukuman, aku tersenyum saat Kau melindungiku.
Jauh sebelum hari ini, Tuhan…
Aku punya banyak mimpi yang aku percaya suatu saat akan kabulkan. Aku punya banyak cita-cita yang aku percaya akan Kau wujudkan. Dan aku punya banyak permintaan yang aku percaya akan Kau jadikan dalam hidupku.
Tapi itu jauh sebelum hari ini. Jauh sebelum aku berhenti mengandalkanMu. Jauh sebelum aku mengagungkan kekuatanku sendiri. Jauh sebelum aku membangkang di hadapanMu.
Aku tak pernah membayangkan semuanya akan menjadi seperti ini. Padahal, dalam benakku tak pernah terlintas untuk meninggalkanMu, Tuhan Yesus…
Aku tak pernah menyesal telah dilahirkan
Dan aku tak pernah menyesal bisa menjalani setiap detik dari hembusan nafasku.
Jauh sebelum hari ini, aku tak pernah merasakan kesedihan dan kesepian.
Selalu ada yang mendatangiku untuk sekedar bercengkrama atau bersenda gurau.
Jauh sebelum hari ini, aku tidak berharap bisa menjadi orang lain yang lebih kaya atau terkenal.
Ataupun lebih cantik dan lebih pintar.
Jauh sebelum hari ini, aku mensyukuri semuanya. Segala kekuranganku, segala kelebihanku.
Segala yang aku punya maupun yang tidak akan pernah bisa untuk aku miliki.
Aku berterimaksih atas setiap hembusan nafas dari-Mu, aku mengucap syukur saat Kau memberiku hukuman, aku tersenyum saat Kau melindungiku.
Jauh sebelum hari ini, Tuhan…
Aku punya banyak mimpi yang aku percaya suatu saat akan kabulkan. Aku punya banyak cita-cita yang aku percaya akan Kau wujudkan. Dan aku punya banyak permintaan yang aku percaya akan Kau jadikan dalam hidupku.
Tapi itu jauh sebelum hari ini. Jauh sebelum aku berhenti mengandalkanMu. Jauh sebelum aku mengagungkan kekuatanku sendiri. Jauh sebelum aku membangkang di hadapanMu.
Aku tak pernah membayangkan semuanya akan menjadi seperti ini. Padahal, dalam benakku tak pernah terlintas untuk meninggalkanMu, Tuhan Yesus…
Saturday, April 4, 2009
CODING LAPORAN AKHIR PASCAL (RECORD)
buat temen-temen gue yang ngerasa coding yang gue kasih kemarin ga jalan, ini dia coding aslinya:
uses crt;
type
recPegawai=record
nama,kode,alamat,gaji:string;
end;
var
pegawai:recPegawai;
begin
with pegawai do
begin
clrscr;
kode:=’10108833’;
nama:=’fissheal’;
alamat:=’depok’;
gaji:=’10000000’;
writeln (‘Kode Pegawai : ’,pegawai.kode);
writeln;
writeln (‘Nama Pegawai : ’,pegawai.nama);
writeln;
writeln (‘Alamat Pegawai : ’,pegawai.alamat);
writeln;
writeln (’Gaji Pegawai : ’,pegawai.gaji);
end;
readln;
end.
sebenarnya secara teknis, gue cuman lupa mencantumkan 'end;' di bawah daftar fieldnya (nama,gaji,kode,alamat:string;). Jadi kalo lo pada nge-run program ini, bakal keluar identifier expected. jadi, gue cuma lupa naroh 'end;' ajja. hhe. mav yahh semua.
uses crt;
type
recPegawai=record
nama,kode,alamat,gaji:string;
end;
var
pegawai:recPegawai;
begin
with pegawai do
begin
clrscr;
kode:=’10108833’;
nama:=’fissheal’;
alamat:=’depok’;
gaji:=’10000000’;
writeln (‘Kode Pegawai : ’,pegawai.kode);
writeln;
writeln (‘Nama Pegawai : ’,pegawai.nama);
writeln;
writeln (‘Alamat Pegawai : ’,pegawai.alamat);
writeln;
writeln (’Gaji Pegawai : ’,pegawai.gaji);
end;
readln;
end.
sebenarnya secara teknis, gue cuman lupa mencantumkan 'end;' di bawah daftar fieldnya (nama,gaji,kode,alamat:string;). Jadi kalo lo pada nge-run program ini, bakal keluar identifier expected. jadi, gue cuma lupa naroh 'end;' ajja. hhe. mav yahh semua.
Friday, April 3, 2009
LAPORAN PENDAHULUAN PASCAL (060409)
1.Apa yang dimaksud dengan procedure dan function?
Procedure dan function adalah suatu program yang terpisah dalam blok sendiri yang berfungsi sebagai modul program yang merupakan sebuah program kecil untuk memproses sebagian dari program utama.
2.Berikan BU procedure dan function!
Procedure:
Procedure nama;
atau
Procedure nama (formal parameter : jenis);
Function:
Function pengenal parameter : tipe pengenal ;
3. Contoh program!
Function:
program contoh_function;
uses wincrt;
var n:integer;
function jumgan(var y:integer):integer;
xx:integer;
begin
:=0;
while y>=1 do
begin
xx:=xx+y;
y:=y-2;
end;
jumgan:=xx;
end;
begin
write('masukkan bilangan bulat = ');readln(n);
if (n mod 2 = 0) then n:=n-1;
writeln(' JUMLAH GANJIL DARI ',n:5,' adalah ', jumgan(n):8);
end.
Procedure:
uses wincrt;
procedure ubah(var a:integer);
begin
a := 10;
writeln('ubah menjadi=',a);
end;
{main program}
var bil : integer;
begin
bil := 1;
writeln('bil sebelum=',bil);
ubah(bil);
writeln('bil sesudah=',bil);
end.
Procedure dan function adalah suatu program yang terpisah dalam blok sendiri yang berfungsi sebagai modul program yang merupakan sebuah program kecil untuk memproses sebagian dari program utama.
2.Berikan BU procedure dan function!
Procedure:
Procedure nama;
atau
Procedure nama (formal parameter : jenis);
Function:
Function pengenal parameter : tipe pengenal ;
3. Contoh program!
Function:
program contoh_function;
uses wincrt;
var n:integer;
function jumgan(var y:integer):integer;
xx:integer;
begin
:=0;
while y>=1 do
begin
xx:=xx+y;
y:=y-2;
end;
jumgan:=xx;
end;
begin
write('masukkan bilangan bulat = ');readln(n);
if (n mod 2 = 0) then n:=n-1;
writeln(' JUMLAH GANJIL DARI ',n:5,' adalah ', jumgan(n):8);
end.
Procedure:
uses wincrt;
procedure ubah(var a:integer);
begin
a := 10;
writeln('ubah menjadi=',a);
end;
{main program}
var bil : integer;
begin
bil := 1;
writeln('bil sebelum=',bil);
ubah(bil);
writeln('bil sesudah=',bil);
end.
Subscribe to:
Posts (Atom)