Cara Kerja Bluetooth

Cara Kerja Bluetooth
             Bluetooth adalah suatu teknologi baru yang mulai dikenal dan digunakan. Teknologi ini memberikan perubahan yang signifikan terhadap peralatan elektronik yang kita gunakan. Jika kita melihat sekeliling kita dimana keyboard dihubungkan pada komputer. Demikian juga halnya dengan printer, mouse, monitor dan lain sebagainya. Semua peralatan itu dihubungkan dengan menggunakan kabel. Akibatnya terjadi

Menghitung gaji Karyawan menggunakan pascal

Program Menghitung_Gaji_Karyawan;
Uses Wincrt;
Var
Nama_Karyawan:string;
Gaji_Pokok:real;
Jumlah_Anak:longint;
Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real;
Begin
Write ('Masukkan Nama Karyawan: ');readln (Nama_Karyawan);
Write ('Masukkan Gaji Pokok=Rp ');readln (Gaji_Pokok);
Write ('Masukkan Jumlah anak= ');readln (Jumlah_Anak);
Tunjangan_Istri:=0.15*Gaji_Pokok;
Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok;
Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak;
Pajak:=0.15*Gaji_Keseluruhan;
Gaji_Akhir:=Gaji_Keseluruhan-Pajak;
Writeln ('Tunjangan Istri =Rp ',(Tunjangan_Istri):15:2);
Writeln ('Tunjangan anak =Rp ',(Tunjangan_Anak):15:2);
Writeln ('Gaji Keseluruhan =Rp ',(Gaji_Keseluruhan):15:2);
Writeln ('Pajak =Rp ',(Pajak):15:2);
Writeln ('Gaji Akhir =Rp ',(Gaji_Akhir):15:2);
End.

Membuat Aplikasi bangun Ruang dengan Pascal

Ini adalah latihan kuliah ane waktu semester 1... membuat Aplikasi Bangun ruang menggunakan pascal.


PROGRAM Latihan_besar;
USES wincrt;
var pilih:integer;
PROCEDURE PERSEGI;
VAR S,K,L:REAL;
BEGIN
     WRITELN('Program Luas dan keliling persegi');
     WRITE('Masukkan sisi = ');
     readln(s);
     L:=S*S;
     K:=4*S;
     WRITELN('Luas = ',L:0:0);
     WRITELN('Keliling = ',0:0);
     readln;
     end;
PROCEDURE PERSEGI_PANJANG;
VAR Pj,Lbr,L,K:real;
BEGIN
     WRITELN('Program Luas dan Keliling Persegi panjang');
     WRITE('Masukkan panjang = ');readln(pj);
     WRITE('Masukkan lebar = ');readln(lbr);
     L:=pj*lbr;
     K:=2*(PJ+lbr);
     WRITELN('Luas = ',L:0:0);
     WRITELN('Keliling = ',K:0:0);
     readln;
     end;
PROCEDURE KUBUS;
VAR Volume,s,luas_permukaan:real;
BEGIN
     WRITELN('Program menghitung volume dan luas permukaan kubus ');
     WRITE('Masukkan sisi = ');readln(s);
     Volume:=s*s*s;
     Luas_permukaan:=6*s*s;
     WRITELN('Volume kubus = ',volume:0:0);
     WRITELN('Luas permukaan = ',luas_permukaan:0:0);
     readln;
     end;
PROCEDURE BALOK;
VAR Panjang,lebar,tinggi,Volume,luas_permukaan:real;
BEGIN
     WRITELN('Menghitung volume dan luas permukaan balok');
     WRITE('Masukkan panjang = ');readln(panjang);
     WRITE('Masukkan lebar = ');readln(lebar);
     WRITE('Masukkan tinggi = ');readln(tinggi);
     Volume:=panjang*lebar*tinggi;
     luas_permukaan:=(2*panjang*lebar)+(2*panjang*tinggi)+(2*lebar*tinggi) ;
     WRITELN('Volume balok = ',volume:0:0);
     WRITELN('Luas permukaan balok = ',luas_permukaan:0:0);
     Readln;
     end;
PROCEDURE BIODATA;
BEGIN
     WRITELN('            -------------');
     WRITELN('             BIODATA SAYA');
     WRITELN('            -------------');
     WRITELN('Nama               : Achmad Arief Billah');
     WRITELN('TTL                : New york, 25 Desember 1991');
     WRITELN('Jenis Kelamin      : Laki-laki');
     WRITELN('Agama              : Islam');
     WRITELN('Nama Ayah          : Suyanto');
     WRITELN('Nama Ibu           : Sunarni');
     WRITELN('Alamat             : Jl Kebangkitan Nasional Gg. Merapi Indah 1');
          Readln;
     END;
PROCEDURE PENDIDIKAN;
BEGIN
     WRITELN('-----------------');
     WRITELN('DAFTAR PENDIDIKAN');
     WRITELN('----------------- ');
     WRITELN(' ');
     WRITELN('SDN 24  Pontianak tamat tahun 2003');
     WRITELN('SMPN 7  Pontianak tamat tahun 2006');
     WRITELN('SMAN 5  Pontianak tamat tahun 2009');
     writeln(' ');
     WRITELN('------------------------');
     WRITELN('DAFTAR PERGURUAN TINGGI');
     WRITELN('------------------------');
     WRITELN('POLITEKNIK NEGERI PONTIANAK');
     WRITELN('UNIVERSITY OF HARVARD');
     Readln;
     END;
PROCEDURE Bangun_datar;
VAR PILIH:INTEGER;
BEGIN
REPEAT
      CLRSCR; 
      WRITELN('---------------------------------');
      WRITELN('SATU-SATUNYA PROGRAM DIBATULAYANG');
      WRITELN('LEBIH CEPAT DARI KURA-KURA ninja');
      WRITELN('--------------------------------- ');
      WRITELN(' ');
      WRITELN(' ');
      WRITELN('PILIH PROGRAM');
      WRITELN('1) Mengitung luas dan keliling persegi');
      WRITELN('2) Mengitung luas dan keliling persegi panjang');
      WRITELN(' ');
      WRITELN(' ');
      write('pilih programnya = ');
      readln(pilih);
      CASE PILIH OF
      1:PERSEGI;
      2:PERSEGI_PANJANG;
      end;
      UNTIL PILIH = 2;
      END;
PROCEDURE Bangun_ruang;
BEGIN
REPEAT
      CLRSCR;
      WRITELN('-------------------------------------');
      WRITELN('SATU-SATUNYA PROGARM DIMERAPI INDAH I');
      WRITELN('  LEBIH AMPUH, KUAT DAN BERTENAGA    ');
      WRITELN('-------------------------------------');
      WRITELN('  ');
      WRITELN('Pilih programnya');
      WRITELN('1) Mengitung kubus');
      WRITELN('2) Mengitung Balok');
      WRITELN(' ');
      WRITELN(' ');
      WRITE('PILIHLAH PROGRAM = ');
      READLN(PILIH);
      CASE PILIH OF
      1:kubus;
      2:balok;
      end;
UNTIL pilih = 2
END;
PROCEDURE PROFIL;
var PILIH:INTEGER;
BEGIN
REPEAT
      CLRSCR;
      WRITELN(' --------------------------');
      WRITELN(' MANA YANG INGIN ANDA LIHAT');
      WRITELN(' --------------------------');
      WRITELN('1) Biodata');
      WRITELN('2) Pendidikan');
      writeln(' ');
      WRITELN(' ');
      write('pilih program = ');
      WRITELN(' ');
      readln(PILIH);
      CASE PILIH OF
      1:Biodata;
      2:Pendidikan;
      end;
      UNTIL PILIH = 2
END;

BEGIN
REPEAT
CLRSCR;

      
       WRITELN('------------------------------------------------------');
       WRITELN('INILAH PROGRAM JITU PERTAMA DAN TERUTAMA DIBATULAYANG');
       WRITELN('            TELAH HADIR DIKOTA ANDA !!!!!!');
       WRITELN('------------------------------------------------------');
       WRITELN(' ');
       WRITELN(' ');
       WRITELN('-------------------') ;
       WRITELN('DAFTAR MENU PROGRAM');
       WRITELN('-------------------');
       WRITELN('1) Program Bangun Datar');
       WRITELN('2) Program Bangun Ruang');
       WRITELN('3) Profil Saya');
       WRITELN(' ');
       WRITELN(' ');
       WRITELN(' ');
       WRITELN(' ');
       WRITE('Ketik nomor pilihan Anda = ');
       Readln(pilih);
       case pilih of
       1:Bangun_Datar;
       2:Bangun_Ruang;
       3:Profil;
       END;
       until pilih = 5;
      
END.