Nazar part II

Alhamdulillah .. syukur ku ucapkan pada-Mu Ya Alloh ..
apa yang aku harapkan telah mnjadi kenyataan ..
mudah-mudahan kedepannya akan terus seperti ini,, amin
nazar aku bayarrrr …
alhamdulillah alhmdulillah ..

Advertisements

NAZAR semester ini :D

sekarang aku mau menginjak semester 3 tapiiii nilai semester 2 aja belom keluar semua. Alhamdulillah banget semester satu aku dapet IP 4,00 .. sumpah awalnya ga nyangka banget bakal dapet IP 4,00 dan awalnya juga ga punya target harus dapet segitu Cuma aku piker jalani aja sebisa aku berusaha ngasih yang terbaik. Flash back dulu ke semester satu dikit yaaaa hehehe
Waktu keluar nilai satu per satu hingga yang keluar baru 6 mata kuliah sedangkan 2 matkul lagi belom keluar,, itu juga bukan aku sendiri yang buka web nya soalnya waktu itu aku lagi ada acara dari kampus yang wajib mengikutinya (PPBN). Waktu lg PPBN, pacar aku ngsms, katanya nilai aku semuanya A dan dapet IP 4,00. Woowww sungguh mengejutkan dan pastinya sangat sangat bersyukur walaupun 2 matkul lagi belom keluar dan saat itu aku nazar jika nilai akhir aku sempurna, maka aku nazar puasa selama seminggu. Dan Alhamdulillah semester 1 dapet IP 4,00 tentunya aku bayar utang aku donk ihihihi sungguh aku bersyukur sekali pada-Mu ya Rabb …

Semester 2 ..
Nah setelah itu aku punya target dan mimpi kalo semester 2 ini harus dapet IPK 4,00. Dan sekarang aku lagi was2 nunggu nilai dari 2 matkul lagi untuk IP sementara yang aku peroleh adalah 4,00. Sumpah H2C banget sih nunggu nilai IKD soalnya aku yakin insyalloh aku dapet A buat matkul praktikum Alpro hehehe. Dan tentunya ga lupa juga aku punya nazar buat semester ini, jika aku dapet IPK 4,00, aku mau berbagi buat pengemis2 yang ada disekitar aku dengan memakai uang yang aku kumpulin sendiri walaupun nilainya dikit sih maklum belom kerja hehe dan juga puasa selama seminggu. Mudah2an Alloh ngabulin apa yang aku ingin. Ooh yaaaa… aku juga minta doa dari mamah moga 2 matkul yang belum keluar dapet nilai A duaduanya dan aku juga minta kalo nilai aku sempurna, aku pengen syukuran dimesjid deket rumah aku dan mamah pun menyetujuinya. Asyiikkkk .. mudah2an Alloh melancarkan dan meridhoi rencana dan keinginan ku karena hanya dengan kehendak dan ridho Alloh lah yang bisa mewujudkan semuanya. Amin …

miss u dear :*

Cepat Pulang
Cepat Kembali Jangan Pergi Lagi
Ingin Kau Tuk Cepat Pulang
Cepat Kembali Jangan Pergi Lagi…

Kepada siapa ku kan mengadu
Tuk tuturkan hasrat rindu
Duhai malam gelap yang menghampa
Hadirkan untuk ku dirinya

Dalam gelap teringat wajah mu

Aku rindu
Mungkin kau rasakan
Aku rindu

Mungkinkah malam ini kau ingat aku?
Ada getaran tuk yakin kan itu
Seolah tiada lagi esok lusa
Yang mampu menahan amarah rinduku

Dian Pelangi

Han Hyo Joo

menghitung nilai faktorial dengan c++

#include
#include
void main()
{
int bil, n;
long int hasil;
cout<> n;

hasil=1;
for(bil=n; bil>=1;bil–)
{
hasil=hasil*bil;
}
cout<<"n!= "<<hasil<<"\n";
getch();
}

Array bertipe record dalam pascal menghitung data buku

program DataBuku;
const Nmaks = 30;
type
Buku = record
KodeBuku : string[5];
Judul : string[27];
pengarang : string[27];
jumlah : integer;
end;
var
TabBuku : array[1..Nmaks] of buku;
i, jumlah : integer;
input : integer;
lagi : char;
begin
i := 0;
repeat
i := i + 1;
writeln(‘Pilihan Kode Buku’);
writeln(‘1. C001’);
writeln(‘2. C002’);
writeln(‘3. C005’);
writeln(‘4. N001’);
writeln(‘5. NF001’);
write(‘Pilihan Kode : ‘); readln(input);
writeln;
case input of
1 : begin
TabBuku[i].KodeBuku := ‘C001’;
TabBuku[i].Judul := ‘Fisika Dasar’;
TabBuku[i].Pengarang := ‘Suprayogi’;
TabBuku[i].jumlah := 3;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
2 : begin
TabBuku[i].KodeBuku := ‘C002’;
TabBuku[i].Judul := ‘Algoritma Pemrograman’;
TabBuku[i].Pengarang := ‘Rinaldi Munir’;
TabBuku[i].Jumlah := 10;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
3 : begin
TabBuku[i].KodeBuku := ‘C005’;
TabBuku[i].Judul := ‘Microsoft Word’;
TabBuku[i].Pengarang := ‘Aldi Kusumah’;
TabBuku[i].Jumlah := 5;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
4 : begin
TabBuku[i].KodeBuku := ‘N001’;
TabBuku[i].Judul := ‘Harry Potter’;
TabBuku[i].Pengarang := ‘J.K. Rowling’;
TabBuku[i].Jumlah := 8;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
5 : begin
TabBuku[i].KodeBuku := ‘NF001’;
TabBuku[i].Judul := ‘Aplikasi Iklan’;
TabBuku[i].Pengarang := ‘Yanuar Iman’;
TabBuku[i].Jumlah := 5;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
else writeln(‘Pilihan Kode Buku Tidak Ada !!’);
end;
write(‘Input Data Buku Lagi (y/t)? : ‘); readln(lagi);
until (input>5) or (lagi = ‘t’);
jumlah := i; writeln;
if i = Nmaks then
writeln(‘Tabel penuh, kagak muat lagiii ….’);
writeln(‘ OUTPUT STRUKTUR DATA BUKU ‘);
writeln(‘…………………………………………………….’);
writeln(‘Kode Buku Judul Pengarang Jumlah ‘);
writeln(‘…………………………………………………….’);
for i:=1 to Jumlah do
writeln(TabBuku[i].KodeBuku:7,TabBuku[i].Judul:20,TabBuku[i].Pengarang:17,TabBuku[i].Jumlah:13);
readln;
end.

outputnnya akan seperti dibawah ini :