program tahun kabisat

program tahunkabisat ;

uses wincrt ;

var

tahun : integer ;

begin

          write ('masukkan tahun : ') ; readln (tahun) ;

          if tahun mod 100 = 0 then

begin

                if tahun mod 400 = 0 then

                         writeln ('Tahun Kabisat')

                    

                else

                         writeln ('Bukan Tahun Kabisat') ;                  

end

else

begin

                if tahun mod 4 = 0 then

                         writeln ('Tahun Kabisat')

                         

                else

                         writeln ('Bukan Tahun Kabisat') ;

                         

end;

end.

Cara Menghitung IPk Menggunakan Microsoft Excel

Cara Menghitung IPk Menggunakan Microsoft Excel

Langsung aja ga pake ba..bi..bu...

Tutorial menghitung dan memprediksi IPK dengan microsoft Excel 2007

gimana cara membuatnya bro?
Neh yang lo tunggu.
1. Siapkan cell A1 sampai dengan E1, lalu ketik pada cell-cell yang tersedia dengan data sebagai berikut : A1="Nama Matakuliah"
B1="SKS"
C1="Nilai"
D1="Bobot Nila/Berat Nilai"
E1="Jumlah Nilai"

2. Masukan data dan nilai matakuliah anda sesuai dengan kolom yang anda buat pada Tutorial no.1

3. Kalo dah selesai lalu klik 2 kali di cell D2, ketik dengan formula IF sebagai berikut :=IF(C2="A",4,IF(C2="A-",3.75,IF(C2="A/B",3.5,IF(C2="B+",3.25,IF(C2="B",3,IF(C2="B-",2.75,IF(C2="B/C",2.5,IF(C2="C+",2.25,IF(C2="C",2,IF(C2="C-",1.75,IF(C2="C/D",1.5,IF(C2="D+",1.25,IF(C2="D",1,0)))))))))))))
Matang kamu..hehehehe..tenang Tutorial Microsoft Excel 2007 ini gak sulit koq!!dengan sedikit otak aja pasti lancar..mengukuti Tutorial Microsoft Exel 2007 yang saya buat.
saya terangin dikit aja bro..dalam Tutorial Microsoft Excel 2007 saya ini fungsi IF adalah jika nilai matakuliahnya A berarti Bobotnya "4", A- berarti "4.75, dst...
kalo udah di teken enter bro...mudah kan Tutorial menghitung dengan excel 2007-nya?hehehehe

4. kalo udah, lanjutin ke Microsoft Excel 2007 kita lagi bro..copy-paste formula tersebut ke bawah sampai dengan cell mata kuliah terakhir kalian...kalo gk mau repot cara copynya geser aja cursor mousenya ke pojok kanan cell, dengan begitu akan muncul cursor + warna item blok..klik kiri trus drag ke bawah sampai dengan akhir data mata kuliah kalian..lebih juga gak masalah asal jangan kurang..

5.Setelah Tutorial no 4 selesai...klik cell E2 ato dibawah kolom "jumlah nilai", tulis formula buat menghitung cell jumlah nilai di Microsoft Excel 2007 kalian lagi, neh pendek cuma formula perkalian, nih formulanya : = B2*D2
artinya adalah SKS dikali dengan berat nilai sama dengan "jumlah nilai" bro..dah selesai menghitung-nya bro?
kalo udah copy-paste kebawah lagi sampai data matakuliah terakhir...(cara copasnya seperti Tutorial no.4) dan kalo udah pasti hasil dari tutorial no.1 sampai no.5 seperti gambar dibawah ini.

nah tuh diatas hasil menghitung IPK dengan Microsoft excel 2007 nya..dari gambar diatas tersebut saya kasih tanda kotak biru dengan angka 1 sampai dengan 3 itu adalah agar kalian semua tau letak dimana kalian membuat Formula untuk menghitung IPK di dalam microsoft excel 2007. Formula kalian buat di kotak no 2 dan 3.
sudah paham dengan Tutorial microsoft excel 2007 saya diatas?harus paham donk..kan neh Tutorial basic..wakakakak

6. Masih pada Tutorial Microsoft ecxel 2007..sekarang tinggal cara buat kolom untuk menghitung IPK-nya, perhatiin dengan cermat gambar di bawah ini...

nah buat kolom2 seperti yang aku kotakin biru pada Tutorial gambar diatas...
kolom 1 itu buat menghitung SKS yang dah lo ambil.Dibawah kolom jumlah sks lo buat formula untuk menghitung penjumlahan kayak gini :=SUM(B2:B250), tapi tunggu bro jangan asal copy-paste dulu, perhatiin formula yang pake huruf biru itu disesuaiin ma cell "B"nya, tadi kan kamu copy ke bawah..nah mpe mana tadi kamu copy tuh tempat B250 yang biru tuh..( Tutorial no.4 dan 5)

7. Tetap pada Tutorial Microsoft Excel 2007 -nya bro, jangan pindah2..Terusin buat kolom "Jumlah Nilai" yang seperti gambar di atas yang saya kasih kotak biru no 2, dibawahnya ketik formula untuk menghitung penjumlahan di microsoft excel 2007 :=SUM(E2:E250) jangan lupa formula warna biru sesuain dengan copy-an kamu di kolom "E" tadi.( Tutorial no.5 )

8. Neh Tutorial menghitung IPK dengan Microsoft Excel 2007 gw yang terakhir. dah tau semua dong kotak biru no 3, Buat kolom IPK dengan Formula untuk menghitung pembagian sebagai berikut :=G46/G43, nah ini yang terakhir artinya adalah jumlah nilai keseluruhan dibagi dengan jumlah SKS bro...

9. SELESAI sudah
Tutorial menghitung dan memprediksi IPK dengan Microsoft Ecxel 2007 ini.

Yang emang butuh Tutorial Microsoft Excel 2007 ini dan gak mw repot download aja didisini !!! tinggal masukin aja mata kuliah, nilai dan SKS ke cell Microsoft Excel 2007 yang udah gw buat dan semua dah di hitung sendiri sesuai Tutorial diatas.Download Penghitung IPK dengan Microsoft ecxel 2007
semoga masalah IPK di kuliah anda teratasi..heheheh
catatan : Tutorial ini hanya suport pada Microsoft EXCEL 2007
Tutorial Microsoft Excel 2007 ini dapat Copy demi kemajuan Mahasiswa Indonesia

Contoh Surat Pengunduran Diri

Contoh Surat Pengunduran Diri

Kepada,
yth,
Dir. HRD PT…..
Di
Tempat
Dengan Hormat,
Melalui surat ini saya selaku karyawan PT……… berdasarkan Surat Kesepakatan Bersama ( SKB) tentang kekaryawanan dan Undang – Undang tenaga kerja maka saya yang bertanda tangan dibawah ini.
Nama : ………
Departemen :
Jabatan : ……..
No Karyawan :
Mengajukan pengunduran diri dari PT………………….. dengan alasan kesehatan dan keluarga…..(sebutkan alasan lan sesuai dengan kondisi anda)…. Surat ini saya buat sesuai prosedur hubungan indistrial dan tanpa motivasi negatif. Saya berharap perusahaan dapat memahami kondisi saya dan memberikan hak -hak saya sesuai ketentuan yang berlaku.
Demikian surat pengunduran diri ini saya buat dengan sesungguhnya. atas bantuan dan dukungan yang telah diberikan selama ini, saya ucapkan terima kasih.
Hormat Saya,
Yogyakarta, …,……, 2009
(……………………)

Contoh Surat Pengunduran Diri

Kepada,
yth,
Dir. HRD PT…..
Di
Tempat

Dengan Hormat,
Melalui surat ini saya selaku karyawan PT……… berdasarkan Surat Kesepakatan Bersama ( SKB) tentang kekaryawanan dan Undang – Undang tenaga kerja maka saya yang bertanda tangan dibawah ini.

Nama : ………
Departemen :
Jabatan : ……..
No Karyawan :

Mengajukan pengunduran diri dari PT………………….. dengan alasan kesehatan dan keluarga…..(sebutkan alasan lain sesuai dengan kondisi anda tidak perlu terlalu detail seperti tips diatas jangan mengungkapkan kekesalan anda selama bekerja)…. Surat ini saya buat sesuai prosedur hubungan indistrial dan tanpa motivasi negatif. Saya berharap perusahaan dapat memahami kondisi saya dan memberikan hak -hak saya sesuai ketentuan yang berlaku.

Demikian surat pengunduran diri ini saya buat dengan sesungguhnya. atas bantuan dan dukungan yang telah diberikan selama ini, saya ucapkan terima kasih.

Hormat Saya,
Lamongan, …,……, 2011

(……………………)

Contoh Surat Pengunduran Diri

Jakarta, 1 Juli 2008

Kepada Yth,
HRD Manager
PT. Nama Perusahaan
Alamat Perusahaan
Jl. Jend. Sudirman Kav 123
Jakarta 12920
INDONESIA

Dengan Hormat,

Melalui surat ini, saya (Nama Anda) bermaksud untuk mengundurkan diri dari (Nama Perusahaan Tempat Bekerja) sebagai (Presiden Direktur Jabatan Terakhir di perusahaan), terhitung sejak tanggal (tanggal pengunduran diri anda).

Saya mengucapkan terimakasih atas kesempatan yang diberikan kepada saya untuk bekerja di (Nama Perusahaan Tempat Bekerja). Saya juga memohon maaf kepada seluruh karyawan dan manajemen (Nama Perusahaan Tempat Bekerja) apabila terdapat kesalahan yang telah saya lakukan selama bekerja.

Saya berharap selalu, (Nama Perusahaan Tempat Bekerja) dapat terus berkembang dan selalu mendapatkan yang terbaik.

Hormat Saya,

Nama Lengkap Anda
Email : email@namadomain.com
Mobile Phone : +62XXXXXXXXX

Contoh Surat Pengunduran Diri

Kepada,
yth,
Dir. HRD PT.....
Di
Tempat

Dengan Hormat,
Melalui surat ini saya selaku karyawan PT......... berdasarkan Surat Kesepakatan Bersama ( SKB) tentang kekaryawanan dan Undang - Undang tenaga kerja maka saya yang bertanda tangan dibawah ini.

Nama : .........
Departemen :
Jabatan : ........
No Karyawan :

Mengajukan pengunduran diri dari PT....................... dengan alasan kesehatan dan keluarga.....(sebutkan alasan lan sesuai dengan kondisi anda).... Surat ini saya buat sesuai prosedur hubungan indistrial dan tanpa motivasi negatif. Saya berharap perusahaan dapat memahami kondisi saya dan memberikan hak -hak saya sesuai ketentuan yang berlaku.

Demikian surat pengunduran diri ini saya buat dengan sesungguhnya. atas bantuan dan dukungan yang telah diberikan selama ini, saya ucapkan terima kasih.


Hormat Saya,
Yogyakarta, ...,......, 2009

(........................)

CONTOH SURAT LAMARAN KERJA

Hal : Lamaran Pekerjaan

Kepada Yth.,
Manajer Kucheng Group
PT. Kucheng Group
Jl. Codot Loncat No 104
Jakarta


Dengan hormat,

Sesuai dengan informasi lowongan pekerjaan dari PT. Kucheng Group yang termuat di WEB Tourworldinfo Community tanggal 28 Januari 2012. Saya mengajukan diri untuk bergabung ke dalam Tim Marketing di PT. Kucheng Group.

Data singkat saya, seperti berikut ini.
Nama : ......................................
Tempat, tgl. lahir : ........................................
Pendidikan Akhir : ......................................
Alamat : ......................................
Telepon (HP) : ......................................
e-mail : ......................................
Status Perkawinan : ......................................


Saya memiliki kondisi kesehatan yang sangat baik, dan dapat berbahasa Inggris dengan baik secara lisan maupun tulisan. Latar belakang pendidikan saya sangat memuaskan serta memiliki kemampuan manajemen dan marketing yang baik. Saya telah terbiasa bekerja dengan menggunakan komputer. Terutama mengoperasikan aplikasi paket MS Office, seperti Excel, Word, Acces, PowerPoint, OutLook, juga internet, maupun surat-menyurat dalam Bahasa Inggris.

Sebagai bahan pertimbangan, saya lampirkan :

Daftar Riwayat Hidup.
Foto copy ijazah S-1 dan transkrip nilai.
Foto copy sertifikat kursus/pelatihan.
Pas foto terbaru.

Saya berharap Bapak/Ibu bersedia meluangkan waktu untuk memberikan kesempatan wawancara, sehingga saya dapat menjelaskan secara lebih terperinci tentang potensi diri saya.

Demikian surat lamaran ini, dan terima kasih atas perhatian Bapak/Ibu.

Hormat saya,


Wily Ahmadi

Contoh Surat Pengunduran Diri

Dengan Hormat,
Saya yang bertanda tangan dibawah ini :

Nama : R.Ikhsan Muftikusuma
Jabatan : Sales executive R2
Kode Wiraniaga : R I M

Dengan ini bermaksud mengajukan pengunduran diri dari P.T INDOMOBIL MULTI TRADA, dikarenakan kurang memberikan kontribusi yang baik untuk perusahaan. Dengan kata lain tidak mencapai target penjualan sesuai dengan standar dan prosedur yang berlaku diperusahaan.

Demikian surat pengunduran diri ini, atas bantuan dan dukungan yang telah diberikan, saya ucapkan terima kasih banyak.




Hormat Saya,
Tangerang, 9 April 2007

Contoh Surat Pengunduran Diri

_______,  ___  _______ 2010

Kepada,
Yth. _____________
PT _______________
Jln. ______________

Dengan hormat,
Surat ini dibuat untuk menyampaikan informasi mengenai pengunduran diri saya dari jabatan yang sedang saya pegang sekarang ini. Hari terakhir saya bekerja akan efektif berlaku sejak tanggal pengunduran diri ini dibuat. Saya telah membuat ikatan perjanjian kontrak dengan perusahaan yang baru.

Terima kasih tak terhingga saya ucapkan untuk bimbingan dan dukungan penuh Anda selama masa kerja saya di perusahaan ini. Saya telah mendapatkan banyak keahlian baru selama itu dan keahlian ini akan menjadi nilai besar bagi karir saya berikutnya.
Hormat saya,

…………………….

Contoh Surat Pengunduran Diri

Jakarta,…………………
Kepada Yth.
HRD …………..
Jakarta
Dengan hormat,
Melalui surat ini saya ( Nama Terang) mengajukan permohonan mengundurkan diri sebagai karyawan (PT. ………….) terhitung tanggal ……………...

Saya menghaturkan terima kasih atas kesempatan yang telah diberikan untuk belajar dan bekerja di PT………… sebagai suatu perusahaan besar di bidang ……….. selama kurang lebih 5 tahun.

Tak lupa saya mohon maaf kepada jajaran manajemen PT. ………….. apabila terdapat hal-hal yang tidak baik yang telah saya lakukan selama bekerja di PT. ………….
Saya berharap dan berdo'a agar PT. ……… dapat terus berkembang dan selalu mendapatkan yang terbaik.

Hormat saya,

(Nama Terang)

Contoh Tentang Pengurutan Program

proGram menguruTkan Bilangan (pascaL)

Program Urut_Bilangan;

Uses Wincrt;

Var A,B,C:integer;

Begin

Writeln('Program Mengurut Bilangan');

Writeln('=========================');

Writeln;

Write('Masukkan Nilai A: ');readln(A);

Write('Masukkan Nilai B: ');readln(B);

Write('Masukkan Nilai C: ');readln(C);

Writeln;

if (A

if (B

Writeln(A,' ',B,' ',C)

else

Writeln(A,' ',C,' ',B)

else if (B

if (A

Writeln(B,' ',A,' ',C)

else

Writeln(B,' ',C,' ',A)

else if (C

if (A

Writeln(C,' ',A,' ',B)

else

Writeln(C,' ',B,' ',A)

End.

program BUBBLESHORT_VINO;

uses crt;

type

datasiswa=string[35];

var

i,j,n:byte;

temp:datasiswa;

nama:array[1..40] of datasiswa;

T:boolean;

jwb:char;

begin

repeat

T:=false;

clrscr;

write('masukkan jumlah siswa:');readln(n);

writeln('data semula:');

for i:=1 to n do

begin

write(i:2,'.');

readln(nama[i]);

end;

for i:=1 to n-1 do

for j:=i to n do

if nama[i]>nama[j] then

begin

temp:=nama[i];

nama[i]:=nama[j];

nama[j]:=temp;

end;

writeln;

writeln('data setelah diurutkan:');

writeln;

for i:=1 to n do

writeln(i:2,'.',nama[i]);

write('Akan Proses Lagi [Y/T] :');readln(jwb);

until upcase(jwb)='T';

end.

Mengurutkan Data Pascal

Written by the-kiel   

Thursday, 10 March 2011 01:59

program urut_data;

uses crt;

var

d       : array [1..100] of integer;

c       : string;

i,n,k,s : integer;

begin

clrscr;

write ('Masukan jumlah data yang akan di urutkan : ');

read  (n);

writeln;

i := 0;

while i < n do

begin

i := i + 1;

write ('masukan data ke ',i,' : ');

read  (d[i]);

end;

k := 0;

while k < n - 1 do

begin

k := k + 1;

i:=0;

while i < n - 1 do

begin

i := i + 1;

if d[i] > d[i + 1] then

begin

s        := d[i + 1];

d[i + 1] := d[i];

d[i]     := s;

end;

end;

end;

writeln;

write ('Urutannya adalah : ');

i := 0;

while i < n do

begin

i := i + 1;

write (d[i],' ');

end;

c:= readkey;

readln;

end.