Senin, 08 Oktober 2012

Kumpulan Program Pascal

Kumpulan program pascal ini merupakan kumpulan latihan saat penulis belajar bahasa pemrograman pascal. Penulis menggunakan Turbo Pascal for Windows (TPW) Versi 1.5 sebagai kompilernya. Mungkin ada kekurangan disana sini, tapi mudah-mudahan kumpulan program ini bermanfaat bagi pembaca yang berminat dan baru mempelajari bahasa pemrograman pascal.

Pascal merupan salah satu program yang terkemuka karena struktur penulisannya yang mengalir seperti algoritma, saat ini kita akan mempelajari pascal 1.5 (TPW 1.5). 
Sebelum itu perhatikan keterangan berikut ini struktur dasarnya.

1. Program namaprogram; ==> Judul Program
2. Var jenis : variable; ==> Jenis Variabel
3. Begin ; ==> Memulai Program
4. Clrscr ==> Membersihkan Layar (boleh digunakan dan tidak)
5. Isi ==> Isi Program
6. End. ==>Akhir Program

Sintak dari pascal :
  • Write => Menulis/menampilkan keluaran ke layar monitor sedangkan kursor tetap di baris yang sama.
  • Writeln => Menulis/menampilan keluaran ke layar monitor sedangkan kursor pindah ke baris berikutnya.
  • Read => Menginput data/membaca masukan dari keyboard sedangkan kursor tetap di baris yang sama .
  • Readln => Menginput data/membaca masukan dari keyboard sedangkan kursor pindah ke baris berikutnya.
  •  Var  => variable
Contoh-contoh Program :
> Program Menampilkan Tulisan
program menampilkan;
uses wincrt;
begin
        write ('Selamat datang di dunia pascal');
end.

> Program Membuat Komentar
program komentar;
uses wincrt;
begin
        clrscr; {ini adalah komentar dan tidak akan di eksekusi oleh program}
        writeln ('mencoba menuliskan komentar program');
        {ini (*juga*) komentar sehingga tidak akan ditampilkan di dalam hasil keluaran}
        readln;
end.

 > Program Menginput Data
program input_data;
uses wincrt;
var
   nama : string;
begin
write ('Masukan Nama : ');
Read (nama);
clrscr;
Write ('Selamat Datang ',nama);
end.


> Program Penjumlahan
program penjumlahan_langsung;
uses wincrt;
var
a,b,c:integer;
begin
a:=20;
b:=25;
c:=a+b;
writeln('c=',c)
end.

> Program Runtunan
program runtunan;
uses wincrt;
var
   a,b : integer ;
begin
a:=5;
b:=12;
a:=a+2;
b:=a+2;
a:=a+b;
Writeln ('A : ',a);
end.
============
program runtunan;
uses wincrt;
var
   a,b:integer;
begin
a:=10;
a:=a*2;
b:=a;
b:=b+a;
writeln (b);
end.

> Program Menentukan Nilai Terbesar
program X_lebih_besar_daripada_Y;
uses wincrt;
var
   x,y: integer;
begin
     clrscr;
     write ('Masukan Nilai X = ');
     readln (x);
     write ('Masukan Nilai Y = ');
     readln (y);
     if ( x > y ) then   
     writeln ('Nilai ',x, ' lebih besar daripada ',y);                 
     readln;
end.

> Program Akar
program akar;
uses wincrt;
var
a,b,c:integer;(*variable x dengan tipe integer*)
nama:string[25];{variable nama dengan tipe string}
d:real;
begin
     a:=9;
     b:=4;
     c:=a div b;
writeln (c);
d:=sqrt(a);
write(d:0:0);
end.

>Program If
program latihan_if;
uses wincrt;
var
   bilangan : integer;
begin
     clrscr;
     write ('Masukan Bilangan = ');
     readln (bilangan);
     if ( bilangan > 0) then
     writeln ('Bilangan Positif');
end.
====================
program if_dua_kasus;
uses wincrt;
var
   nama : string;
   nilai : integer;
begin
     write ('Nama Siswa : ');
     readln (nama);
     write ('Nilai Angka : ');
     readln (nilai);
if ( nilai > 55 ) then begin
   writeln ('Hasil : Anda Lulus Selamat Ya');   
end else
   if (nilai <55 br="br" then="then" writeln="writeln">   writeln ('Hasil : Maaf anda tidak lulus');
end.
==================
program if_tiga_kasus;
uses wincrt;
var
   nama : string;
   nilai : integer;
begin
     write ('Masukan Nama       : ');
     readln (nama);
     write ('Masukan Nilai      : ');
     readln (nilai);
if (nilai >=85) then begin
   writeln ('A');
   end
   else
if (nilai >=75 ) then begin
   writeln ('B');
   end
   else
if (nilai >=50) then begin
   writeln ('C');
   end;
end.                       

>  Program dengan menggunakan AND
program and_inputgaji_karyawan;
uses wincrt;
var
nama, jenis_kelamin, status : string;
jumlah_anak: integer;
begin

write ('Nama    : ');
readln (nama);
write ('Jenis Kelamin ( P/L) : ');
readln (jenis_kelamin);
write ('Status (M/S)   : ');
readln (status);
write ('Jumlah Anak : ');
readln (jumlah_anak);

if (jenis_kelamin= 'L') and (status = 'M') and ( jumlah_anak <=3) then
writeln ( 'Mendapatkan Tunjangan',jumlah_anak*35000)
else
writeln ( 'Tidak Mendapatkan Tunjangan')
end.

> Program OR
Program latihan_or;
uses wincrt;
var
   nama : string;
   toefl1, toefl2, toefl3 : integer;
begin
Write ('Nama    : ');
readln (nama);
write ('Toefl1  : ');
readln (toefl1);
write ('Toefl2  : ');
readln (toefl2);
write ('Toefl3  : ');
readln (toefl3);

Writeln ('------------------------');

if (toefl1>=400) or (toefl2>=400) or (toefl3>=400) then
writeln ( ' ANDA LULUS ')
else
write ('ANDA TIDAK LULUS ')
end.

> Program Gaji Karyawan
Program gaji_karyawan;
uses wincrt;
var
        upah_lembur,upah_kerja,hari_kerja,jam_lembur,a,b:real;
        nama,jabatan,golongan:string;
        gj_kotor,pjk,gj_bersih:real;
begin
upah_lembur:=7500;
upah_kerja:=50000;
writeln('                              Program Gaji Karyawan');
writeln;
write('Nama             = ');
readln(nama);                
write('Jabatan          = ');
readln(jabatan);
write('Golongan         = ');
readln(golongan);
write('Hari kerja       = ');
readln(hari_kerja);
write('Jam Lembur       = ');
readln(jam_lembur);
clrscr;
a:=upah_kerja*hari_kerja;
b:=upah_lembur*jam_lembur;
gj_kotor:=a+b;
pjk:=0.1*gj_kotor;
gj_bersih:=gj_kotor-pjk;

writeln ('Nama Anda           = ',nama);
writeln ('Jabatan             = ',jabatan);
writeln ('Golongan            = ',golongan);
writeln ('Gaji Bersih Anda    = ',gj_bersih :0:0);
end.
=====================================
program Hitung_Gaji;
uses wincrt;
var
   Nama, Jabatan: string;
   Gaji_Direktur,Gaji_Manager,Gaji_Karyawan,Gaji_OB:longint;
   Tunjangan_Direktur, Tunjangan_Manager,Tunjangan_Karyawan,Tunjangan_OB,PPN_DIrektur,PPN_Manager,PPN_Karyawan,PPN_OB:real;
begin
     writeln ('Program Gaji Karyawan');
     writeln ('---------------------');
     write ('Nama        : ');
     Readln (Nama);
     write ('Jabatan     : ');
     Readln (Jabatan);                                      

     Gaji_Direktur:=3000000;
     Gaji_Manager:=2000000;
     Gaji_Karyawan:=1000000;               
     Gaji_OB:=800000;

     Tunjangan_Direktur:=0.10*Gaji_Direktur;
     Tunjangan_Manager:=0.05*Gaji_Manager;
     Tunjangan_Karyawan:=0.02*Gaji_Karyawan;
     Tunjangan_OB:=0.01*Gaji_OB;

     PPN_Direktur:=0.10*Gaji_Direktur;              
     PPN_Manager:=0.10*Gaji_Manager;
     PPN_Karyawan:=0.10*Gaji_Karyawan;
     PPN_OB:=0.10*Gaji_OB;

     if (Jabatan= 'Direktur') or (Jabatan= 'direktur') or (Jabatan= 'DIREKTUR') then begin
        writeln ('Gaji        = Rp. ',Gaji_Direktur);
        writeln ('Tunjangan   = Rp. ',Tunjangan_Direktur:0:0);
        writeln ('PPN 10%     = Rp. ', PPN_Direktur:0:0);
        writeln ('Gaji Bersih = Rp. ',Gaji_Direktur+Tunjangan_Direktur-PPN_Direktur:0:0);
     end
     else
     if (Jabatan= 'Manager') or (Jabatan= 'manager') or (Jabatan= 'MANAGER') then begin
        writeln ('Gaji        = Rp. ',Gaji_Manager);
        writeln ('Tunjangan   = Rp. ',Tunjangan_Manager:0:0);
        writeln ('PPN 10%     = Rp. ', PPN_Manager:0:0);
        writeln ('Gaji Bersih = Rp. ',Gaji_Manager+Tunjangan_Manager-PPN_Manager:0:0);
     end
     else
     if (Jabatan= 'Karyawan') or (Jabatan= 'karyawan') or (Jabatan= 'KARYAWAN') then begin
        writeln ('Gaji        = Rp. ',Gaji_Karyawan);
        writeln ('Tunjangan   = Rp. ',Tunjangan_Karyawan:0:0);
        writeln ('PPN 10%     = Rp. ', PPN_Karyawan:0:0);
        writeln ('Gaji Bersih = Rp. ',Gaji_Karyawan+Tunjangan_Karyawan-PPN_Karyawan:0:0);
     end
     else
     if (Jabatan= 'Ob') or (Jabatan= 'ob') or (Jabatan= 'OB') then begin
        writeln ('Gaji        = Rp. ',Gaji_OB);
        writeln ('Tunjangan   = Rp. ',Tunjangan_OB:0:0);
        writeln ('PPN 10%     = Rp. ', PPN_OB:0:0);
        writeln ('Gaji Bersih = Rp. ',Gaji_OB+Tunjangan_OB-PPN_OB:0:0);
     end;
     writeln ('-------------------------')
end.

> Program Case Of
program nilai_case;
uses wincrt;
var
   nilai:char;
begin

write ('Masukan nilai : ');
readln(nilai);

case (nilai) of
'A'..'a': write ('Sangat Baik');
'B'..'b' : write ('Baik');
'C'..'c' : write ('Cukup');
end;
end.
=====================
program case_bioskop;
uses wincrt;
var
   studio : integer;
begin
writeln ('JADWAL FILM STUDIO');
writeln (' 1 : XX1');
writeln (' 2 : 21 ');
writeln (' 3 : Layar Tancap ');
write ('Masukan pilihan studio : ');
readln(studio);

case ( studio ) of
1 : begin
writeln ( 'Terminator');
writeln('Pocong 1');
writeln ('Kungfu panda'); end;
2 : begin
writeln ('Kucing bunting');
writeln ('Derita anak kos');
writeln ('Kungfu panda'); end;
3 : begin
writeln ('Kuntilanak');
writeln ('Jelangkung');
writeln ('Pulau hantu');
end;
end;
end.
==========================
program haricase;
uses wincrt;
var
   hari : integer;
begin

write ('Masukan hari ke : ');
readln(hari);

case (hari) of
1:write('Senin');
2:write('Selasa');
3:write('Rabu');
4:write('Kamis');
5:write('Jumat');
6:write('Sabtu');
7:write('Minggu');
end;
end.
===========================
program nilai_case;
uses wincrt;
var
   nilai:char;
begin

write ('Masukan nilai : ');
readln(nilai);

case (nilai) of
'a'..'z': write ('Sangat Baik');

end;
end.
=======================


> Program Case If
program case_if;
uses wincrt;
var
   kode    : char;
   ukuran  : integer;
begin
writeln ('========[PILIHAN PRODUK]========');
writeln ('A. Susu Dancow');
writeln ('   1. ukuran kecil');
writeln ('   2. ukuran sedang');
writeln ('   3. ukuran besar');
writeln ('B. Susu Bendera');
writeln ('   1. ukuran kecil');
writeln ('   2. ukuran sedang');
writeln ('   3. ukuran besar');
writeln ('A. Susu SGM');
writeln ('   1. ukuran kecil');
writeln ('   2. ukuran sedang');
writeln ('   3. ukuran besar');
Writeln ('==================================');
write   ('Masukan kode jenis : ');
readln  (kode);

case (kode) of
'A':
begin
    writeln('Susu Dancow');
    write ('Pilih Jenis ukuran : ');
    readln(ukuran);
if (ukuran =1) then
begin   writeln ('ukuran kecil');
        writeln ('15000');
end
else
if (ukuran =2) then
begin
writeln ('ukuran sedang');
writeln ('18500');
end
else
if (ukuran = 3) then
begin
writeln ('ukuran besar');
writeln ('35000');
end

end;

end;
end.





> Program Go To Ulang
program gotoulang;
uses wincrt;
label ulang ;
var
   bil1,bil2 : integer;
   opr : char;
begin
ulang:
clrscr;
write ('Masukan Bilangan 1 : ');
readln ( bil1);
write  ( 'Masukan Bilangan 2 : ');
readln (bil2);
writeln  ('----------------');
write  ('Pilih Operasi : ');
readln (opr);
writeln  ('----------------');
case (opr) of
'+' : write ('Hasil Penjumlahannya adalah ', bil1+bil2);
'-' : write ('Hasil Pengurangannya adalah ',bil1-bil2);
'*' : write ('Hasil Pengaliannya : ',bil1*bil2);
'/' : write ('Hasil Pembagiannya adalah ',bil1/bil2);
end;
readln;
goto ulang;
end.

> Program Ganjil Genap
program ganjil_genap;
uses wincrt;
var
   bil, sisa : integer;
begin
     write ('Masukan sebuah bilangan : ');
     readln (bil);
sisa := bil mod 2;
if sisa = 0 then
   begin                                                     
   writeln ('Bilangan Genap');
   end
   else
    writeln ('Bilangan Ganjil');
end.




Jumat, 05 Oktober 2012

Usaha Warnet

Tahukah anda bahwa Usaha Warnet dan Games Online merupakan usaha yang menguntungkan dan bermanfaat ?? Mengapa demikian ? 

  1. Kebutuhan akan internet dan Games Online yang semakin besar dimana baru sebagian kecil dari penduduk di Indonesia yang telah menikmati internet dan diperkirakan kebutuhan internet dan games online akan semakin besar. 
  2. Semakin seringnya dan luasnya orang yang mengakses situs internet seperti facebook dan twitter baik muda maupun tua, sehingga kebutuhan akan internet dan warnet semakin pesat. 
  3. Pesaing yang masih sedikit terutama di daerah 
  4. Tingginya minat anak dan remaja di Indonesia untuk bermain bersama-sama dengan temannya di Warnet dan Games Online 
  5. Munculnya warnet di suatu daerah akan memicu berkembangnya ilmu pengetahuan di daerah tersebut. 
  6. Cepatnya rasio balik modal untuk usaha warnet dengan sistem yang baik 
  7. Tidak semua orang bisa membuat warnet dengan baik karena itu tingkat persaingan masih kurang

Berikut ini adalah beberapa hal yang harus dipersiapkan dan dipertimbangkan untuk memulai usaha warnet anda : 

1. Pemilihan lokasi 
Lokasi yang umumnya sangat strategis untuk usaha warnet/internet cafĂ© dekat lokasi sekolah /kampus, atau dekat dengan pusat keramaian ( tempat nongkrong ). Sebagian pihak menyebut bahwa berlokasi dekat dengan kegiatan mahasiswa menguntungkan bagi Warnet. Alternatif pengunjung lain adalah kelompok pekerja. Lokasi sangat penting karena bisa dijadikan tolak ukur keberhasilan usaha warnet ini.

2. Pemilihan warnet jenis game atau non-games 
Pilihan ini yang menuntut kita untuk terjun langsung ke lapangan, dengan mencari informasi tentang jenis warnet apa yang sekiranya tepat untuk dibuka. Warnet jenis non-games biasanya tidak perlu spesifikasi komputer yang tinggi seperti halnya untuk warnet jenis game haruslah mempunyai spesifikasi komputer yang tinggi untuk memberikan kenyamanan kepada pemain games ( gamers ).
Namun memang secara kasat mata, warnet jenis game inilah yang lebih ramai. Jadi seharusnya kita memilih keduanya karna dengan kita memilih keduanya dan pasti warnet akan ramai peminatnya. 
Menurut saya, dengan spesifikasi komputer yang tinggi ( untuk games ) komputer itu nanti akan bisa digunakan untuk games dan non games. 
Dan apabila anda ingin dan mempunyai jalan lain bisa juga antara komputer games dan non-games bisa dipisahkan tentunya.

3. Jumlah komputer
Investasi komputer dalam jumlah banyak adalah faktor penting berikutnya. Selain tingkat utilisasi pemakaian koneksi Internet lebih tinggi, jumlah komputer yang memadai akan menghindarkan pengunjung dari menunggu terlalu lama atau meninggalkan Warnet. Konsekuensi jumlah komputer ini diikuti oleh investasi yang lebih besar untuk ongkos koneksi Internet.

4. Komputer (Hardware & Software)
Untuk komputer (khusus untuk warnet), carilah komputer yang layak namun tidak mahal. Carilah sesuai spesifikasi dan kebutuhan yang pas karena di warnet pasti user yang datang hanya untuk sekedar browsing atau chatting. Untuk software gunakan yang asli.

5. Network / Jaringan
Jaringan yang digunakan menggunakan topogfari jaringan type STAR. Untuk jenis networknya menggunakan jenis LAN (Local Area Network). Beberapa perlatan standar yang dibutuhkan  antara lain : HUB atau SWITCH HUB, 1 PC untuk dijadikan router , dan cable network (sebaiknya dibeli 1 rol untuk persiapan/penggantian kabel nantinya) , ethernet card atau sering disebut LAN card dan juga connector (RG 45).

6. Biaya listrik
Biaya listrik per bulan ditentukan oleh kebutuhan listrik dari warnet tersebut. Untuk memperkirakan biaya listrik yang wajar tentu harus di analisa dulu seberapa besar kebutuhan daya listrik. Untuk 10 unit komputer, disarankan adalah minimal 6600 watt. Perkiraan biaya listrik untuk daya sebesar itu biasanya berada di kisaran Rp 900.000 s/d Rp 1.500.000 per bulan.

7. Biaya koneksi per bulan
Pilihan koneksi sangat beragam dan bergantung kepada lebar bandwidth, media koneksi, kualitas dll. Lebih baik untuk menentukan dulu kebutuhan bandwidth anda baru berbicara biaya koneksi. Untuk mengetahui berapa biaya koneksi per bulan dapat dilihat dari situs-situs ISP di Indonesia.

Dan tidak lupa juga kita memerlukan warnet yang bermutu dan berkualitas dan nyaman. Seperti :

1. Komputer 
Komputer yang akan kita pilih untuk setiap client haruslah memenuhi persyaratan yang baik, bukannya asal komputer yang penting murah. Komputer yang baik adalah komputer yang compatible dengan aplikasi-aplikasi baru sekarang ini. Komputer yang baik adalah komputer yang fisik dari hardware itu sendiri masih bisa bertahan minimal 4 tahun kedepan. Untuk hal ini, kami sudah memilihkan paket komputer yang memang recomended untuk diterapkan di warnet-warnet.

2. Bilik / Box / Meja Client
Adakalanya kita membutuhkan privacy kita dihormati. Sama halnya dengan warnet, berilah kenyamanan privacy kepada setiap client Anda saat bermain, berilah ruang yang sekiranya mereka bisa nyaman bermain, hingga akhirnya betah berlama-lama bermain. Bukankah ini akan berdampak baik untuk warnet yang kita kelola ?
Namun satu hal perlu diperhatikan, hindari pembuatan box / bilik yang 70% tertutup, hal ini untuk menghindari penyalahgunaan tempat.

3. Service 
Service yang baik adalah warnet yang lengkap fasilitasnya. Warnet yang bisa menyediakan minuman dingin, snack, toilet bahkan mushola. Warnet yang menyediakan jasa : printer, scanner, cetak photo dan masih banyak lagi. Salah satu faktor yang harus diperhatikan adalah Operator Warnet, cari Operator yang berpengalaman atau paling tidak memiliki pengetahuan tentang komputer dan sudah terbiasa menggunakan komputer, hal ini akan mempermudah dalam perawatan dan penanganan jika suatu saat terjadi masalah pada warnet Anda.

Dengan Point-point diatas, kami berharap warnet Anda bisa menjadi warnet favorite, menjadi warnet yang berkualitas.