MULTI ANIMA

Aplikasi : 1. Toolbar object builder ( Kotak, lingkaran, persegi 5 ) 2. Shaping ( Intersect, Weld, Trim ) 3. align distribute, flip / mirror ( toolbar ) 4. Operasi object ( copy, paste ) 5. transformasi mouse ( klik, double klik )

entri data

************ membuat form pengisian

SQL Language

<<<<<<<<<<<< PERINTAH SQL ***** Membuat Table baru *********** CREATE TABEL [nama table] ( fields1 jenis(ukuran),fields1 jenis(ukuran)... ); contoh : CREATE TABLE siswa(NIS text(5),Nama text(10),kelas text(3)); ***** menambah rekord baru ********** INSERT INTO [nama table] (fields1,fields2,fields3) VALUES (nilai1,nilai2,nilai3); contoh : INSERT INTO siswa (NIS,nama,kelas) VALUES ("7872","Binar Mutia","X"); ***** mengubah rekord ********** UPDATE [nama table] SET [fields]=[nilai pengganti] WHERE fields_syrat=nilai_syrat; ****** menghapus rekord ********* DELETE FROM [nama table] WHERE fields_syrat=nilai_syrat;

Soal Pascal

2 :Percabangan / IF If adalah suatu perintah yang digunakan untuk melakukan pemilihan suatu jawaban berdasarkan suatu pengujian. pengujian ini berbentuk comparation/perbandingan yang akan menghasilkan jawaban berbentuk LOGIKA yaitu YES / NO ataupun true / False. program tamu_losmen; uses crt; var nama,tanggal,jenis,kelas : string[20]; kode:string[1]; kdkls,lama : integer; biaya,bayar: longint; begin clrscr; writeln('daftar tamu losmen'); writeln('ADEM AYEM'); writeln('Jl. patimura No. 7223 Wiradesa'); writeln('=============================='); writeln(' '); write('tanggal :'); readln(tanggal); write('nama tamu :'); readln(nama); write('kode kamar :'); readln(kode); IF (kode='s') or (kode='S') then jenis:='Single' else jenis:='Double'; writeln('jenis kamar :',jenis); write('Kode Kelas :'); readln(kdkls); IF KDKLS=1 then begin kelas:='Top room';biaya:=50000; end else IF kdkls=2 then begin kelas:='President';biaya:=65000; end else IF kdkls=3 then begin kelas:='Suite';biaya:=50000; end else begin kelas:='data salah';biaya:=0; end; writeln('Kelas kamar :',kelas); writeln('biaya permalam : Rp.',biaya); write('lama inap : ');readln(lama); bayar:=biaya*lama; writeln('jumlah bayar : Rp.',bayar); readln(); end.

MEMBUAT KOLOM KORAN
1. Ketik teks / copy paste, dan beri jarak 1 baris kosong di bawah.
2. B lok teks, tanpa spasi bawah.
3. Klik Page Layout – columns – pilih bentuk / jenis kolom

MEMBUAT KOLOM KORAN
1. Ketik teks / copy paste, dan beri jarak 1 baris kosong di bawah.
2. B lok teks, tanpa spasi bawah.
3. Klik Page Layout – columns – pilih bentuk / jenis kolom

MEMBUAT DROPCAP
1. Pindhakan kursor pada awal paragraf
2. Klik menu Insert – Dropcap – Dropped

MENYISIPKAN GAMBAR
1. Copy gambar dari browser, lalu paste pada dokumen. ( insert – picture/clipart/from file )
2. Klik 2 kali pada gambar untuk mengatur gambar.
3. Atur pelipatan gambar dengan Text Wrapping , pilih :

Square -->perapian gambar kotak thd teks -
Tight --> perapian gambar menyesuaikan thd teks -
Behind teks --> pindah di belakang tulisan -
In front of teks ---> pindah di depan tulisan.

MEMBERI BINGKAI HALAMAN
1. Page layout – Page border – Art ( tentukan bentuk bingkai )

ay sobat high … salam jumpa di edisi kedua, moga tak ada kata lelah atau berhenti untuk selalu membaca, dan mendukung high sebagai sahabat mu. Kali ini saya akan mengupas sekelumit pengkajian masalah ilmu, yang akan saya sajikan dalam sudut pandang teknologi.

Belajar di sekolah merupakan salah satu kewajiban dan hak setiap anak, dan hal tersebut di lindungi oleh undang-undang dasar Negara kita, karena pada hekekatnya makna belajar ini telah tertuang dalam tujuan Negara ini saat di proklamasikan. Karena belajar / menuntut ilmu merupakan salah satu sarana untuk mencapai suatu kebudayaan yang maju dan tinggi, serta peradaban yang sejati. Sekarang kita akan mulai dari pengertian ilmu secara etimologi ( asal kata/bahasa ), kata ilmu berasal dari bahasa arab Ilm yang berarti tahu / mengerti, sedangkan subyeknya adalah alim ( orang yang mengetahui ). Jika kita berjumpa dengan kata ilmu, maka pikiran kita akan tertuju pada belajar, materi, pelajaran, ilmiah dan banyak lagi. Dan memang kata-kata itulah yang menjadi cara kita untuk mempelajari, mengkaji suatu ilmu.

Pada dasarnya ilmu itu sendiri merupakan bentuk usaha manusia dalam memikirkan sesuatu secara mendalam, baik dalam memenuhi suatu kebutuhan manusia itu sendiri maupun mencari solusi dari suatu permasalahan yang dihadapi. Ilmu yang mempalajari hal tersebut di kenal dalam ilmu pengetahuan adalah filsafat. Ilmu filsafat muncul untuk memenuhi kebutuhan manusia atas keingintahuannya tentang sesuatu yang merupakan fitrahnya manusia sebagai mahluk. Sesuatu yang ingin diketahui manusia tidak sebatas untuk dipikirkan belaka, namun lebih dari itu, dia akan mengkaji, meneliti bahkan melakukan eksperimen. Apabila yang dia lakukan mencapai pembuktian yang bisa diakui oleh kalayak umum, maka dapat dikatakan dia telah menemukan teori dan bisa menjadi hukum. Selama teori itu belum terbantahkan oleh teori, maka teori tersebut tetap akan digunakan dalam ilmu pengetahuan. Contoh banyak ilmuwan yang menemukan teori dan rumus-rumus dibidang kimia, fisika, matematika dan sejenisnya, sampai sekarang rumus-rumus mereka sampai sekarang masih digunakan.

Dalam memikirkan sesuatu tentunya manusia mempunyai obyek yang dipikirkan, diteliti maupun dikaji. Obyek nya adalah apa yang ada disekitar kita termasuk dirinya sendiri, dengan kata lain, bahwa alam semesta inilah merupakan sumber ilmu, termasuk diri kita sendiri. ilmu yang mempelajari unsur-unsur dan hal yang berhubungan dengan mahluk hidup dikenal dengan biologi, ilmu yang mempelajari tata surya dikenal dengan astronomi, ilmu yang mempelajari unsur bumi dikenal dengan geologi, ilmu yang mempalajari tentang benda benda alam dan fenomenanya dikenal dengan Fisika, dan lain sebagainya. semua pemikiran dan penelitian diatas merupakan langkah yang ditempuh ilmuwan untuk mencari penjelasan tentang gejala alam. adapun langkah yang dilakukan nya meliputi merumuskan masalah, merumuskan hipotesis, merancang eksperimen , mengumpulkan data, menganalisa dan akhirnya mengambil kesimpulan. sehingga alam bisa di kuantifikasi, yang artinya alam dapat berbentuk kwantitas atau materi.

For ... DO

Pengulangan For

for adalah fungsi yang digunakan untuk melakukan pengulangan berdasarkan series added values ( nilai yang bertambah secara otomatis )
bentuk : FOR [variable] = n TO n2 DO [statment]

program membuat_piramid_satu_sisi
uses crt;
var ptr,kls,bola: integer;

begin
clrscr;
for ptr:=1 to 10 do
begin

for kls:=1 to ptr do write('*');
writeln('');
end;
readln();
end.

hasil output

*
**
***
****
*****
******
*******
********
*********
**********

program segitiga_sisi_kanan
uses crt;
var ptr,kls,bola: integer;

begin
clrscr;

bola:=1;
for ptr:=1 to 20 do
begin

if prt<=10 then bola:=ptr else bola:= 20 - ptr;

for kls:=1 to bola do write('*');
writeln('');
end;

readln();
end.

hasil output

*
**
***
****
*****
******
*******
********
*********
**********
*********
********
*******
******
*****
****
***
**
*

contoh download

1. buat link dari Ziddu
2. klik Upload, klik proses
3. jika selesai akan kita datapatkan link download dan link delete download

silakan kilk ini untuk download

PENTINGNYA TEKNOLOGI KOMPUTER DI SEKITAR KITA

pertamatama saya ucapkan SELAMAT atas terbitnya Majalah sekolah HIGHT SMA negeri 1 wiradesa. pada kesempatan ini saya akan mengulas tentang teknologi komputer dalam lingkungan kita sehari-hari, tentunya dalam lingkup pengantar saja.

pada masa ini komputer sudah menjadi bagian yang tidak bisa dipisahkan dari kehidupan kita sehari-hari. boleh dikatakan komputer menguasai hajat hidup semua sektor. mulai dari hal yang paling ringan sampai yang paling "Pusing". sebenarnya apa saja manfaat dan peranan komputer, pada saat ini ? tentunya akan kita ulas disini.

Manfaat komputer sebenarnya sama seperti manfaat perangkat elektronik lainnya, seperti televisi, radio, Hp dan lain sebagainya. yaitu mempermudah menyelesaikan pekerjaan manusia.

Jika dulu kita mengetik pakai mesin ketik nggak bisa diedit sekarang bisa dilakukan, bahkan memberikan pengaturan tampilan / efek serta gambar sesuka hati, dan akhirnya di simpan. Sambil mengetik kita bisa mendengerkan musik.
JIka dulu kirim surat harus ke Kantor Pos, dan sampainya berhari-hari, dengan Elektronik mail ( E-mail ) bisa hanya dalam hitungan milidetik, dan tak perlu repot-repot keluar rumah.
Jika dulu membuat satu pekerjaan yang diulang-ulang tiap hari, merupakan rutinitas yang melelahkan,sekarang dapat diulang-ulang dengan cepat tanpa lelah oleh komputer, sehingga sangat efektif dan efisien.

Itulah kelebihan komputer dibanding manusia, komputer dapat melakukan pekerjaan berulang-ulang tanpa lelah. komputer mampu melakukan perhitungan yang cepat juga karena dapat melakukannya berulang-ulang.

Walau begitu apakah manfaat komputer benar-benar menyelesaikan permasalahan pekerjaan manusia. Oh ya tentu TIDAK, karena disisi lain mereka juga bisa membuat masalah yang baru. contohnya berikut :

Orang zaman dahulu tidak mempunyai masalah mengupdate antivirus komputer.
Orang zaman dahulu nggak harus belajar MS word, Ms excel, cara mengoperasikan windows, belajar pemograman dsb.
Orang zaman dahulu juga nggak harus mikir mengupdate driver mereka setiap saat.
Orang zaman dahulu juga tidak pernah terganggu oleh aktivitas SPAM.
orang zaman dahulu tidak akan bingung untuk mengganti hardware yang compability dengan software terbaru. dsb

Jadi sebenarnya saat muncul teknologi baru. Memang benar mereka memberikan manfaat dalam menyelesaikan masalah manusia. Tapi pasti disisi lain akan muncul masalah baru yang menjadi konsekuensinya. tapi jangan salah, kalau hal ini dianggap sia-sia, karena pada hakikatnya KITA NAIK TINGKAT, dari TIDAK BISA menjadi MAMPU.

Contoh lainnya yang paling gampang adalah teknologi kendaraan bermotor, memang benar mereka membuat transportasi jauh lebih mudah. namun Efeknya ya tentu saja banyak kecelakaan, Pemanasan Global.

......

membuat backspace kal

perintah menghapus : document.aa.abc.value= document.aa.abc.value.substr(0,document.aa.abc.value.length-1)

form isian

berikut ini adalah form isian

Nama siswa
Alamat
tempat lahir
tanggal lahir
Agama
jenis kelamin	Pria wanita

Kenapa Orang Yahudi Cerdas???

cerdas, yahudi

Dr Stephen Carr Leon menghabiskan masa 3 tahun di Israel untuk menjalani housemanship di beberapa rumah sakit disana.

Dirinya melihat ada beberapa hal yang menarik yang dapat ditarik sebagai bahan tesisnya, yaitu, “ Mengapa Yahudi Pintar? ”

Ketika tahun kedua, akhir bulan Desember 1980, Stephen sedang menghitung hari untuk pulang ke California, terlintas di benaknya, apa sebabnya Yahudi begitu pintar?

Kenapa Tuhan memberi kelebihan kepada mereka? Apakah ini suatu kebetulan? Atau hasil usaha sendiri? ( pertanyaan yang sama dalam benak saya, kenapa setiap orang sukses tak lepas dari bangsa Yahudi lagi bangsa Yahudi lagi ! )

Maka Stephen tergerak membuat tesis untuk Phd-nya.

Dengan tekadnya yang bulat maka dimulailah pengamatannya itu.

Masa Kehamilan sang ibu.

Begitu wanita Israel yang mengetahui bahwa dirinya tengah mengandung anak, maka langsung sang ibu tersebut sering bernyanyi dan bermain piano dan juga membeli buku matematika.

Bermain piano dan bernyanyi bertujuan untuk mempengaruhi suasana hati bawaan si bayi tersebut ketika lahir. Dengan bernyanyi dan bermain piano,maka sang ibu akan merasakan ketenangan.

Diharapkan sang bayi akan memiliki karakter bawaan yang tenang dan berfikir matang ketika menghadapi masalah hidup nantinya.

Sedangkan mengerjakan soal matematika bertujuan untuk mengembangkan kecerdasan otak bayi yang ada dalam kandungannya.

Agar anak mereka terkahir dengan otak jenius.
Dan para ibu Yahudi yang tengah mengandung, terus menerus mengerjakan soal matematika yang ada sampai tiba saat melahirkan. Kadang mereka mengerjakan bersama suaminya dan bertanya kepada saudara-saudaranya bila ada soal yang terasa sulit.

Artinya…mereka tidak melatih kecerdasan otak anak mereka dari kecil, dari balita, dari umur 3 bulan, tapi dari sejak di dalam kandungan !

Sebuah perencanaan yang dalam sekali !

Cara makan :

Sejak awal mengandung dia suka sekali memakan kacang badam dan korma bersama susu. Tengah hari makanan utamanya roti dan ikan tanpa kepala (sekali lagi, tanpa kepala!) bersama salad yang dicampur dengan badam dan berbagai jenis kacang-kacangan.

Menurut wanita Yahudi itu, daging ikan sungguh baik untuk perkembangan otak dan kepala ikan mengandungi kimia yang tidak baik yang dapat merusak perkembangan dan penumbuhan otak anak didalam kandungan.

Sama seperti kebiasaan orang Jepang yang jenius juga dalam kerajinan memakan daging ikan )

Ini adalah adat orang orang Yahudi ketika mengandung. Menjadi semacam kewajiban untuk ibu yang sedang mengandung mengonsumsi pil minyak ikan.

Ketika diundang untuk makan malam bersama orang orang Yahudi. Begitu Stephen menceritakan, “Perhatian utama saya adalah menu mereka. Pada setiap undangan yang sama saya perhatikan, mereka gemar sekali memakan ikan (hanya isi atau fillet),” ungkapnya.
Biasanya kalau sudah ada ikan, tidak ada daging. Ikan dan daging tidak ada bersama di satu meja. Menurut keluarga Yahudi, campuran daging dan ikan tak bagus dimakan bersama. Salad dan kacang, harus, terutama kacang badam.

Perinsip : “ kalau sudah makan ikan, tidak boleh ada daging yang dimakan bersamaan “ ternyata sama dengan perinsip makannya Rasullullah S.A.W, manusia terjarang sakit sedunia )

Mereka juga akan makan buah-buahan dahulu sebelum hidangan utama. Jangan terperanjat jika Anda diundang ke rumah Yahudi Anda akan dihidangkan buah-buahan dahulu. Menurut mereka, dengan memakan hidangan kabohidrat (nasi atau roti) dahulu kemudian buah buahan, ini akan menyebabkan kita merasa ngantuk.

Akibatnya lemah dan payah untuk memahami pelajaran di sekolah.

Ternyata makan buah dahulu baru nasi, akan menyebabkan buah busuk. Karena proses pencernaan makanan di dalam perut kita itu memakan waktu yang lama. Sehingga akan membuat buah mengalami antrian yang panjang sampai akhirnya dia keburu busuk duluan.

( Pernah membiarkan apel yang sudah terkelupas khan ? lama-lama akan kuning dan bisa membusuk khan ? itu hanya didiamkan dan terkena udara loh…bagaimana kalau dicampur olahan makanan di dalam perut kita ? Sudah pasti busuk duluan sebelum dapat diproses. Jadi istilah “makan buah setelah makan nasi” sebagai pencuci mulut itu SALAH. Makan buah sebelum makan nasilah yang benar, bukan setelah makan nasi. Percuma. )

Anak-Anak Yahudi :

Perhatian Stephen selanjutnya adalah mengunjungi anak-anak Yahudi. Mereka sangat memperhatikan makanan, makanan awal adalah buah buahan bersama kacang badam, diikuti dengan menelan pil minyak ikan (code oil lever).

Kacang Badam = Kacang Almond, atau Buah Almond, mirip dengan Buah Persik dan Aprikot, hanya saja daging buahnya dibuang saat dipanen, sehingga hanya menyisakan bijinya, karena itu disebut sebagai kacang.

Dalam pengamatan Stephen, anak-anak Yahudi sungguh cerdas. Rata-rata mereka memahami tiga bahasa: Hebrew, Arab dan Inggris.

( Ternyata mempelajari sesuatu yang baru itu menyeimbangkan kedua belah otak kita. Contohnya ya seperti mempelajari bahasa yang berbeda – beda )

Sejak kecil pula mereka telah dilatih bermain piano dan biola. Ini adalah suatu kewajiban.

Menurut mereka bermain musik dan memahami not dapat meningkatkan IQ. Sudah tentu bakal menjadikan anak pintar.
Ini menurut saintis Yahudi, hentakan musik dapat merangsang otak. Tak heran banyak pakar musik dari kaum Yahudi.

Musik yang mereka dengarkan ya musik yang bisa menambahkan kecerdasan otak mereka. Yaitu musik yang lagak-lagak bethoven gitu deh.

( Ternyata sesuai dengan yang dikatakan Adi W Gunawan di buku Born To BE Genius )

Masa kanak-kanak :

Seterusnya di kelas 1 hingga 6, anak anak Yahudi akan diajar matematika berbasis perniagaan. Pelajaran IPA sangat diutamakan. Di dalam pengamatan Stephen, “Perbandingan dengan anak anak di California, dalam tingkat IQ-nya bisa saya katakan 6 tahun kebelakang!” katanya.
Segala pelajaran akan dengan mudah di tangkap oleh anak Yahudi. Selain dari pelajaran tadi, olahraga juga menjadi kewajiban bagi mereka.

Olahraga yang diutamakan adalah memanah, menembak dan berlari.
Menurut teman Yahudi-nya Stephen, memanah dan menembak dapat melatih otak fokus. Disamping itu menembak bagian dari persiapan untuk membela negara.

Saya pernah membaca buku ( saya lupa judulnya ) yang mengatakan : kalau anak-anak yang jago dalam hal olahraga, biasanya mereka mempunyai kemampuan mengambil keputusan yang cepat, karena otak mereka terlatih bergerak cepat, terlepas dari bagus atau tidaknya prestasi mereka disekolah.

Sekolah Tinggi :

Di sini murid-murid digojlok dengan pelajaran sains. Mereka didorong untuk menciptakan produk. Meski proyek mereka kadangkala kelihatannya lucu dan memboroskan, tetap diteliti dengan serius.
Apalagi kalau yang diteliti itu berupa senjata, medis dan teknik. Ide itu akan dibawa ke jenjang lebih tinggi.

Satu lagi yg diberi keutamaan ialah fakultas ekonomi. Dr Stephen Carr Leon sungguh terperanjat melihat mereka begitu agresif dan seriusnya mereka belajar ekonomi.

Di akhir tahun diuniversitas, mahasiswa diharuskan mengerjakan proyek. Dam mereka harus mempraktekannya.
Anda hanya akan lulus jika tim Anda (10 pelajar setiap kumpulan) dapat keuntungan sebanyak $US 1 juta!

Anda terperanjat?

Itulah kenyataannya. Entrpreneurship dan networking digelorakan.

Oh iya…

Merokok bagi mereka adalah sesuatu yang tabu.

Bila Anda diundang makan di rumah Yahudi, jangan sekali kali merokok. Tanpa sungkan mereka akan menyuruh Anda keluar dari rumah mereka. Menyuruh Anda merokok di luar rumah mereka.

Menurut ilmuwan Israel, penelitian menunjukkan nikotin dapat merusakkan sel utama pada otak manusia dan akan melekat pada gen. Artinya, keturunan perokok bakal membawa generasi yang cacat otak ( bodoh). Suatu penemuan dari saintis gen dan DNA Israel.

Jadi merokok merupakan sesuatu yang kejam dan menjijikan bagi orang Israel ! Perbuatan terkutuk dan kejam bagi mereka mungkin. Karena bukan saja merusak gen untuk keturunannya, tapi juga merusak gen orang-orang yang ikut menghirupnya.

Hei bandingkan dengan Indonesia !!!

Di jalanan, di angkot, di mall-mall, di warteg, di kampus, bahkan di beberapa TERAS MASJID yang pernah saya kunjungi. ( Aoa coba di tempat ibadah, malah ada perusak generasi bangsa, yang namanya rokok )

Kalau mau negeri ini berubah dan anak bangsa kita cerdas-cerdas, hilangkan rokok !

Jangan menyalahkan pemerintah dulu dech… para orang miskin jangan cuma bisa menuntut pemerintah banyak melakukan korupsi dech… Rokok dulu tuh hilangin ! ( Uang rokok mendingan buat beli beras )

Jadi mahasiswa jangan belagu ikutan demo-demo dech, kalau masih gelantungan di bis sambil ngebulin asap rokok ! Apalagi kalo masih anak sekolahan !

Para ustad-ustad di pesantren tolong dilepas tuh sorban, kalo masih ngebulin asap rokok ! ( ustad yang gak ngerokok jangan ngamuk ya…)

Kalau anda perokok yang jadi tersinggung dengan bagian diatas, Silahkan Hack Blog ini, kalau anda bisa memberikan contoh bangsa yang sukses dan maju dengan disertai budaya merokok yang mewabah.

Tidak bakalan ada.

Okeyh…

Mari kita bersama-sama simpulkan kenapa bangsa Yahudi bisa sangat amat sangat cerdas sehingga bisa menguasai dunia, baik dari segi kepintaran, teknologi, maupun perekonomian.

1. Melahirkan anak dan keturunan yang cerdas adalah keharusan. Tentunya bukan perkara yang bisa diselesaikan semalaman. Perlu proses dan ketekunan dalam membina generasi penerus.
( kesimpulan Dr Stephen Carr Leon)

2. Para orang tua bangsa Yahudi mengerti bahwa melatih anak menjadi cerdas, bukan saat anak mereka umur belasan tahun ataupun masih kecil, tapi saat anak mereka masih di dalam kandungan ! Mereka mengerti baik karakter dan kepintaran anak, tergantung dari aktivitas apa yang para ibu lakukan sewaktu mengandung anak tersebut.
( Ini kesimpulan saya dari perkataan Ibu Roesmiati Soepandji )

3. Mereka mengharamkan rokok !!!

Jika anda suka dan merasakan manfaat artikel ini, anda bisa membantu membenahi bangsa ini dengan berbagi artikel ini lewat facebook anda.

Selamat jalan GUS DUR

Ikut Berduka Cita atas wafatnya
BAPAK Bangsa, sesepuh Negeri
engkau telah bekerja dan berdoa untuk negeri ini
sekarang giliran kami yang melanjutkan.

Gaji Tunjangan dan Pajak

Program Gaji_Tunjangan_dan_Pajak;
{Menghitung jumlah gaji berdasarkan golongan, tunjangan anak dan istri, total gaji setelah pajak}

Uses wincrt;

var
nama,jab : string[20];
noin : string[10];
golgaj : char;
stmerit, jmlanak : integer;
gaj,tjbini,tjanak,pajgaj,jmlpajgaj,jmltjgaj,tolgaj,tolgajstpaj : real;

Begin
clrscr;
Writeln (‘=============================================’);
Writeln (‘PERHITUNGAN GAJI DAN TUNJANGAN DAN PAJAK GAJI’);
Writeln (‘=============================================’);
Writeln;
Writeln (‘Isikan Data anda sesuai ketentuan berikut ini : ‘);
Writeln (‘———————————————– ‘);
Writeln;
Writeln (‘Golongan Gaji : Status Perkawinan : ‘);
Writeln (‘a. Rp. 2.000.000.00 1. Kawin ‘);
Writeln (‘b. Rp. 2.500.000.00 2. Belum kawin’);
Writeln (‘c. Rp. 3.000.000.00 3. Cerai ‘);
Writeln;
Write (‘Masukkan No karyawan : ‘);readln (noin);
Write (‘Masukkan nama anda : ‘);readln (nama);
Write (‘Masukkan Jabatan : ‘);readln (jab);
Write (‘Masukkan Golongan gaji anda : ‘);readln (golgaj);

case golgaj of
‘a’ : begin
gaj := 2000000;
pajgaj := (2/100);
Write (‘Status Perkawinan anda : ‘);readln (stmerit);
case stmerit of
1 : begin
tjbini := (5/100)*gaj;
Write (‘Jumlah anak : ‘);readln (jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
2 : begin
tjbini := 0;
tjanak := 0;
end;
3 : begin
tjbini := 0;
Write (‘Jumlah anak : ‘);readln (jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
else
Writeln;
Writeln (‘================================================================’);
Writeln;
Writeln (‘Tunjangan tidak terhitung karena tidak terinput dengan benar !!!’);
end;
end;
‘b’ : begin
gaj := 2500000;
pajgaj := (2.5/100);
Write (‘Status Perkawinan anda : ‘);readln (stmerit);
case stmerit of
1 : begin
tjbini := (5/100)*gaj;
Write (‘Jumlah anak : ‘);readln (jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
2 : begin
tjbini := 0;
tjanak := 0;
end;
3 : begin
tjbini := 0;
Write (‘Jumlah anak : ‘);readln (jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
else
writeln;
Writeln (‘================================================================’);
Writeln;
Writeln (‘Tunjangan tidak terhitung karena tidak terinput dengan benar !!!’);
end;
end;
‘c’ : begin
gaj := 3000000;
pajgaj := (3/100);
Write (‘Status Perkawinan anda : ‘);readln (stmerit);
case stmerit of
1 : begin
tjbini := (5/100)*gaj;
Write (‘Jumlah anak : ‘);readln (jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
2 : begin
tjbini := 0;
tjanak := 0;
end;
3 : begin
tjbini := 0;
Write (‘Jumlah anak : ‘);readln (jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
else
writeln;
Writeln (‘================================================================’);
Writeln;
Writeln (‘Tunjangan tidak terhitung karena tidak terinput dengan benar !!!’);
end;
end;
else
Writeln;
Writeln (‘=======================================’);
Writeln;
Writeln (‘Maaf, Golongan Gaji tidak terdaftar !!!’);
Writeln;
end;

jmltjgaj := tjbini+tjanak;
tolgaj := gaj+jmltjgaj;
jmlpajgaj := tolgaj*pajgaj;
tolgajstpaj := tolgaj-jmlpajgaj;

Writeln;
Writeln (‘SLIP GAJI ———————————–> ‘);
Writeln;
Writeln (‘Nama : ‘,nama);
Writeln (‘No Karyawan : ‘,noin);
Writeln (‘Jabatan : ‘,jab);
Writeln (‘+============================================+’);
Writeln (‘| Rincian | Jumlah | ‘);
Writeln (‘+============================================+’);
Writeln (‘| Besar Gaji : | Rp.’,gaj:8:0,’ |’);
Writeln (‘| Tunjangan istri : | Rp.’,tjbini:8:0,’ |’);
Writeln (‘| Tunjangan anak : | Rp.’,tjanak:8:0,’ |’);
Writeln (‘| Total gaji : | Rp.’,tolgaj:8:0,’ |’);
Writeln (‘| Pajak gaji : | Rp.’,jmlpajgaj:8:0,’ |’);
Writeln (‘+—————————-+—————+’);
Writeln (‘| Total gaji setelah pajak : | Rp.’,tolgajstpaj:8:0,’ |’);
Writeln (‘+—————————-+—————+’);
Writeln (‘Program by, w1r0′);
readln;

End.

=========================================================
End

PENGANTAR LOGIKA DAN ALGORITMA DENGAN PASCAL

Pengertian LOGIKA:
Logika berasal dari bahasa Yunani yaitu LOGOS yang berarti ilmu. Logika pada dasarnya filsafat berpikir. Berpikir berarti melakukan suatu tindakan yang memiliki suatu tujuan. Jadi pengertian Logika adalah ilmu berpikir / cara berpikir dengan berbagai tindakan yang memiliki tujuan tertentu.

Pengertian ALGORITMA:
Pada Merriam-Webster’s Collegiate Dictionary, istilah algoritma diartikan sebagai prosedur langkah demi langkah untuk memecahkan masalah atau menyelesaikan suatu tugas. Kamus Besar Bahasa Indonesia (KBBI) mendefinisikan algoritma sebagai urutan logis pengambilan keputusan untuk pemecahan masalah.

Alat Bantu untuk menuliskan Logika dan Algoritma, salah satunya adalah FLOWCHART.

Pengertian FLOWCHART:
gambaran dalam bentuk diagram alir dari algoritma dalam suatu program atau prosedur sistem secara logika, yang menyatakan arah alur program dalam menyelesaikan suatu masalah.

SIMBOL Flowchart

Pedoman-pedoman dalam Membuat Flowchart:
1.Bagan alir sebaiknya digambar dari atas ke bawah dan mulai dari bagian kiri dari suatu halaman.
2.Kegiatan di dalam bagan alir harus ditunjukkan dengan jelas.
3.Harus ditunjukkan dari mana kegiatan akan dimulai dan dimana akan berakhirnya (diawali dari satu titik START dan diakhiri dengan END).
4.Masing-masing kegiatan di dalam bagan alir sebaiknya digunakan suatu kata yang mewakili suatu pekerjaan, misalnya:
-"Persiapkan" dokumen
- "Hitung" gaji
5.Masing-masing kegiatan di dalam bagan alir harus di dalam urutan yang semestinya.
6.Kegiatan yang terpotong dan akan disambung di tempat lain harus ditunjukkan dengan jelas menggunakan simbol penghubung.
7.Gunakanlah simbol-simbol bagan alir yang standar.

Secara garis besar, Ada 3 bagian utama dalam flowchart :

Contoh:
Buat algoritma dan Flowchart untuk Menghitung Luas Persegi Panjang:

Pekerjaan:
Rumus:
LuasPersegiPanjang = Panjang x Lebar
Algoritma:
1.Tentukan nama variabel yang akan menampung data Panjang, lebar dan luas persegi panjang.
2.Masukkan (inputkan) data Panjang dan Lebar pada variabel yang sudah ditentukan.
3.Hitung Luas persegi panjang.
4.Tampilkan (outputkan) Luas persegi panjang.

Flowchart:

Latihan:
Buat algoritma dan Flowchart untuk Menghitung:
1.Luas Segitiga
2.Luas Lingkaran

IMPLEMENTASI DALAM PROGRAM
(Sebagai contoh: Bahasa Pemrograman Pascal)

Pengertian PROGRAM:
Kumpulan instruksi (statements) yang disusun secara logis untuk memecahkan suatu masalah. Instruksi-instruksi yang digunakan disesuaikan dengan jenis bahasa pemrograman yang digunakan (reserved word yang disediakan).

Stuktur Penulisan Pascal:
Program Nama_Program;
uses
. . . {Unit-unit yang dipakai} ;
label
. . . {label-label yang dipakai } ;
const
. . . {pengumuman tetapan-tetapan} ;
type
. . . { pengumuman tipe-tipe data };
var
. . . { pengumuman peubah-peubah };

procedure Nama_Prosedur;
begin
. . .
end;

Function Nama_Fungsi;
begin
. . .
end;

{ Program utama }
begin
. . .
end.

Perintah Input :
Perintah Pascal yang digunakan untuk memasukkan/menginputkan data.
Bentuk perintah:
Read dan Readln
Struktur penulisan:
Read(nama variabel);
Readln(nama Variabel)

Perintah Output:
Perintah Pascal yang digunakan untuk menampilkan/mengoutputkan data.
Bentuk perintah:
Write : setelah menampilkan data atau teks, kursor berada tepat disamping kanan data yang ditampilkan.
Write : setelah menampilkan data atau teks, kursor berada pada baris berikutnya.
Struktur penulisan:
write(nama variabel);
write(‘teks’);
writeln(nama Variabel);
writeln(‘teks’);

Contoh:
Buat program sederhana untuk Menghitung Luas Persegi Panjang:

Program LuasPersegiPanjang;
Var
Luas, Panjang, Lebar : integer;
Begin
Readln(panjang);
Readln(Lebar);Luas:= Panjang*Lebar;
Writeln(‘Luas Persegi Panjang adalah:’,Luas);
Readln;
End.
Tampilan pada lembar kerja Pascal:

Menjalankan program dengan perintah:
Ctrl+F9(tekan tombol Ctrl dan F9 bersama-sama).

Apabila Panjang diisi 7 dan lebar diisi 8 maka hasil perintah diatas tampil sbb:

Latihan:
Buat program sederhana untuk Menghitung:
1. Luas Segitiga
2. Luas Lingkaran

STRUKTUR KENDALI “IF’

Struktur kendali aliran adalah suatu bentuk/struktur yang memiliki peranan khusus untuk mengatur aliran urutan pengerjaan operasi atau beberapa operasi tertentu.
Salah satu contoh pernyataan kendali yaitu pernyataan if .
Pernyataan if (if statement) akan memeriksa suatu persyaratan dan menentukan apakah syarat tersebut benar atau salah, kemudian melakukan pekerjaan sesuai dengan nilai pernyataan tersebut.
Struktur Penulisan:
Berikut adalah bentuk-bentuk dari pernyataan if yang sering digunakan :
1. If dengan satu pernyataan (statement)
If (kondisi) then pernyataan ;
2. If dengan dua atau lebih pernyataan (statement)
If (kondisi) then
begin
pernyataan1 ;
pernyataan2 ;
…..
end;
3. If dan else
If (kondisi) then
begin
pernyataan1 ;
pernyataan2 ;
…..
end
else
begin
pernyataan1 ;
pernyataan2 ;
…..
end;
Dari bentuk bentuk pernyataan if di atas yang harus diperhatikan adalah untuk pernyataan if dan else, pernyataan-pernyataan setelah then tanpa menggunakan “;”. Dengan kata lain jika pernyataan setelah then hanya terdiri dari satu pernyataan saja makan pernyataan tersebut tanpa menggunakan “;”, namun jika pernyataan setelah then terdiri dari lebih dari satu pernyataan makan setelah end tanpa menggunakan “;”.

Latihan:
Buat flowchart dan program sederhana untuk menampilkan bilangan terbesar.

Latihan:
Buat program sederhana untuk menghitung luas segitiga dan lingkaran.

Soal PASCAL

Buatlah :
Program Menghitung Luas dan Keliling Lingkaran ,
Luas = PI * Jari * Jari
Keliling = 2 * PI * Jari
Bentuk Outputnya :
Masukan Jari - Jari Lingkaran (Cm) : …….
Luas Lingkaran Tersebut : …….
Kelilingnya Adalah : ……..

Soal 2.1 dan 2.2
Perusahaan Di Kota “Z” memepunyai Tarif Rp100 per pulsa.Setiap Langganan dikenakan biaya langganan Sebesar Rp 3000 perbulan. Jumlah pulsa =235. Buatlah program untuk menghitung tagihan langganan.
Bentuk Outputnya :
Masukan Jumlah Pulsa : ………..
Jumlah Tagihan Yang Harus Dibayar : Rp…..

Soal 2.3
Perusahaan Di Kota ” Z ” memepunyai Tarif Rp100 per pulsa.Setiap Langganan dikenakan biaya langganan Sebesar Rp 3000 perbulan. Jumlah pulsa = 235. Buatlah program untuk menghitung tagihan langganan.
Bentuk Outputnya :
Nomer Langganan :………….
Nama Langganan :…………
Alamat :…………..
Perincian Tagihan :
———————–
Biaya Berlangganan : Rp…………
Biaya Pulsa……….xRp.100 : Rp…………
————————————————–
Total Tagihan : Rp…..

Soal 2.4
Gaji pegawai PT. Mundur Maju dihitung berdasarkan beberapa hal, diantaranya :
- Gaji Pokok
- Tunjangan
- Upah Lembur
Tunjangan pegawai adalah 15 % dari gaji pokok upah lembur perjam adalah 1,5 % dari Gaji Pokok,Buatlah Program Untuk Menghitung gaji yang diterima Pegawai.
Masukan : Nama,Nip,gaji pokok dan jam lembur.
Bentuk Outputnya :
Perincian Gaji Pegawai
—————————-
Gaji Pokok : Rp…………
Tunjangan : Rp…………
Upah Lembur : Rp…………
————————————————–
Gaji Total : Rp…..

Soal 3.5
Buat program yang dapat menerima masukan bilangan dengan desimal koma bukan titik,misalnya 12,5.Program akan menjalankan dua bilangan yang memekai tanda koma.
Masukan : Dua Bilangan dengan desimal koma
Keluaran : Hasil Penjualan dengan desimal koma
Petunjuk : Langkah - Langkah
1. Masukan data dua bilangan ke dalam Variabel String
2. Cari Posisi Koma didalam setiap string (Pakai Fungsi Pos )
3. Ganti Koma Disetiap String Dengan Titik
4. Ubahlah String Tersebut menjadi numerik (Pakai Fungsi Val)
5. Jumlahkan Kedua Bilangan tersebut
6. Ubahlah hasil Penjumlahan menjadi String (Pakai Fungsi Str)
7. Cari Posisi titik (Pakai Fungsi Pos)
8. Ganti Titik tersebut dengan kom

Soal 4.1
Peruahaan taxi Sepanjang Jalan Kenangan mempunyai peraturan sbb, tarif kilometer pertama Rp. 1500.kilometer Berikutnya adalah Rp.350
- Km = 0.5 , Bayar = Rp.1500
- Km = 5 , Bayar = 1500 + ( 5 * 350)= Rp.3250
Buatlah Program yang akan menghitung pembayaran penumpang
Masukan : Jarak yang ditempuh
Keluaran : Jumlah pembayaran

Soal 4.2
Sebuah LPK ternama di Purwokerto, mengadakan test Program komputer yang akan diadakan tiga kali test (terdiri dari program Basic , Pascal , Bahasa C ). Test ini didakan untuk menentukan Gride dan besarnya biaya Kursus Bila Siswea tersebut ingin melanjutkan ke tingkat yang lebih tinggi. Ketentuan Nilai :
Nilai
Grade Besar Biaya
91 - 100 A 50000
76 - 90 B 150000
60 - 75 C 250000
40 - 59 D 350000
01 - 39 E 450000
0 0 550000
Masukan : Nilai dari ketiga test tersebut, Proses rata-ratanya menjadi nilai akhir
Keluaran : Grade dan Jumlah Bayarnya
Keterangan : Gunakan Fungsi IF

Soal 5.1
Sebuah Perusahaan Amit-Amit Membagi Karyawannya
menjadi tiga golongan, Yaitu 1 , 2 ,3 .
Upah harian dan upah lembir perjam tiap tiap golongan adalah :
Gol Upah Lembur Upah Lembur Perjam
1 2250 400
2 2600 475
3 3250 600
Upah Lembur Akan Diberikan Jika pegawai bekerja lebih dari 8 Jam.
Buatlah Program yang menghitung upah yang diterima pegawai
Masukan : Nama Pegawai, Golongan dan Jam Kerja.
Keluaran : Upah Total
Petunjuk : Gunakan Fungsi Case dengan Blok ( Begin….end. )

Soal 5.2
Sebuah LPK ternama di Purwokerto, mengadakan test Program komputer yang akan diadakan tiga kali test (terdiri dari program Basic , Pascal , Bahasa C ). Test ini didakan untuk menentukan Gride dan besarnya biaya Kursus Bila Siswea tersebut ingin melanjutkan ke tingkat yang lebih tinggi. Ketentuan Nilai :
Nilai
Grade Besar Biaya
91 -100 A 50000
76 - 90 B 150000
60 - 75 C 250000
40 - 59 D 350000
01 - 39 E 450000
0 0 550000
Masukan : Nilai dari ketiga test tersebut, Proses rata-ratanya menjadi nilai akhir
Keluaran : Grade dan Jumlah Bayarnya
Petunjuk : Gunakan Fungsi Case Of

Soal 5.3
Sebuah Toko Bangkrut Terus menjual beberapa merk susu kaleng, yaitu :
1. Dancow
2. Indomilk
3. Milo
4. Suprima
5. Sustagen
6. Ovaltime
7. Ducth Lady
Tiap - tiap merk dijual dalam ukuran Besar, Sedang, Kecil.
Harga Satuannya Adalah :

Merk
Besar Sedang Kecil
Dancow 10000 4250 2100
Indomilk 8500 4000 2025
Milo 7750 3750 2200
Suprima 9600 5100 2600
Sustagen 17000 14500 83000
Ovaltime 11250 6500 3250
Ducth Lady 10500 7500 4500
Masukan :
- Merk Susu ukurannya ( B / S / K )
dan banyaknya yang dibeli
Keluaran :
- Harga susu dan jumlah yang harus di bayar
- Tampilkan juga jumlah kembaliannya
jika Uang yang dibayar > Harga

Petunjuk :
- Gunakan Fungsi Case dengan Blok ( Begin….end. )

MULTI ANIMA

This is default featured slide 1 title

This is default featured slide 2 title

This is default featured slide 3 title

This is default featured slide 4 title

This is default featured slide 5 title

Brive drive pada blogspot

Aksesories ornamen batik