program list; {untuk menampilkan list data mahasiswa}
uses wincrt;
type mahasiswa=record
nama: string;
NRP: string;
kelamin: string;
alamat : string;
end;
var data: mahasiswa;
begin
clrscr;
Minggu, 01 Januari 2012
Sabtu, 31 Desember 2011
Source Code Program Deret
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,n,un:integer;
sn,x,p:real;
begin
memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
n:=StrToInt(Edit3.Text);
x:=n;
for n:=1 to n do
begin
un:=b*(n-1)+a;
memo1.lines.Add(inttostr(un));
p:=un;
end;
sn:=0.5 * x * (a + p);
memo1.lines.Add('Jumlah Sn = '+floattostr(sn));
end;
var
a,b,n,un:integer;
sn,x,p:real;
begin
memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
n:=StrToInt(Edit3.Text);
x:=n;
for n:=1 to n do
begin
un:=b*(n-1)+a;
memo1.lines.Add(inttostr(un));
p:=un;
end;
sn:=0.5 * x * (a + p);
memo1.lines.Add('Jumlah Sn = '+floattostr(sn));
end;
PROGRAM BINTANG
program Star;
uses wincrt;
var a, b, c, n : integer;
begin
write('masukkan n :');readln(n);
writeln('*****Gambar Segitiga Terbaliknya*****');
for a:= n downto 1 do
begin
writeln('');
for c:=1 to n-a do
begin
write(' ');
end;
for b:=1 to a do
begin
write ('*');
end;
for b:= a-1 downto 1 do
begin
write ('*');
end;
end;
readln;
end.
uses wincrt;
var a, b, c, n : integer;
begin
write('masukkan n :');readln(n);
writeln('*****Gambar Segitiga Terbaliknya*****');
for a:= n downto 1 do
begin
writeln('');
for c:=1 to n-a do
begin
write(' ');
end;
for b:=1 to a do
begin
write ('*');
end;
for b:= a-1 downto 1 do
begin
write ('*');
end;
end;
readln;
end.
Source Code Program Matrik Invers
Program Matrik_Invers;
uses wincrt;
type data = array [1..10,1..10] of real;
var
matrikI,matrikII : data;
baris,kolom, pil : integer;
tambah:char;
procedure isi;
var i,j : integer;
begin
writeln('Tentukan Ordo Matrik I');
write('Masukan banyak baris matrik I = ');readln(baris);
write('Masukan banyak kolom matrik I = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*5,i+5);
readln(matrikI[i,j]);
end;
writeln('Tentukan Ordo Matrik II');
write('Masukan banyak baris matrik II = ');readln(baris);
write('Masukan banyak kolom matrik II = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*5,i+12);
readln(matrikII[i,j]);
end;
end;
procedure invers_matrik(m1:data);
var
i,j,l,k : integer;
begin
{Matrik SISI KANAN}
for j:=baris+1 to baris+baris do
begin
i:=j-baris;
m1[i,j]:=1;
end;
for j:=baris+1 to baris+baris do
begin
for i:=1 to baris do
if i<>j-baris then m1[i,j]:=0;
end;
{PROSES INVERS}
for i:=1 to baris do
begin
for j:=1 to baris+baris do
begin
if i<>j then m1[i,j]:=m1[i,j]/m1[i,i];
end;
for j:=1 to baris+baris do
begin
if i=j then m1[i,j]:=1;
end;
{PENJUMLAHAN KESATU BARIS ELEMENT}
for l:=1 to baris do
begin
if i<>l then
begin
for j:=i+1 to baris+baris do
begin
m1[l,j]:=m1[l,j]-(m1[i,j]*m1[l,i]);
end;
end;
end;
{PEMBUATAN NOL DISEKITAR MATRIKS KIRI}
for k:=1 to baris do
begin
if i<>k then
begin
m1[k,i]:=0;
end;
end;
end;
{MEMUNCULKAN INVERS}
writeln('Maka invers dari matrik adalah :');
for i:=1 to baris do
begin
for j:=baris+1 to baris+baris do
write (' ',m1[i,j]:0:2);
writeln;
end;
end;
begin
isi;
Invers_matrik (matrikI);
end.
Source Code Program Luas Segitiga
procedure segitiga (var a: integer; var b: integer);
var luas: real;
begin
luas:= a*b*0.5;
ShowMessage('luas segitiga adalah' + floattostr(luas));
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strToint(edit1.text);
b:=strToint(edit2.text);
begin
segitiga(a,b);
end;
end;
end.
Sabtu, 03 Desember 2011
CARA MENGGANTI BACKGROUND FACEBOOK
,,,Bosen dengan background facebookMu???? ne q kasih caranya gimana sich agar background facebook kita menarik atau sesuai dengan yang kita inginkan..
Langkah 1
Untuk mengubah background facebook agar lebih fresh dibandingkan sebelumnya,sebaiknya kalian menggunakan browser Mozilla Firefox. Kemudian arahkan ke alamat https://addons.mozilla.org/en-US/firefox/ untuk mencari add-on Stylish.
Langkah 2
Setelah kalian mendapatkan hasil pencarian untuk add-on Stylish, klik [Download Now]
Langkah 3
Akan muncul window baru untuk melakukan instalasi add-on stylish ini. Klik [Install Now]
Langkah 4
Tunggu beberapa saat hingga proses download selesai. Karena ukuran file add-on ini relatif kecil, maka waktu yang dibutuhkan juga tak akan lama.
Rabu, 02 November 2011
Senja Yang Manis
Senja yang Manis
Dalam temaram bayangan matahari yang mulai beranjak pulang, di suatu desa kecil , seorang wanita muda sedang bermandikan keringat, ia terlihat begitu letih menahan sakit, semua otot-ototnya mengejan, nafasnya terengah-engah. Berulang kali menarik nafas kemudian membuangnya kembali begitu berulang-ulang. Suasana tiba-tiba hening hingga keheningan itu pecah oleh suara tangisan bayi mungil yang cantik. Bayi itu adalah anak pertamanya sekaligus cucu pertama di keluarga itu. Seluruh keluarga menyambutnya dengan penuh suka cita. Tampak raut muka bahagia sang ayah yang tak bisa disembunyikannya. Demikianlah keluarga ini mendapatkan rahmat dari Tuhan yang sungguh luar biasa indah.
Bayi mungil itu telah menjadi sumber kebahagiaan seluruh anggota keluarga, namun hingga satu minggu kelahirannya, ia belum diberi nama. Ayahnya ingin memberi nama Kandi karena begitu tergila-gila dengan tokoh pewayangan yang bernama Sri Kandi, sementara kakek sang bayi ingin memberi nama Jaya, diambil dari namanya Parto Jayadi, dan neneknya juga tidak ingin ketinggalan, sang nenek ingin memberi nama cucunya itu Juminten. Sang nenek ingin cucunya kelak bisa seperti Juminten temannya yang dulu pernah menjadi kembang desa. Sementara ibu sang bayi terlihat bingung, karena masing-masing bersikeras dengan usulannya masing-masing.
“Kandi, Jaya, Juminten, Jaya, juminten, Kandi” ucapnya sambil membolak-balik nama-nama itu. Hingga diambillah kesepakatan bersama, mereka boleh memanggil sang bayi dengan nama-nama yang mereka pilih. Jika sang bayi bersama ayahnya, maka ia dipanggil Kandi, saat bersama sang kakek ia dipanggil Jaya, dan saat bersama neneknya, ia dipanggil Juminten.
Waktu terus berlalu tanpa ada seorangpun yang bisa menghentikannya. Bunga-bunga sudah sering mati lalu bersemi kembali sesuai proses alam. Si bayi kini sudah tumbuh jadi gadis kecil yang cantik dan cerdas. Ia sering mempertanyakan kenapa namanya bisa berbeda-beda panggilannya. Hingga terkadang teman-teman bermainnya bingung memanggilnya. Dan ia juga merasa aneh dengan nama-nama itu. Sementara teman-temannya memiliki nama-nama yang indah seperti bunga, melati, mawar, kenanga, dahlia. Tapi kenapa ia memiliki nama Kandi Jaya Juminten.
Tepat diusianya yang ke 6 tahun, orang tuanya ingin memasukkan ia ke sebuah sekolah di desa. Keributan pun terjadi lagi. Sang ayah ingin anaknya memakai nama Kandi saja, sementara kakek dan neneknya juga bersikukuh memakaikan nama pilihannya itu. Ibunya mengusulkan namanya dijadikan satu, meskipun terasa aneh. Gadis kecil itu menolaknya. Ia ingin mencari namanya sendiri.
Di atas parit kecil dia memandang langit yang bertemaram jingga keemasan, baru sekali itu ia melihat langit begitu indah bak lukisan. Burung-burung yang berterbangan pulang ke sarangnya. Pohon-pohon yang meliuk-liuk diterpa angin, membuat hatinya terasa damai dan tenteram, hingga kemudian…, aha….! Ia bangkit dan berlari menuju rumahnya.
“Ayah! Ibu! Kakek! Nenek!” ucapnya sambil berlari
Mendengar teriakan gadis itu merekapun terkejut, ada apa gerangan dengan anakku ucap ibunya dalam hati.
“Ayah, ibu, kakek,nenek, aku tidak akan memakai nama kalian lagi, aku sudah menemukan namaku sendiri”
Mereka saling pandang tak mengerti apa yang diucapkan gadis kecil itu. Kemudian ibunya mendekat.
“Apa maksud kamu nak?”
“Aku sudah menemukan namaku sendiri bu…”
Kemudian sang kakek bangkit
“Apa nama yang kakek berikan kurang bagus? Ja-Ya.., itu nama yang bagus”
“Juminten itu juga nama yang indah, lihatlah, wajahmu jadi secantik Juminten teman nenek” ucap sang nenek menimpali.
“Tidak-tidak, Kandi itu nama yang paling bagus nak…, ayah ingin kamu seperti Sri Kandi, wanita perkasa dan tidak lemah” Sang ayah pun tak mau kalah.
“Cukup!” ucap sang ibu
“Biarkan ia memilih” ucapnya lagi
“Aku ingin dipanggil Senja, Sen-Ja” ucap gadis kecil itu
“Sen….Ja..!” (hampir bersamaan mereka berucap)
Gadis itu hanya senyum-senyum melihat ayah-ibu dan kakek-neneknya terkejut. Dan sejak saat itu ia dipanggil Senja. Tak ada lagi Jaya, Juminten ataupun Kandi. Yang ada hanya Senja. Yah…, senja yang membuat hatinya begitu damai dan tenteram, senja yang mengantarkan ia terlahir ke dunia ini. Dan ialah Senja…, gadis kecil yang manis dan cerdas, yang berani mengambil sikap dan menyelesaikan masalahnya sendiri.
