Ini cuma salah satu program sederhana yg berisi array untuk memenuhi tugas Pemrograman Dasar.
so check this out..
kritik dan saran komen aja.
========================================================
uses wincrt;
type larik=array [1..20] of string;
larik2=array [1..20] of longint;
var brg,alamat:larik;
harga:larik2;
i,n,posisi:byte;
ketemu:boolean;
cari:string;
lagi:char;
stop:string;
total:longint;
rata:real;
max,min:longint;
label ulang;
begin
ulang:
begin
writeln('----------------------------');
writeln('TUGAS ALPRO II -- DATA ARRAY' );
writeln('----------------------------');
writeln('Jika ingin berhenti, masukkan "end" pada nama'); writeln('dan "0" pada harga. Tanpa tanda petik');
repeat
begin
inc(n);
writeln; write('Masukan nama brg ke ',n,' ===> ');
readln(brg[n]);
write('Masukkan harganya ===> '); readln(harga[n]); total := total + harga [n];
end
until (brg[n]='end') and (harga[n]=0);
dec(n);
clrscr;
writeln('TUGAS ALPRO II -- DATA ARRAY' );
writeln(' no nama harga');
writeln('------------------------------------');
for i:=1 to n do writeln(i:3,' | ', brg[i]:10,' | ', harga[i]:8);
writeln('------------------------------------');
lagi :='y';;
write('mau mencari barang di dalam tabel? <y/t> ');readln(lagi);
while lagi='y' do
begin
writeln;
write('barang yang di cari? '); readln(cari);
ketemu:=false;
for i:=1 to n do
if brg[i]=cari then
begin ketemu:=true; posisi:=i; end;
writeln;
if ketemu then writeln(cari, ' ada dalam tabel pada posisi ke ', posisi) else
writeln ('Maaf ',cari,' tidak ada di dalam tabel');
writeln;write('Mau mencari nama yang lain? <y/t> ');readln(lagi);
end;
total := total;
rata:= total/n;
max:=harga [1]; min:= harga [1];
for i:=2 to n do
begin
if harga [i]>max then begin max:=harga [i];end;
if harga [i]<min then begin min:=harga [i];end;
end;
writeln; writeln('Total harga dari ',n,' barang adalah ',total);
writeln('Harga rata2 dari ',n,' barang adalah ', rata:4:2);
writeln('Harga tertinggi adalah ',max);
writeln('Harga terendah adalah ',min);
writeln; writeln;
write('Mau hentikan program atau teruskan input data? <henti/terus> '); readln(stop);
if stop='henti' then halt
else if stop='terus' then begin clrscr;goto ulang;end;
end;
end.
========================================================
Tugas PemDas - Array
Jumat, Mei 20, 2011 | Labels: tugas pemdas | 0 Comments
Tugas Pemrograman Dasar
Ya, sesuai judul.
Saya cuma mau upload tugas kuliah pemrograman dasar yang diampu Pak Afwan Anggara,S.Kom.
Sebetulnya tadi saya mau upload SS program ini jg, tp kgk sempet, ya sudahlah.. kapan-kapan aja ya.
Ini saya kasih link DL program + source codenya. Tapi y harap maklum, ini program cm sederhana, sederhana bgt.
Program ini berisi 2 menu, yg pertama buat memberi nilai angka suatu IPK dan yg kedua buat menentukan kuadran dari suatu titik.
this is it....
buat DL dari 4shared klik disini.
buat DL dari ziddu klik disini.
Jumat, April 22, 2011 | Labels: tugas pemdas | 0 Comments
WiFi vs WiMax - Perbedaan dari kedua teknologi canggih wireless
Apa sih yg dimaksud Wi-Fi?
Buat yg sering ke cafe atau food court cuma buat hotspotan gretongan pasti tau. Ya, Wi-Fi lebih dikenal oleh orang awam dengan hotspot. Tapi Wi-Fi sendiri adalah singkatan dari Wireless Fidelity. Terus standarnya adalah IEEE 802.11 (kalau helm kan SNI :p itupun cuma buat Indo, yg ini internasional coy). Ada yang 802.11a, 802.11b, 802.11g. Biasanya yang dipakai 802.11g yang kecepatan transfernya nyampe 54MB/s pakai frekuensi 2,4 MHz atau frekuensi radio.
Kalau WiMAX apaan?
WiMAX ni teknologi baru, sebetulnya gak baru2 juga, udah dari 2008 kalo g salah. Sekarangpun masih dalam tahap trial di beberapa negara (Indonesia masuk yg mana y? Trial atau udah jalan?). WiMAX sendiri merupakan singkatan dari Worldwide Interoperability for Microwave Access. Mungkin bisa dibilang pengembangan dari Wi-Fi kali ya, soalnya ni kecepatannya bisa nyampe 75MB/s dan pakai frekuensi 20 MHz. Nah yang ini standarnya 802.16.
Apa lagi yang beda?
Wi-Fi jarak akses cm nyampe 100m tapi kalo WiMAX bisa sampai 50KM. Denger2 sih, ITB udah nyoba WiMAX tahun 2009. Tau deh bner atau nggak, kalo ane sih khusnudzon aja, kan ITB tuh salah satu kampus terkemuka (bukan promosi).
Wi-Fi jg sering disebut Wireless Local Area Network(WLAN) nah kalo si WiMAX mungkin bisa disebut Wireless Metropolitan Area Network, itu berdasarkan pada jarak jangkaunya.
Satu lagi, kata pak dosen, WiMAX itu tidak langsung ditangkap oleh komputer/laptop, tapi dari pemancar (base station) terus ke gedung2, misalnya kelurahan, sekolahan, dll. Nah abis itu, baru tu gedung yg nyebarin keneksinya. Sedangkan kalo Wi-Fi kan dari pemancar (access point) langsung ke komputer. Kata pak dosen lagi nih, WiMAX dipakai untuk meng-cover daerah2 yg belum masuk jaringan internet.
credit http://archive.kaskus.us/thread/1813115
Kamis, Maret 24, 2011 | Labels: tugas PTI | 0 Comments
Wang Jia Yun - The Blown-Up Doll
Wang Jia Yun.
Ini orang apa boneka yah??
Biodata (profil):
Nama panggilan: Chia-Yun.
Nama lengkap: Wang Jia Yun 王嘉韻.
Kota: Kanton, Cina (tinggal saat ini).
tanggal lahir: 18 juni 1993.
Tempat lahir :City Kowloon, HongKong .Daerah Administratif Khusus.
Tinggi: 164 cm.
Berat: 42 kg.
Warna kesukaan: putih.
Kuliah: di salah satu kampus di Shenzen, China.
Dengan mata belok-bulat besar, wajah oval tajam, dagu runcing, tubuh ramping sexy, kaki panjang, kulit putih bersih dan terlihat seperti plastik dari beberapa angle, mengingatkan kita pada salah satu dari anime cantik Jepang, Yuna dalam Final Fantasy ato malah boneka Barbie. Dia pernah jadi peringkat pencarian pertama di berbagai portal web Korea pd tanggal 16 - 17 februari 2011 kemarin.
Nah kalo mau liat slide show dari foto2nya, play dimari aja gan.
credit to http://www.ilusisemata.com/2011/03/boneka-atau-gadis-asli-wang-jia-yun.html
Rabu, Maret 09, 2011 | | 0 Comments
Daftar Milis Islam Umum
Milis dengan anggota 100 - 499 orang diberi tanda $
Milis dengan anggota 500 - 999 orang diberi tanda $$
Milis dengan anggota 1000 - 2999 orang diberi tanda $$$
Milis dengan anggota lebih dari 3000 orang diberi tanda $$$$
Milis tidak aktif diberi tanda *
Milis Aktif dengan members kurang dari 100 orang tidak diberi tanda
- Dikelola oleh Organisasi/Lembaga Islam non Politik
- Pesantren Daarut Tauhiid <daarut-tauhiid@egroups.com>$$$
join : mailto:daarut-tauhiid-subscribe@egroups.com - ISNET <is-lam@isnet.org> $$$
join : mailto:is-lam-subscribe@isnet.org - Majelis Tarjih Muhammadiyah <majelis-tarjih@egroups.com>*
join : mailto:majelis-tarjih-subscribe@egroups.com - Pengajian Padhang Mbulan <padhang-mbulan@egroups.com>$$$
join : mailto:padhang-mbulan-subscribe@egroups.com - Pesantren Virtual <pesantren@egroups.com>$$$
join : mailto:pesantren-subscribe@egroups.com
- Pesantren Daarut Tauhiid <daarut-tauhiid@egroups.com>$$$
- Dikelola Perorangan/Kelompok
- Al Amru Bittaqwa <al-amru_bittaqwa@egroups.com>$
join : mailto:al-amru_bittaqwa-subscribe@egroups.com - Al Bayan <albayan@egroups.com>$
join : maito:albayan-subscribe@egroups.com - Al Fatihah <al-fatihah@egroups.com>$
join : mailto:al-fatihah-subscribe@egroups.com - Al Islam <al-islam@egroups.com>$
join : mailto:al-islam-subscribe@egroups.com - Tedas Indonesia <alghuroba@egroups.com>$$$
join : mailto:alghuroba-subscribe@egroups.com - As Sunnah <assunnah@egroups.com>
join : mailto:assunnah-subscribe@egroups.com - Cyber Dakwah <cyberdakwah@egroups.com>$
join : mailto:cyberdakwah-subscribe@egroups.com - EPM Muslim <epm-muslim@egroups.com>*
join : mailto:epm-muslim-subscribe@egroups.com - Fadhilah <fadhilah@egroups.com>
join : mailto:fadhilah-subscribe@egroups.com - Fitrah <fitrah@egroups.com>*
join : mailto:fitrah-subscribe@egroups.com - Forum Islam <forum-islam@egroups.com>*
join mailto:forum-islam-subscribe@egroups.com - Harokah <harokah@egroups.com> *
join : mailto:harokah-subscribe@egroups.com - Islam NET <islam-net@egroups.com> *
join : mailto:islam-net-subscribe@egroups.com - Istiqlal <istiqlal@egroups.com>$
join : mailto:istiqlal-subscribe@egroups.com - Kajian <kajian@egroups.com>$
join : mailto:kajian-subscribe@egroups.com - Majelis Tabligh Muhammadiyah <majelis-tabligh@egroups.com>*
join : mailto:majelis-tabligh-subscribe@egroups.com - Mushola <mushola@egroups.com>$
join : mailto:mushola-subscribe@egroups.com - Musholla <musholla@egroups.com>$
join : mailto:musholla-subscribe@egroups.com - Muslim 12 <muslim12@egroups.com>$
join : mailto:muslim12-subscribe@egroups.com - Muslim Network Association <muslim-na@egroups.com>*
join : mailto:muslim-na-subscribe@egroups.com - Milis Situs www.myquran.com <myquran@egroups.com>$
join : mailto:myquran-subscribe@egroups.com - Negeri ISNET <negeri_isnet@egroups.com>
join : mailto:negeri_isnet-subscribe@egroups.com - Milis Arsip RABA <raba19@egroups.com>
join : mailto:raba19-subscribe@egroups.com - Sabili <sabili@egroups.com>$$
join : mailto:sabili-subscribe@egroups.com - Sabili 2000 <sabili2000@egroups.com>
join : mailto:sabili2000-subscribe@egroups.com - Sabiluna <sabiluna@egroups.com>
join : mailto:sabiluna-subscribe@egroups.com - Shuffah <shuffah@egroups.com>$
join : mailto:shuffah-subscribe@egroups.com - Surau ( Urang Awak) <surau@egroups.com>$
join : mailto:surau-subscribe@egroups.com - Tafsir Al Qur'an <tafsir@egroups.com>
join : mailto:tafsir-subscribe@egroups.com - Tarbiyah <tarbiyah@egroups.com>
join : mailto:tarbiyah-subscribe@egroups.com - Ukhuwah <ukhuwah@egroups.com>*
join : mailto:ukhuwah-subscribe@egroups.com - Voice of Islam <voi@egroups.com>$$$
join : mailto:voi-subscribe@egroups.com
- Al Amru Bittaqwa <al-amru_bittaqwa@egroups.com>$
Selasa, Maret 08, 2011 | Labels: tugas praktek PTI | 0 Comments
Mailing List
Milis (Inggris: mailing list) adalah group diskusi di internet dimana setiap orang bisa berlangganan dan berikutserta didalamnya. Anggota milis dapat membaca surat dari orang lain dan kemudian mengirimkan balasannya. Secara sederhana, milis adalah sebuah daftar alamat surat elektronik yang mempunyai kesukaan/kepentingan yang sama.
Saat seseorang mengirimkan surat yang kemudian dikirimkan ke semua orang yang terdapat di dalam daftar, penerima pesan memiliki kebebasan untuk membalas topik diskusi tersebut atau tidak.
Setiap kali ada orang membalas sebuah surat, surat tersebut disalurkan ke setiap kotak surat masing masing orang yang terdapat di dalam daftar. Semua proses ini diatur oleh sebuah program yang dinamakan Mailing List Manager (MLM's) atau Mail Servers.
Berdasarkan topik diskusi, milis ada bermacam-macam. Ada milis umum, ada milis yang membahas bidang ilmu tertentu (misalnya Teknologi Informasi), ada senarai yang membahas masalah agama, dan sebagainya.
Penyedia layanan milis yang dikenal luas antara lain adalah yahoogroups.com dan googlegroups.com.
Selasa, Maret 08, 2011 | Labels: tugas praktek PTI | 0 Comments
Hardware dan Software
Hardware adalah perangkat keras komputer. Ada input ada output. Input contohnya keyboard, mouse, dan microphone . Sedangkan output contohnya monitor, speaker, dan printer.
Software adalah perangkat lunak komputer. Contohnya Windows dan Linux yg berbentuk OS, dan photoshop, corel draw yang berbentuk aplikasi.
Selasa, Maret 08, 2011 | Labels: tugas praktek PTI | 0 Comments
World Wide Web
Selasa, Maret 08, 2011 | Labels: tugas praktek PTI | 0 Comments
Selasa, Maret 08, 2011 | Labels: tugas praktek PTI | 0 Comments
Hard Disk Drive
Selasa, Maret 08, 2011 | Labels: tugas praktek PTI | 0 Comments
USB Flash Drive
Selasa, Maret 08, 2011 | Labels: tugas praktek PTI | 0 Comments
Lirik Lagu Linkin Park - The Catalyst
Ini lagu menurutku masih relatif baru dari band yg satu ini, so enjoy it...
The Catalyst
God bless us everyone
We're a broken people living under loaded gun
And it can't be outfought
It can't be outdone
It can't be outmatched
It can't be outrun
No..
[x2]
And when I close my eyes tonight
To symphonies of blinding light
God bless us everyone
We're a broken people living under loaded gun
And it can't be outfought
It can't be outdone
It can't be outmatched
It can't be outrun
No..
Like memories in cold decay
Transmissions echoing away
Far from the world of you and I
Where oceans bleed into the sky
God save us everyone
Will we burn inside the fires of a thousand suns
For the sins of our hand
The sins of our tongue
The sins of our father
The sins of our young
No..
[x2]
And when I close my eyes tonight
To symphonies of blinding light
God save us everyone
Will we burn inside the fires of a thousand suns
For the sins of our hand
The sins of our tongue
The sins of our father
The sins of our young
No..
Like memories in cold decay
Transmissions echoing away
Far from the world of you and I
Where oceans bleed into the sky
~~~~~~~~~~~~~~~~~~~~~~~
Like memories in cold decay
Transmissions echoing away
Far from the world of you and I
Where oceans bleed into the sky
Lift me up
Let me go
[x16]
God bless us everyone
We're a broken people living under loaded gun
And it can't be outfought
It can't be outdone
It can't be outmatched
It can't be outrun
No
God bless us everyone
We're a broken people living under loaded gun
And it can't be outfought
It can't be outdone
It can't be outmatched
It can't be outrun
Senin, Maret 07, 2011 | Labels: lirik Linkin Park | 0 Comments
Lirik Lagu SID - King, Queen & Poison
KING, QUEEN & POISON
when the sky is dark
and my passion seems to strong
guess the queen has left this thorned heart alone
tomorrow's broken dream is harder than i thought
I fought the devil, find emptiness in me
(1)
so that's the story i've made
and all the consequences it claims
oh no my lady, this song made of gold
when the flowers bloom and the
thorns stick in my veins
push my blood into the edge of insanity
everything is blur, a picture of your kiss
tasted so sweet and poison here I come
(2)
inject myself with angels wings
lay me down here in a burning ring
oh no my lady, the memory remains
back to (1)
(3)
I fought the war inside
my pain explains the true meaning of life
inject myself with angels wings
lay me down here in a burning ring
back to (1)
back to (2)
back to (3)
I fought the war inside
my pain explains the true meaning of life
inject myself with angels wings
oh no my lady, the memory remains
Kamis, Maret 03, 2011 | Labels: lirik SID | 0 Comments
Lirik Lagu SID - Memories of Rose
Menurutku ini lagu dari SID yg paling bagus, and lagi ini favoritku. Enjoy..
MEMORIES OF ROSE
I think about the end of the world
I’m thinking about you
All the struggle we had and the past
Blood and tears my love how could I forget
In sorrow now since we fell a part
A million miles away
Still I put my faith on the high sky
Everlasting pain! How can I escape?
(*)
Don’t go.. don’t go away
Stay with me here in this lullabies
Darling it won’t be long till we find
Our away back home again
I think about the evil ways I’ve been
The self destruction years
I disrespect myself and the world
Chase by ghost of lust kill the love ones down
back to (*)
At night when the shadow falls
Wish I’m here just right there
Close by your side
This lone some dreams
I’m haunted by the memories of rose
I gave all the poison for you
Gave up the wildest dream
And in the end I’ll grow old with you
Only you my love, burn the fire burn
back to (*) x2
Senin, Februari 28, 2011 | Labels: lirik SID | 0 Comments
salah satu dari jutaan OSD di Indonesia



