DOWNLOAD INTEGRAL TAK WAJAR

    salam sejahtera untuk kita semua, pada kali ini saya akan share materi tentang Integral tak wajar, bagi yang berminat langung saja eksekusi klik text under line diwawah ini. terima kasih.

Download Integral Takwajar.Pdf

Read More

DOWNLOAD MODUL ALGORITMA

   

sesuai judulnya algoritma & pemerograman, tapi maaf bukan share seperti buku di atas melainkan modul algoritma dan pemerograman yang didalamnya tidak jauh beda dengan buku pada gambar di atas tadi.

 silahkan anda bisa download di link berikut semoga bermanfaat dan salam programer Download Modul ALgoritma.Pdf

Read More

CONTOH ALGORITMA SHORTING DALAM BAHASA PASCAL

Sorting atau pengurutan data adalah proses untuk menyusun kumpulan data yang seragam menjadi susunan tertentu. Kumpulan data diurutkan secara Ascending (Urut Menaik), yaitu dari data yang nilainya secara Descending (Urut Menurun), yaitu dari data yang nilainya paling besar sampai data yang nilainya paling kecil.

A. Metode – metode Sorting :

a) Bubble Sort

Pengurutan model ini mengambil ide dari gelembung air, yaitu mengapungkan elemen yang bernilai kecil dari bawah ke atas. Proses pengapungan dilakukan dengan pertukaran elemen-elemen tabel.

Apabila kita menginginkan array terurut menaik, maka elemen array yang berharga paling kecil “diapungkan” artinya diangkat ke “atas” (atau ke ujung kiri array) melalui proses pretukaran. Proses pengapungkan ini dilakukan sebanyak n-1 langkah (satu langkah disebut satu kali pass) dengan n adalah ukuran array.

program arh_bsort_menaik;

uses crt;

var i,n,j : integer;

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

procedure buble;

var z: integer;

     begin

          for i:= 1 to n-1 do

          begin

                  for j:= n downto i+1 do

                     begin

                             if a[j] < a[j-1] then

                              begin

                                      z:= a[j];

                                      a[j]:= a[j-1];

                                      a[j-1]:=z;

                               end;

                      end;

           end;

     end;

begin

write('masukkan banyak larik (maks 100) : '); readln(n);

for i:= 1 to n do

       begin

            write('A[',i,'] : '); readln(a[i]);

       end;

         buble;

 write('data setelah diurutkan : ');

  for j:=1 to n do

                  write (a[j],' ');

 end.

b) Insertion sort

   Pengurutan model ini dengan membuat cara menyisipkan program semacam algoritma pascalInsertion Urutkan sedikit lebih efisien dibandingkan algoritma pengurutan Bubble Sort. Seperti namanya menyiratkan, yang memasukkan algoritma insertion sort item unsorted dalam daftar item yang sudah diurutkan. Hal ini membuat Anda berpikir tentang penggunaan dua array terpisah - satu unsorted dan yang lainnya disortir. Namun, untuk menghemat ruang satu menggunakan array yang sama dan menggunakan pointer untuk memisahkan unsur-unsur diurutkan dan disortir dari daftar. Waktu menyortir Kompleksitas Insertion Sort adalah O (n2). Meskipun hal ini persis sama untuk Bubble Sort, algoritma Insertion Sort adalah dua kali lebih efisien, namun tidak efisien untuk daftar besar.

CONTOH programnya:

uses crt;

var

jmldata,i,j:integer;

data,x:array [1..100] of integer;

procedure asc_insert;

var temp:integer;

begin

For i := 2 to jmldata do

Begin

Temp :=data[i];

j := i-1;

while (data[j] > temp) and (j>0) do

begin

data[j+1] := data[j];

dec(j);

end;

data[j+1]:=temp;

end;

writeln('data yang telah di urut');

for i:=1 to jmldata do

    begin

         write(data[i],'  ');

    end;

     readln;

end;

begin

clrscr;

write('masukkan berapa angka yang akan di urut: '); readln(jmldata);

                  for i:=1 to jmldata do

                  begin

                       write('masukkan angka ke-',i,':'); readln(data[i]);

                  end;

                       asc_insert;

readln;

end;

Read More

    Sejarah Komputer Generasi Ke-1 Sampai Generasi Ke-5

            Komputer generasi ke lima adalah komputer teknologi yang saat ini telah menjadi jargon di berbagai prusahaan, dengan keunggulah-keunggulan yang di tampilkan komputer generasi ke lima ini,  komputer generasi ke lima di lengkami dengan komponen komponen tambahan yang di realise oleh ilmuan-ilmua salah satunya adalah Sirkuit Terpadu (IC) adalah sebuah perangkat elektronik yang kecil yang terbuat dari bahan semiconductor. Sirkuit terpadu yang pertama telah dikembangkan di tahun 1950 oleh Jack Kilby dari Texas Instruments dan Robert Noyce dari Fairchild Semiconductor.

Gambar 2.1 Sirkuit Terpadu (IC)

Generasi Kelima perangkat komputer, berdasarkan kecerdasan buatan, masih dalam pembangunan, walaupun ada beberapa aplikasi, seperti pengenalan suara, yang sedang digunakan saat ini. Penggunaan paralel dan pengolahan superconductors adalah membantu untuk membuat sebuah kenyataan kecerdasan buatan. Quantum perhitungan dan molekuler dan nanoteknologi akan secara radikal mengubah wajah komputer di tahun-tahun mendatang.

 Tujuan dari kelima-generasi adalah untuk mengembangkan komputasi yang merespon perangkat input bahasa untuk alam dan mampu belajar dan self-organisasi, kurang lengkap jika kita hanya mengetahui komputer generasi saat ini tanpa mengetahui sejarah perkembangan dari awal hingga kini, berikut adalah sejarah singkat generasi komuter hingga saat ini :

Gambar 2.2 Jangan Lupakan Sejarah

1        Generasi Pertama (1940-1956) Tabung Vakum

Komputer pertama kali digunakan adalah tabung vakum untuk sirkuitnya dan drum magnetik untuk memori. dan sering kali mengambil banyak ruangan untuk menempatkannya. Dalam beroprasi mereka sangat mahal, selain itu mereka mengambil banyak listrik yang menghasilkan banyak panas, dan menyebabkan kerusakan. Komputer generasi pertama mengandalkan bahasa mesin, bahasa pemrograman tingkat terendah dipahami oleh komputer, untuk melakukan operasi, dan mereka hanya bisa memecahkan satu masalah pada satu waktu. Input didasarkan pada kartu menekan dan gulungan kertas, dan hasil itu ditampilkan pada hasil cetakan. UNIVAC dan ENIAC komputer adalah contoh dari perangkat komputasi generasi pertama. UNIVAC adalah komputer komersial pertama dikirim ke klien bisnis, Biro Sensus Amerika Serikat pada tahun 1951.

 2        Generasi Kedua (1956-1963) Transistor

Transistor menggantikan tabung vakum dan mengantar ke generasi ke dua komputer. Transistor ditemukan pada tahun 1947, tetapi tidak digunakan secara luas dalam komputer sampai akhir 1950-an. Transistor adalah jauh lebih unggul dari tabung vakum, yang menyediakan komputer menjadi lebih kecil, lebih cepat, lebih murah, lebih hemat energi dan lebih handal dari pendahulunya yaitu generasi pertama mereka. Akan tetapi transistor masih menghasilkan banyak panas yang mengakibatkan kerusakan, Itu adalah kemajuan besar dibanding tabung vakum. Komputer generasi kedua masih mengandalkan kartu menekan untuk masukkan atau input dan hasil cetakkan untuk hasil atau output. Komputer generasi kedua beranjak dari bahasa mesin biner secara samar untuk bahasa  simbolik, perakitan, atau bahasa yang memudahkan programmer untuk menentukan instruksi dalam kata-kata. Bahasa tingkat tinggi pemograman juga berkembang pada saat itu, seperti versi awal COBOL dan FORTRAN. Ini juga komputer pertama yang menyimpan instruksi mereka dalam memori mereka, yang pindah dari drum magnetik untuk teknologi inti magnetik.
Komputer pertama dari generasi ini dikembangkan untuk industri dalam bidang atom

 3        Generasi Ketiga (1964-1971) Integrated Circuit (Chip atau Microchip). 

     Perkembangan sirkuit terintegrasi adalah ciri khas dari generasi ketiga komputer. Transistor telah di perkecilkan dan ditempatkan pada chip silikon, yang disebut semikonduktor, yang meningkatkan secara drastis kecepatan dan efisiensi komputer.
Sebagai pengganti kartu menekan dan hasil cetakkan, pengguna berinteraksi dengan komputer generasi ketiga melalui keyboard dan monitor serta berinteraksi dengan sistem operasi, dimana perangkat memungkinkan untuk menjalankan berbagai aplikasi yang berbeda dalam satu waktu dengan sebuah program utama yang telam di pantau oleh memori. Komputer untuk pertama kalinya menjadi mudah diakses oleh para pengguna karena mereka lebih kecil dan lebih murah dari sebelumnya.

4        Generasi keempat (1971-sekarang) Mikroprosesor

      Mikroprosesor membawa generasi keempat komputer, saat ribuan sirkuit terpadu dibangun ke sebuah chip silikon tunggal. Apakah di generasi pertama cukup menggunakan banyak ruangan sekarang sudah bisa di genggam di telapak tangan. Intel 4004 chip yang dikembangkan pada tahun 1971, terletak pada semua komponen komputer-dari pusat process unit sampai dengan memori untuk input / output kontrol-pada satu chip.

       Pada tahun 1981 IBM memperkenalkan komputer pertama untuk pengguna rumahan, dan pada tahun 1984 Apple memperkenalkan Macintosh. Mikroprosesor juga pindah dari dunia komputer desktop ke dalam berbagai bidang kehidupan, karena semakin banyak produk sehari-hari mulai menggunakan mikroprosesor.

Sepertinya generasi komputer ke empat menjadi lebih kuat, mereka bisa dihubungkan bersama untuk membentuk jaringan, yang akhirnya mengarah pada perkembangan Internet. Komputer generasi keempat juga melihat perkembangan GUI (grapichcal user interface)

5        Generasi Kelima (Kelima dan Yang akan datang) Kecerdasan buatan

Perangkat komputasi generasi kelima, berdasarkan kecerdasan buatan, masih dalam pengembangan, meskipun ada beberapa aplikasi, seperti pengenalan suara, yang sedang digunakan saat ini. Penggunaan pemrosesan paralel dan superkonduktor membantu untuk membuat kecerdasan buatan kenyataan. Komputasi kuantum dan molekuler dan nanoteknologi radikal akan mengubah wajah komputer di tahun-tahun mendatang. Tujuan dari komputasi generasi kelima adalah untuk mengembangkan perangkat yang merespon input bahasa alami dan mampu belajar dan self-organisasi.

         Definisi Komputer Generasi ke-5

Komputer masa depan dijadikan jargon oleh banyak perusahaan komputer untuk bersaing memproduksi komputer dengan nada yang optimistis dan positif. Meskipun masih berupa gagasan, para ilmuwan dan ahli komputer telah memperkirakan beberapa aspek teknologi komputer yang bakal hadir. Bahkan inisiatif untuk menghasilkan teknologi komputer terbaru telah dilakukan sejak 4-5 tahun sebelum memasuki abad ke 21 oleh beberapa perusahaan komputer raksasa. Di sub BAB akan di jelaskan tentang definisi komputer generasi ke lima secara rinci

Gambar 2.3  Tablet PC

2.2.1        Gambaran komputer masa depan

Mungkin kita pernah menyaksikan tayangan “2001: Space Odyssey” film yang diciptakan oleh Artur C. Clarke. Dimana skenario film tersebut memberi gambaran bagaimana canggihnya komputer masa depan yang masih dalam imajinasi. Namun memberi gagasan kepada para ilmuwan untuk terus mengkaji kemungkinan-kemungkinan pengembangan komputer generasi kelima.
 Komputer generasi kelima akan sangat tergantung pada keinginan dan kemampuan pengguna untuk menyerap teknologi baru ini apakah digunakan dengan baik. Untuk merealisasikan impian mewujudkan komputer masa depan, amaka para ilmuwan komputer mencantumkan 10 ciri-ciri teknologi komputer super cangkih untuk dijadikan pedoman umum. Meskipun ada diantaranya dianggap terlalu maju  namun  hal  ini tidaklah mustahil untuk dapat diciptakan:
 Salah satu ilmuwan komputer Thomas Wennekers dari Plymouth University yang sedang mencoba untuk mengembangkan sebuah komputer generasi kelima yang merupakan komputer masa depan dengan meniru persis mekanisme sel-sel saraf manusia di otak. Menyelaraskan cara komputer bekerja dengan mekanisme sel-sel saraf ini diyakini untuk meningkatkan kemampuan komputer untuk memproses data visual dan audio. Ada kemungkinan kemudian pada komputer akan dapat melihat dan mendengar dengan sendirinya. Bukan hanya mengandalkan pada keberadaan sensor.

Read More

Contoh Program Memakai Array dan Function Devpascal

biar gak bingun liat judulnya langsung deh baca..   

  sekarang kita akan mempelajari tentang bagai mana sih membuat sebuah program dengan menggunakan array dengan kombinasi function dan procedure yang di implementasikan dalam program mencari gaji pegawai pasti sodara penasarankan langsung aja deh...
  demi mempermudah pemahaman sodara langsung saja kita cekidot ke contoh programnya. 

====================================================================

program gaji_pegawai;

uses crt;

const

     maks = 50 ;

type

   larik1=array [1..maks] of string;

   larik2=array [1..maks] of integer;

   larik3=array [1..maks] of real;

var

   NIP,nama,status:larik1;

   gol,jmlanak:larik2;

   gatot,PPN:larik3;

 //program lokal function dan procedure

function temp_gaji(gapok:integer;tunjangan:real):real;

   {I.S.: gaji pokok dan tunjangan sudah terdefinisi}

   {F.S.: menampilkan rumus fungsi mencari gaji + tunjangan}

       begin

         temp_gaji:=gapok + tunjangan ;

       end;

function gajiTotal(gatot,PPN:real):real;

 {I.S.: nilai gajitotal dan PPN sudah terdefinisi}

 {F.S.: menampilkan rumus fungsi mencari gaji total}

       begin

         gajiTotal:=gatot - PPN;

       end;

function gajiPokok (gol : integer):integer;

   {I.S. : Golongan sudah terdefinisi}

   {F.S. : Menghailkan fungsi gaji pokok}

       begin

            case (gol) of

                1 : gajiPokok := 1250000;

                2 : gajiPokok := 1350000;

                3 : gajiPokok := 1500000;

                4 : gajiPokok := 1750000;

              end; {case}

       end;{function}

function tunjangan (gol,gapok : integer):real;

   {I.S. : Golongan dan Gaji Pokok sudah terdefinisi}

   {F.S. : Menghailkan fungsi Tunjangan}

       begin

            case (gol) of

               1 : tunjangan := 0.1*gapok;

               2 : tunjangan := 0.125*gapok;

               3 : tunjangan := 0.15*gapok;

               4 : tunjangan := 0.2*gapok;

            end;{case}

       end; {function}

function tunjanganAnak (jmlAnak : integer ) : integer;

   {I.S.: jumlah anak sudah terdefinisi}

   {F.S.: menhahasilan fungsi tunjangan anak}

       begin

           if (jmlAnak <= 3) and (jmlAnak > 0) then

               tunjanganAnak :=jmlAnak * 150000

               else

                   if (jmlAnak > 3 ) then

                      tunjanganAnak := 3 * 150000

                      else

                         if ( jmlAnak =0 )   then

                           tunjanganAnak := 0;

          end; {function}

function f_ppn(gatot:real):real;

   {I.S.: gaji total sudah terdefinisi}

   {F.S.: menghasilkan rumus mencari PPN}

        begin

          f_ppn:= 0.1*gatot

        end;

procedure tampilGtotPPN(gatot,PPN : real;i:integer);

    {I.S.: gaji total dan PPN sudah terdefinisi}

    {F.S.: menampilkan gaji total dan PPN}

          begin

          gotoxy(54,4+i);write(PPN:0:1);

          gotoxy(68,4+i);write(gatot:0:1);

          end; {procedure}

procedure header;

    {I.S.: membuat tabel header}

    {F.S.: menampilkan tabel header}

      begin

       gotoxy(31,1);textcolor(15);

       textcolor(yellow);  write('DAFTAR GAJI PEGAWAI');

       gotoxy(1,2);textcolor(15);

       textcolor(yellow); 

       write(' ------------------------------------------------------------------------------');

          gotoxy(1,3);textcolor(15);

    textcolor(white);  write('|   NIP   |     NAMA     |  GOL  |STATUS|JML ANAK|     PPN     |   GAJI TOTAL  |');

          gotoxy(1,4);textcolor(15);

          textcolor(yellow);

    write(' ------------------------------------------------------------------------------');

       end; {procedure}

procedure inputData(var NIP,nama,status:larik1; var gol : larik2);

    {I.S.: memasukan data NIP, nama, status dan golongan gaji}

    {F.S.: menampilkan nilai PPN dan gaji total}

    var

       gapok,i,j:integer;

       begin

       i:=1;

       j:=10;

       //memasukan nip

       header;

       window(2,5,80,5);textbackground(j);

       clrscr;

       window(1,5,80,5);

       textcolor(15);

       textcolor(white); write('|         |              |       |      |        |Rp.          |Rp.           |');

       window(2,5,10,5);readln(NIP[i]);write(NIP[i]);

       while (NIP[i] <> 'stop' ) and (NIP[i] <> 'STOP' ) do

       begin

       //memasukan nama, golongan dan status         

                window(12,4+i,25,4+i);readln(nama[i]);write(nama[i]);

                window(30,4+i,33,4+i);readln(gol[i]);write(gol[i]);

                window(37,4+i,40,4+i);readln(status[i]);write(status[i]);

       //memasukan jumlah anak jika dudah menikah dan mempunyai anak

                if (status[i] = 'M') or (status[i] = 'm') then

       begin                                   window(45,4+i,46,4+i);readln(jmlAnak[i]);write(jmlAnak[i]);

                   end

                     else

                        begin

                            window(45,4+i,46,4+i);write('-');

                        end;

      

//hitung Gajipokok {gaji pokok + tunjangan gaji + tunjangan anak}

          gapok := gajiPokok(gol[i]); {function gajipokok}

  gatot[i] := temp_gaji(gapok,tunjangan(gol[i],gapok)) + tunjanganAnak(jmlAnak[i]);

       //hitung PPN  {10% dari gaji pokok}

          PPN[i] := f_ppn(gatot[i]);

       //hitung Gaji Total {Gajipokok - PPN}

          gatot[i] := gajiTotal(gatot[i],PPN[i]);

       //menampilkan gatot dan PPN

          tampilGtotPPN(gatot[i],PPN[i],i);

 //memasukan data selanjutnya

          i:=i+1;

          if i mod 2 = 0 then

             j := 14

             else

              j := 10;

          window(2,4+i,80,4+i);textbackground(j);

          clrscr;

          window(1,4+i,80,4+i);

          textcolor(15);

          textcolor(white); write('|         |              |       |      |        |Rp.          |Rp.           |');

          window(2,4+i,10,4+i);readln(NIP[i]);write(NIP[i]);

          end;{WHILE}

      //penutup

          i:=i+1;

          window(1,4+i,80,4+i);textbackground(11);

          textcolor(yellow);  write(' -----------------------------------------------------------------------------');

          readln;

end; {procedure}

//program utama

begin

window(1,1,80,24);textbackground(11);

clrscr;

inputData(NIP,nama,status,gol);

end.

     Nah nah jika sodara sudah membacanya atau mempelajari tulisan ini langasung saja di praktekan di program paccalnya supaya memperdalam pehaman sodara.

    Jika sodara sudah mencobanya ke dalam erogram paccal maka soda akan mendapatkan hasilnya seperti ini.

Gambar 1.2 ZoomOut

Gambar 1.1 Hasil program daftar gaji pegawai



saran

     jangan terlalu terpaku pada contoh, karna contoh hanya sebuah perbandingan belaka, alanakah baiknya kita punya maining tersendiri sebelum melihat kepada contoh agar kita nanatinya tau bahwa maining yang kita kelola saat ini dapat kita sempurnnakan kembali.

     terimakasih atas kunjungan sodara apabila ada kritik silahkan isi di kolom komentar, sekian salam programer. 

bab CSS klik link ini

http://afgansteep.blogdetik.com/2014/12/26/tutorial-layouting-css/

Read More